--- loncom/lonnet/perl/lonnet.pm	2000/11/14 15:58:39	1.62
+++ loncom/lonnet/perl/lonnet.pm	2000/11/14 18:41:40	1.63
@@ -1264,11 +1264,12 @@ sub EXT {
             $ENV{'request.course.id'}.'.'.$spacequalifierrest;
 
 # ----------------------------------------------------------- first, check user
-       my %resourcedata=get('resourcedata',($reslevel,$seclevel,$courselevel));
+      my %resourcedata=get('resourcedata',($reslevel,$seclevel,$courselevel));
+      if ($resourcedata{$reslevel}!~/^error\:/) {
        if ($resourcedata{$reslevel}) { return $resourcedata{$reslevel}; }
        if ($resourcedata{$seclevel}) { return $resourcedata{$seclevel}; }
        if ($resourcedata{$courselevel}) { return $resourcedata{$courselevel}; }
-
+      }
 # -------------------------------------------------------- second, check course
         my $section='';
         if ($ENV{'request.course.sec'}) {
@@ -1280,13 +1281,15 @@ sub EXT {
               ':resourcedata:'.
               escape($reslevel).':'.escape($seclevel).':'.escape($courselevel),
 		   $ENV{'course.'.$ENV{'request.course.id'}.$section.'.home'});
+      if ($reply!~/^error\:/) {
         map {
            my ($name,$value)=split(/\=/,$_);
            $resourcedata{unescape($name)}=unescape($value);  
         } split(/\&/,$reply);
        if ($resourcedata{$reslevel}) { return $resourcedata{$reslevel}; }
-       if ($resourcedata{$seclevel}) { return $resourcedata{$seclevel}; }
+       if ($resourcedata{$seclevel}) { return $resourcedata{$seclevel}; }  
        if ($resourcedata{$courselevel}) { return $resourcedata{$courselevel}; }
+      }
 
 # ------------------------------------------------------ third, check map parms