loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/loncfile.pm between versions 1.87 and 1.89

version 1.87, 2007/10/18 21:58:21	version 1.89, 2008/05/27 17:33:28
Line 109 sub Debug {	Line 109 sub Debug {
}	}
}	}

	sub done {
	my ($url)=@_;
	my $done=&mt("Done");
	return(<<ENDDONE);
	<a href="$url">$done</a>
	<script type="text/javascript">
	location.href="$url";
	</script>
	ENDDONE
	}

=pod	=pod

=item URLToPath($url)	=item URLToPath($url)
Line 435 Parameters:	Line 446 Parameters:

sub CloseForm2 {	sub CloseForm2 {
my ($request, $user, $fn) = @_;	my ($request, $user, $fn) = @_;
$request->print('<h3><a href="'.&url($fn).'/">'.&mt('Done').'</a></h3>');	$request->print(&done(&url($fn)));
}	}

=pod	=pod
Line 1128 sub NewDir2 {	Line 1139 sub NewDir2 {

sub decompress2 {	sub decompress2 {
my ($r, $user, $dir, $file) = @_;	my ($r, $user, $dir, $file) = @_;
&Apache::lonnet::appenv('cgi.file' => $file);	&Apache::lonnet::appenv({'cgi.file' => $file});
&Apache::lonnet::appenv('cgi.dir' => $dir);	&Apache::lonnet::appenv({'cgi.dir' => $dir});
my $result=&Apache::lonnet::ssi_body('/cgi-bin/decompress.pl');	my $result=&Apache::lonnet::ssi_body('/cgi-bin/decompress.pl');
$r->print($result);	$r->print($result);
&Apache::lonnet::delenv('cgi.file');	&Apache::lonnet::delenv('cgi.file');
Line 1256 sub phasetwo {	Line 1267 sub phasetwo {
$r->print('<h3><a href="'.&url($dest).'">'.&mt('Return to Directory').'</a></h3>');	$r->print('<h3><a href="'.&url($dest).'">'.&mt('Return to Directory').'</a></h3>');
$r->print('<h3><a href="'.&url($dest_newname).'">'.$disp_newname.'</a></h3>');	$r->print('<h3><a href="'.&url($dest_newname).'">'.$disp_newname.'</a></h3>');
} else {	} else {
$r->print('<h3><a href="'.&url($dest).'">'.&mt('Done').'</a></h3>');	$r->print(&done(&url($dest)));
}	}
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.87
changed lines
	Added in v.1.89