--- loncom/interface/londocs.pm 2003/10/29 21:21:55 1.92 +++ loncom/interface/londocs.pm 2003/10/29 21:50:41 1.93 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.92 2003/10/29 21:21:55 www Exp $ +# $Id: londocs.pm,v 1.93 2003/10/29 21:50:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -596,14 +596,17 @@ sub checkversions { $haschanged=1; foreach (keys %hash) { if ($_=~/^ids\_(\/res\/.+)$/) { - my $src=$1; + $newsetversions{$1}='mostrecent'; } } } elsif ($ENV{'form.setcurrent'}) { $haschanged=1; foreach (keys %hash) { if ($_=~/^ids\_(\/res\/.+)$/) { - my $src=$1; + my $getvers=&Apache::lonnet::getversion($1); + if ($getvers>0) { + $newsetversions{$1}=$getvers; + } } } } elsif ($ENV{'form.setversions'}) { @@ -714,6 +717,9 @@ ENDHEADERS if ($changes{$_}>$starttime) { my ($root,$extension)=($_=~/^(.*)\.(\w+)$/); my $currentversion=&Apache::lonnet::getversion($_); + if ($currentversion<0) { + $currentversion=&mt('Could not be determined.'); + } my $linkurl=&Apache::lonnet::clutter($_); $r->print( '