loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.59, 2004/08/12 06:50:15	version 1.60, 2004/08/20 16:29:15
Line 1166 sub handler {	Line 1166 sub handler {

$r=shift;	$r=shift;

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['decompress','action','filename','newfilename']);

&Debug($r, "loncfile.pm - handler entered");	&Debug($r, "loncfile.pm - handler entered");
&Debug($r, " filename: ".$ENV{'form.filename'});	&Debug($r, " filename: ".$ENV{'form.filename'});
Line 1184 sub handler {	Line 1185 sub handler {
} elsif($ENV{'QUERY_STRING'} && $ENV{'form.phase'} ne 'two') {	} elsif($ENV{'QUERY_STRING'} && $ENV{'form.phase'} ne 'two') {
#Just hijack the script only the first time around to inject the	#Just hijack the script only the first time around to inject the
#correct information for further processing	#correct information for further processing
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['decompress']);
$fn=&Apache::lonnet::unescape($ENV{'form.decompress'});	$fn=&Apache::lonnet::unescape($ENV{'form.decompress'});
$fn=&URLToPath($fn);	$fn=&URLToPath($fn);
$ENV{'form.action'}="decompress";	$ENV{'form.action'}="decompress";