version 1.30, 2003/06/19 20:23:39
|
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 387 sub checksuffix {
|
Line 388 sub checksuffix {
|
} |
} |
return $result; |
return $result; |
} |
} |
|
|
|
sub cleanDest { |
|
my ($request,$dest)=@_; |
|
#remove bad characters |
|
if ($dest=~/[\#\?&]/) { |
|
$request->print("<p><font color=\"red\">Invalid characters in requested name have been removed.</font></p>"); |
|
$dest=~s/[\#\?&]//g; |
|
} |
|
return $dest; |
|
} |
|
|
=pod |
=pod |
|
|
=item CloseForm1($request, $user, $file) |
=item CloseForm1($request, $user, $file) |
Line 836 sub phaseone {
|
Line 848 sub phaseone {
|
|
|
# my $conspace=ConstructionPathFromRelative($uname, $fn); |
# my $conspace=ConstructionPathFromRelative($uname, $fn); |
|
|
|
$ENV{'form.newfilename'}=&cleanDest($r,$ENV{'form.newfilename'}); |
|
|
$r->print('<form action="/adm/cfile" method="post">'. |
$r->print('<form action="/adm/cfile" method="post">'. |
'<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'. |
'<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'. |
'<input type="hidden" name="phase" value="two" />'. |
'<input type="hidden" name="phase" value="two" />'. |
Line 866 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 1270 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 1297 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 { |