version 1.75, 2006/04/10 22:47:18
|
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'}) { |
Line 1287 function writeDone() {
|
Line 1290 function writeDone() {
|
} |
} |
</script> |
</script> |
|; |
|; |
$loaditem{'onload'} => "writeDone()"; |
$loaditem{'onload'} = "writeDone()"; |
} |
} |
|
|
$r->print(&Apache::loncommon::start_page('Construction Space File Operation', |
$r->print(&Apache::loncommon::start_page('Construction Space File Operation', |