version 1.27, 2003/02/12 19:56:14
|
version 1.28, 2003/03/08 01:41:53
|
Line 863 sub phaseone {
|
Line 863 sub phaseone {
|
&NewDir1($r, $uname, $dir, $ENV{'form.newfilename'}); |
&NewDir1($r, $uname, $dir, $ENV{'form.newfilename'}); |
} elsif ($ENV{'form.action'} eq 'newfile' || |
} elsif ($ENV{'form.action'} eq 'newfile' || |
$ENV{'form.action'} eq 'newhtmlfile' || |
$ENV{'form.action'} eq 'newhtmlfile' || |
$ENV{'form.action'} eq 'newproblemfile') { |
$ENV{'form.action'} eq 'newproblemfile' || |
|
$ENV{'form.action'} eq 'newpagefile' || |
|
$ENV{'form.action'} eq 'newsequencefile') { |
if($ENV{'form.newfilename'}) { |
if($ENV{'form.newfilename'}) { |
my $newfilename = $ENV{'form.newfilename'}; |
my $newfilename = $ENV{'form.newfilename'}; |
if (!defined($dir)) { |
if (!defined($dir)) { |
Line 1291 sub handler {
|
Line 1293 sub handler {
|
$r->print('<h3>Copy</h3>'); |
$r->print('<h3>Copy</h3>'); |
} elsif ($ENV{'form.action'} eq 'newfile' || |
} elsif ($ENV{'form.action'} eq 'newfile' || |
$ENV{'form.action'} eq 'newhtmlfile' || |
$ENV{'form.action'} eq 'newhtmlfile' || |
$ENV{'form.action'} eq 'newproblemfile') { |
$ENV{'form.action'} eq 'newproblemfile' || |
|
$ENV{'form.action'} eq 'newpagefile' || |
|
$ENV{'form.action'} eq 'newsequencefile' ) { |
$r->print('<h3>New Resource</h3>'); |
$r->print('<h3>New Resource</h3>'); |
} else { |
} else { |
$r->print('<p>Unknown Action</p></body></html>'); |
$r->print('<p>Unknown Action</p></body></html>'); |