--- 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.=(< +$lt{ +$lt{
-UP
-DOWN
-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