--- loncom/lonnet/perl/lonnet.pm	2002/12/05 19:53:19	1.305
+++ loncom/lonnet/perl/lonnet.pm	2002/12/05 23:13:54	1.307
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.305 2002/12/05 19:53:19 www Exp $
+# $Id: lonnet.pm,v 1.307 2002/12/05 23:13:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2720,6 +2720,8 @@ sub courseresdata {
 	if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
 	    $courseresdatacache{$hashid.'.time'}=time;
 	    $courseresdatacache{$hashid}=\%dumpreply;
+	} elsif ($tmp =~ /^(con_lost|no_such_host)/) {
+	    return $tmp;
 	}
     }
     foreach my $item (@which) {
@@ -2849,9 +2851,8 @@ sub EXT {
 	    my %resourcedata=&get('resourcedata',
 				  [$courselevelr,$courselevelm,$courselevel],
 				 $udom,$uname);
-	    if (($resourcedata{$courselevelr}!~/^error\:/) &&
-		($resourcedata{$courselevelr}!~/^con_lost/)) {
-
+	    my ($tmp)=keys(%resourcedata);
+	    if (($tmp!~/^error\:/) && ($tmp!~/^con_lost/)) {
 		if ($resourcedata{$courselevelr}) {
 		    return $resourcedata{$courselevelr}; }
 		if ($resourcedata{$courselevelm}) {
@@ -2859,11 +2860,13 @@ sub EXT {
 		if ($resourcedata{$courselevel}) {
 		    return $resourcedata{$courselevel}; }
 	    } else {
-		if ($resourcedata{$courselevelr}!~/No such file/) {
+		if ($tmp!~/No such file/) {
 		    &logthis("<font color=blue>WARNING:".
 			     " Trying to get resource data for ".
 			     $uname." at ".$udom.": ".
-			     $resourcedata{$courselevelr}."</font>");
+			     $tmp."</font>");
+		} elsif ($tmp =~ /^(con_lost|no_such_host)/) {
+		  return $tmp;
 		}
 	    }