loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.76, 2006/04/13 18:30:30	version 1.77, 2006/05/30 12:47:41
Line 72 use Apache::loncacc;	Line 72 use Apache::loncacc;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


my $DEBUG=0;	my $DEBUG=0;
my $r; # Needs to be global for some stuff RF.	my $r; # Needs to be global for some stuff RF.
Line 1229 sub handler {	Line 1232 sub handler {

if ($env{'form.filename'}) {	if ($env{'form.filename'}) {
&Debug($r, "test: $env{'form.filename'}");	&Debug($r, "test: $env{'form.filename'}");
$fn=&Apache::lonnet::unescape($env{'form.filename'});	$fn=&unescape($env{'form.filename'});
$fn=&URLToPath($fn);	$fn=&URLToPath($fn);
} 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
$fn=&Apache::lonnet::unescape($env{'form.decompress'});	$fn=&unescape($env{'form.decompress'});
$fn=&URLToPath($fn);	$fn=&URLToPath($fn);
$env{'form.action'}="decompress";	$env{'form.action'}="decompress";
} elsif ($env{'form.qualifiedfilename'}) {	} elsif ($env{'form.qualifiedfilename'}) {