--- loncom/interface/londocs.pm 2004/04/24 23:03:49 1.119 +++ loncom/interface/londocs.pm 2004/04/26 01:20:17 1.120 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.119 2004/04/24 23:03:49 www Exp $ +# $Id: londocs.pm,v 1.120 2004/04/26 01:20:17 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -447,18 +447,20 @@ sub entryline { $renametitle=~s/\"\;/\\\"/g; my $line=''; # Edit commands + my $folderpath; + if ($ENV{'form.folderpath'}) { + $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'}); + # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); + } if ($allowed) { my %lt=&Apache::lonlocal::texthash( 'up' => 'Move Up', 'dw' => 'Move Down', 'rm' => 'Remove', 'rn' => 'Rename'); - my $folderpath; - if ($ENV{'form.folderpath'}) { - $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'}); - # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); - } $line.=(< + '. ""; - if ($allowed) { - my %lt=&Apache::lonlocal::texthash( - 'hd' => 'Hidden', - 'ec' => 'URL hidden', - 'rp' => 'Randomly Pick Number of Resources', - 'sp' => 'Store Parameters'); + if (($allowed) && ($folder!~/^supplemental/)) { + my %lt=&Apache::lonlocal::texthash( + 'hd' => 'Hidden', + 'ec' => 'URL hidden', + 'sp' => 'Store Parameters'); + $line.=(< + $lt{'hd'} + + + +ENDPARMS } - $line.=""; + $line.=""; return $line; }
@@ -501,26 +503,36 @@ END $url=&Apache::lonnet::clutter($url); $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); } - my $parameterset=''; + my $parameterset=' '; if ($isfolder) { my $foldername=&Apache::lonnet::escape($foldertitle); my $folderpath=$ENV{'form.folderpath'}; if ($folderpath) { $folderpath.='&' }; $folderpath.=$folderarg.'&'.$foldername; $url.='folderpath='.&Apache::lonnet::escape($folderpath); - $parameterset=''; + $parameterset=&mt('Randomly Pick: '). + ''; } $line.='$title + $lt{'ec'}$parameterset +$lt{'sp'} +