--- loncom/interface/londocs.pm 2004/02/19 21:51:11 1.107
+++ 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.107 2004/02/19 21:51:11 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{'rm'}
-
+
$lt{'rn'} |
END
}
@@ -504,7 +508,7 @@ sub checkonthis {
$alreadyseen{$url}=1;
$r->rflush();
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
- $r->print('
');
+ $r->print("\n
");
for (my $i=0;$i<=$level*5;$i++) {
$r->print(' ');
}
@@ -592,7 +596,8 @@ sub verifycontent {
}
}
&untiehash();
- $r->print(''.&mt('Done').'.
');
+ $r->print(''.&mt('Done').'.
'.''.
+ &mt('Return to DOCS').'');
}
# -------------------------------------------------------------- Check Versions
@@ -1017,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();
}
}
@@ -1082,10 +1089,12 @@ ENDNEWSCRIPT
+