--- 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(
 		      '<tr><td><b>'.
@@ -725,7 +731,7 @@ ENDHEADERS
 		      $currentversion.'</font></td><td><font size="+2">');
 # Used in course
 	    my $usedversion=$hash{'version_'.$linkurl};
-	    if ($usedversion) {
+	    if (($usedversion) && ($usedversion ne 'mostrecent')) {
 		$r->print($usedversion);
 	    } else {
 		$r->print($currentversion);
@@ -735,7 +741,7 @@ ENDHEADERS
 	    $r->print(&Apache::loncommon::select_form($setversions{$linkurl},
 						      'set_version_'.$linkurl,
 						      ('' => '',
-						       'current' => 'most recent',
+						       'mostrecent' => 'most recent',
 						       map {$_,$_} (1..$currentversion))));
 	    $r->print('</td><td><font size="1"><ul>');
 	    my $lastold=1;