--- loncom/interface/londocs.pm 2004/02/27 18:16:54 1.108 +++ loncom/interface/londocs.pm 2004/02/27 19:11:08 1.109 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.108 2004/02/27 18:16:54 albertel Exp $ +# $Id: londocs.pm,v 1.109 2004/02/27 19:11:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -411,38 +411,42 @@ sub entryline { my ($index,$title,$url,$folder,$allowed,$residx)=@_; $title=~s/\&colon\;/\:/g; $title=&HTML::Entities::encode(&HTML::Entities::decode( - &Apache::lonnet::unescape($title)),'\"\<\>\&\''); + &Apache::lonnet::unescape($title)),'"<>&\''); my $renametitle=$title; my $foldertitle=$title; - if ($title=~ - /^(\d+)\_\_\_\&\;\&\;\&\;\_\_\_(\w+)\_\_\_\&\;\&\;\&\;\_\_\_(\w+)\_\_\_\&\;\&\;\&\;\_\_\_(.*)$/ - ) { - $foldertitle=&Apache::lontexconvert::msgtexconverted($4); - $renametitle=$4; - $title=''.&Apache::lonlocal::locallocaltime($1).' '. - &Apache::loncommon::plainname($2,$3).':
'. - $foldertitle; - } + if ($title=~ /^(\d+)___&&&___(\w+)___&&&___(\w+)___&&&___(.*)$/ ) { + $foldertitle=&Apache::lontexconvert::msgtexconverted($4); + $renametitle=$4; + $title=''.&Apache::lonlocal::locallocaltime($1).' '. + &Apache::loncommon::plainname($2,$3).':
'. + $foldertitle; + } $renametitle=~s/\"\;/\\\"/g; my $line=''; # Edit commands - if ($allowed) { - my %lt=('up' => 'Move Up', - 'dw' => 'Move Down', - 'rm' => 'Remove', - 'rn' => 'Rename'); - $line.=(< 'Move Up', + 'dw' => 'Move Down', + 'rm' => 'Remove', + 'rn' => 'Rename'); + my ($foldername,$htmlfoldername); + if ($ENV{'form.foldername'}) { + $foldername='&foldername='. + &Apache::lonnet::escape($ENV{'form.foldername'}); + $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'}); + } + $line.=(<
- + $lt{
- + $lt{
- + $lt{'rm'} - + $lt{'rn'} END } @@ -1018,20 +1022,22 @@ function finishpick() { '";this.document.forms.'+form+'.submit();'); } -function changename(folder,index,oldtitle) { +function changename(folder,index,oldtitle,foldername) { var title=prompt('New Title',oldtitle); if (title) { this.document.forms.renameform.title.value=title; this.document.forms.renameform.cmd.value='rename_'+index; this.document.forms.renameform.folder.value=folder; + this.document.forms.renameform.foldername.value=foldername; this.document.forms.renameform.submit(); } } -function removeres(folder,index,oldtitle) { +function removeres(folder,index,oldtitle,foldername) { if (confirm('Remove "'+oldtitle+'"?')) { this.document.forms.renameform.cmd.value='del_'+index; this.document.forms.renameform.folder.value=folder; + this.document.forms.renameform.foldername.value=foldername; this.document.forms.renameform.submit(); } } @@ -1083,10 +1089,12 @@ ENDNEWSCRIPT +
+
@@ -1102,6 +1110,7 @@ ENDCOURSEVERIFY &mt('Editing the Table of Contents for your Course'))); } # --------------------------------------------------------- Standard documents + my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'}); $r->print('
'); if (($standard) && ($allowed) && (!$forcesupplement)) { $r->print('

'.&mt('Main Course Documents'). @@ -1135,7 +1144,7 @@ $lt{'file'}:
$lt{'title'}:
- + @@ -1146,7 +1155,7 @@ $lt{'title'}:

- + @@ -1166,7 +1175,7 @@ $help{'Load_Map'} - + $help{'Adding_Fold
- + $help{'Adding_Ext
- + @@ -1195,7 +1204,7 @@ value="Syllabus=/public/$coursedom/$cour
- + @@ -1205,7 +1214,7 @@ $help{'Navigate_Content'}
- + $
- + - + - + - + @@ -1253,7 +1262,7 @@ $help{'My Personal Info'}
- + - + @@ -1301,7 +1310,7 @@ ENDFORM
- + $help{'Adding_Fol
- + $help{'Adding_Ext
- + @@ -1331,7 +1340,7 @@ $help{'Syllabus'}
- +