--- loncom/interface/londocs.pm 2003/10/28 00:31:02 1.89
+++ loncom/interface/londocs.pm 2003/10/28 00:57:50 1.90
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.89 2003/10/28 00:31:02 www Exp $
+# $Id: londocs.pm,v 1.90 2003/10/28 00:57:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -402,20 +402,24 @@ sub entryline {
$renametitle=~s/\"\;/\\\"/g;
my $line='
';
# Edit commands
- if ($allowed) {
- $line.=(< 'Move Up',
+ 'dw' => 'Move Down',
+ 'rm' => 'Remove',
+ 'rn' => 'Rename');
+ $line.=(<
-Remove
+$lt{'rm'}
-Rename |
+$lt{'rn'}
END
}
# Figure out what kind of a resource this is
@@ -585,6 +589,12 @@ sub checkversions {
if ($ENV{'form.timerange'} eq 'all') {
# show all documents
$header=&mt('All Documents in Course');
+ foreach (keys %hash) {
+ if ($_=~/^ids\_(\/res\/.+)$/) {
+ my $src=$1;
+ $changes{$src}=1;
+ }
+ }
} else {
# show documents which changed
%changes=&Apache::lonnet::dump