version 1.32, 2003/06/19 21:04:37
|
version 1.34, 2003/08/01 18:06:33
|
Line 92 use Apache::Constants qw(:common :http :
|
Line 92 use Apache::Constants qw(:common :http :
|
use Apache::loncacc; |
use Apache::loncacc; |
use Apache::Log (); |
use Apache::Log (); |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::loncommon(); |
|
|
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 878 sub phaseone {
|
Line 879 sub phaseone {
|
$ENV{'form.action'} eq 'newproblemfile' || |
$ENV{'form.action'} eq 'newproblemfile' || |
$ENV{'form.action'} eq 'newpagefile' || |
$ENV{'form.action'} eq 'newpagefile' || |
$ENV{'form.action'} eq 'newsequencefile' || |
$ENV{'form.action'} eq 'newsequencefile' || |
|
$ENV{'form.action'} eq 'newrightsfile' || |
|
$ENV{'form.action'} eq 'newstyfile' || |
$ENV{'form.action'} eq 'Select Action') { |
$ENV{'form.action'} eq 'Select Action') { |
if($ENV{'form.newfilename'}) { |
if($ENV{'form.newfilename'}) { |
my $newfilename = $ENV{'form.newfilename'}; |
my $newfilename = $ENV{'form.newfilename'}; |
Line 1282 sub handler {
|
Line 1285 sub handler {
|
|
|
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
|
|
$r->print( |
$r->print(&Apache::loncommon::bodytag('File Operation')); |
'<body bgcolor="#FFFFFF"><img align="right" src="/adm/lonIcons/lonlogos.gif" />'); |
|
|
|
|
|
$r->print('<h1>Construction Space <tt>'.$fn.'</tt></h1>'); |
$r->print('<h1>Construction Space <tt>'.$fn.'</tt></h1>'); |
Line 1309 sub handler {
|
Line 1311 sub handler {
|
$ENV{'form.action'} eq 'newproblemfile' || |
$ENV{'form.action'} eq 'newproblemfile' || |
$ENV{'form.action'} eq 'newpagefile' || |
$ENV{'form.action'} eq 'newpagefile' || |
$ENV{'form.action'} eq 'newsequencefile' || |
$ENV{'form.action'} eq 'newsequencefile' || |
|
$ENV{'form.action'} eq 'newrightsfile' || |
|
$ENV{'form.action'} eq 'newstyfile' || |
$ENV{'form.action'} eq 'Select Action' ) { |
$ENV{'form.action'} eq 'Select Action' ) { |
$r->print('<h3>New Resource</h3>'); |
$r->print('<h3>New Resource</h3>'); |
} else { |
} else { |