[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/\&quot\;/\\\"/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