[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
www
lon-capa-cvs@mail.lon-capa.org
Tue, 28 Oct 2003 00:57:50 -0000
www Mon Oct 27 19:57:50 2003 EDT
Modified files:
/loncom/interface londocs.pm
Log:
Saving my work.
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.89 loncom/interface/londocs.pm:1.90
--- loncom/interface/londocs.pm:1.89 Mon Oct 27 19:31:02 2003
+++ loncom/interface/londocs.pm Mon Oct 27 19:57:50 2003
@@ -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 @@
$renametitle=~s/\"\;/\\\"/g;
my $line='<tr>';
# Edit commands
- if ($allowed) {
- $line.=(<<END);
+ if ($allowed) {
+ my %lt=('up' => 'Move Up',
+ 'dw' => 'Move Down',
+ 'rm' => 'Remove',
+ 'rn' => 'Rename');
+ $line.=(<<END);
<td><table border='0' cellspacing='2' cellpadding='0'>
<tr><td bgcolor="#DDDDDD">
<a href='/adm/coursedocs?folder=$folder&cmd=up_$index'>
-<img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>
+<img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr>
<tr><td bgcolor="#DDDDDD">
<a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>
-<img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
+<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr>
</table></td><td bgcolor="#DDDDDD">
<a href='javascript:removeres("$folder","$index","$renametitle");'>
-<font size="-2" color="#990000">Remove</font></a>
+<font size="-2" color="#990000">$lt{'rm'}</font></a>
<a href='javascript:changename("$folder","$index","$renametitle");'>
-<font size="-2" color="#009900">Rename</font></a></td>
+<font size="-2" color="#009900">$lt{'rn'}</font></a></td>
END
}
# Figure out what kind of a resource this is
@@ -585,6 +589,12 @@
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