$lt{'rn'}
+ENDREN
$form_start = '
HIDDENFORM
- $r->print(&makesimpleeditform($uploadtag)."\n".
- &makedocslogform($uploadtag."\n".
+ $r->print(&makesimpleeditform($pathitem)."\n".
+ &makedocslogform($pathitem."\n".
''."\n"));
}
@@ -3756,7 +3782,7 @@ HIDDENFORM
$folder='default';
$savefolderpath = $env{'form.folderpath'};
$env{'form.folderpath'}='default&'.&escape(&mt('Content'));
- $uploadtag = '';
}
my $postexec='';
@@ -3783,7 +3809,7 @@ HIDDENFORM
my $newnavform=(<
- $uploadtag
+ $pathitem
@@ -3793,7 +3819,7 @@ NNFORM
my $newsmppageform=(<
- $uploadtag
+ $pathitem
$help{'Simple Page'}
@@ -3803,7 +3829,7 @@ NSPFORM
my $newsmpproblemform=(<
- $uploadtag
+ $pathitem
$help{'Simple Problem'}
@@ -3814,7 +3840,7 @@ NSPROBFORM
my $newdropboxform=(<
- $uploadtag
+ $pathitem
@@ -3823,7 +3849,7 @@ NDBFORM
my $newexuploadform=(<
- $uploadtag
+ $pathitem
$help{'Score_Upload_Form'}
@@ -3833,7 +3859,7 @@ NEXUFORM
my $newbulform=(<
- $uploadtag
+ $pathitem
$help{'Bulletin Board'}
@@ -3843,7 +3869,7 @@ NBFORM
my $newaboutmeform=(<
- $uploadtag
+ $pathitem
@@ -3854,7 +3880,7 @@ NAMFORM
my $newaboutsomeoneform=(<
- $uploadtag
+ $pathitem
@@ -3864,7 +3890,7 @@ NASOFORM
my $newrosterform=(<
- $uploadtag
+ $pathitem
@@ -3906,7 +3932,7 @@ NFFORM
my $newsylform=(<
- $uploadtag
+ $pathitem
@@ -3918,7 +3944,7 @@ NSYLFORM
my $newgroupfileform=(<
- $uploadtag
+ $pathitem
@@ -3973,7 +3999,7 @@ unless ($env{'form.pagepath'}) {
$hadchanges=0;
unless (($supplementalflag || $toolsflag)) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
- $supplementalflag,\%orderhash,$iconpath,$uploadtag);
+ $supplementalflag,\%orderhash,$iconpath,$pathitem);
if ($error) {
$r->print(''.$error.'
');
}
@@ -3998,12 +4024,12 @@ unless ($env{'form.pagepath'}) {
$env{'form.folderpath'} = $savefolderpath;
}
$env{'form.pagepath'} = '';
+ $pathitem = '';
if ($allowed) {
my $folderseq=
'/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_new.sequence';
- my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
-
my $supupdocform=(<