version 1.119, 2004/04/24 23:03:49
|
version 1.121, 2004/04/26 16:56:26
|
Line 298 sub editor {
|
Line 298 sub editor {
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
} else { |
} else { |
# ------------------------------------------------------------ Process commands |
# ------------------------------------------------------------ Process commands |
|
|
# ---------------- if they are for this folder and user allowed to make changes |
# ---------------- if they are for this folder and user allowed to make changes |
if (($allowed) && ($ENV{'form.folder'} eq $folder)) { |
if (($allowed) && ($ENV{'form.folder'} eq $folder)) { |
|
# set parameters |
|
if (defined($ENV{'form.setparms'})) { |
|
my $idx=$ENV{'form.setparms'}; |
|
if ($ENV{'form.randpick_'.$idx}) { |
|
&Apache::lonratedt::storeparameter($idx,'randompick',$ENV{'form.randpick_'.$idx},'int_pos'); |
|
} else { |
|
&Apache::lonratedt::delparameter($idx,'randompick'); |
|
} |
|
if ($ENV{'form.hidprs_'.$idx}) { |
|
&Apache::lonratedt::storeparameter($idx,'hiddenresource','yes','string_yesno'); |
|
} else { |
|
&Apache::lonratedt::delparameter($idx,'hiddenresource'); |
|
} |
|
if ($ENV{'form.encprs_'.$idx}) { |
|
&Apache::lonratedt::storeparameter($idx,'encrypturl','yes','string_yesno'); |
|
} else { |
|
&Apache::lonratedt::delparameter($idx,'encrypturl'); |
|
} |
|
|
|
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence'); |
|
if ($fatal) { |
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
|
return; |
|
} |
|
} |
# upload a file, if present |
# upload a file, if present |
if (($ENV{'form.uploaddoc.filename'}) && |
if (($ENV{'form.uploaddoc.filename'}) && |
($ENV{'form.cmd'}=~/^upload_(\w+)/)) { |
($ENV{'form.cmd'}=~/^upload_(\w+)/)) { |
Line 447 sub entryline {
|
Line 473 sub entryline {
|
$renametitle=~s/\"\;/\\\"/g; |
$renametitle=~s/\"\;/\\\"/g; |
my $line='<tr>'; |
my $line='<tr>'; |
# Edit commands |
# Edit commands |
|
my $folderpath; |
|
if ($ENV{'form.folderpath'}) { |
|
$folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'}); |
|
# $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); |
|
} |
if ($allowed) { |
if ($allowed) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'up' => 'Move Up', |
'up' => 'Move Up', |
'dw' => 'Move Down', |
'dw' => 'Move Down', |
'rm' => 'Remove', |
'rm' => 'Remove', |
'rn' => 'Rename'); |
'rn' => 'Rename'); |
my $folderpath; |
|
if ($ENV{'form.folderpath'}) { |
|
$folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'}); |
|
# $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); |
|
} |
|
$line.=(<<END); |
$line.=(<<END); |
|
<form name="entry_$index" action="/adm/coursedocs" method="post"> |
|
<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" /> |
|
<input type="hidden" name="setparms" value="$index" /> |
<td><table border='0' cellspacing='2' cellpadding='0'> |
<td><table border='0' cellspacing='2' cellpadding='0'> |
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
<a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'> |
<a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'> |
Line 501 END
|
Line 530 END
|
$url=&Apache::lonnet::clutter($url); |
$url=&Apache::lonnet::clutter($url); |
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); |
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); |
} |
} |
my $parameterset=''; |
my $parameterset=' '; |
if ($isfolder) { |
if ($isfolder) { |
my $foldername=&Apache::lonnet::escape($foldertitle); |
my $foldername=&Apache::lonnet::escape($foldertitle); |
my $folderpath=$ENV{'form.folderpath'}; |
my $folderpath=$ENV{'form.folderpath'}; |
if ($folderpath) { $folderpath.='&' }; |
if ($folderpath) { $folderpath.='&' }; |
$folderpath.=$folderarg.'&'.$foldername; |
$folderpath.=$folderarg.'&'.$foldername; |
$url.='folderpath='.&Apache::lonnet::escape($folderpath); |
$url.='folderpath='.&Apache::lonnet::escape($folderpath); |
$parameterset=''; |
$parameterset=&mt('Randomly Pick: '). |
|
'<input type="text" size="4" name="randpick_'.$index.'" value="'. |
|
&Apache::lonratedt::getparameter($index,'randompick').'" />'; |
} |
} |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon. |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon. |
'" border="0"></a></td>'. |
'" border="0"></a></td>'. |
"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>"; |
"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>"; |
if ($allowed) { |
if (($allowed) && ($folder!~/^supplemental/)) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'hd' => 'Hidden', |
'hd' => 'Hidden', |
'ec' => 'URL hidden', |
'ec' => 'URL hidden', |
'rp' => 'Randomly Pick Number of Resources', |
'sp' => 'Store Parameters'); |
'sp' => 'Store Parameters'); |
$line.=(<<ENDPARMS); |
|
<td bgcolor="#BBBBFF"><font size='-2'> |
|
<input type="checkbox" name="hidprs_$index" /> $lt{'hd'}</td> |
|
<td bgcolor="#BBBBFF"><font size='-2'> |
|
<input type="checkbox" name="encprs_$index" /> $lt{'ec'}</td> |
|
<td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td> |
|
<td bgcolor="#BBBBFF"><font size='-2'> |
|
<input type="submit" value="$lt{'sp'}" /> |
|
</font></td> |
|
ENDPARMS |
} |
} |
$line.="</tr>"; |
$line.="</form></tr>"; |
return $line; |
return $line; |
} |
} |
|
|
Line 1093 function removeres(folderpath,index,oldt
|
Line 1133 function removeres(folderpath,index,oldt
|
this.document.forms.renameform.submit(); |
this.document.forms.renameform.submit(); |
} |
} |
} |
} |
|
|
</script> |
</script> |
|
|
ENDNEWSCRIPT |
ENDNEWSCRIPT |