--- loncom/lonnet/perl/lonnet.pm	2001/08/09 16:43:06	1.146
+++ loncom/lonnet/perl/lonnet.pm	2001/08/09 19:28:47	1.147
@@ -1674,7 +1674,7 @@ sub condval {
 # --------------------------------------------------------- Value of a Variable
 
 sub EXT {
-    my $varname=shift;
+    my ($varname,$symbparm)=@_;
     unless ($varname) { return ''; }
     my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);
     my $rest;
@@ -1740,7 +1740,12 @@ sub EXT {
 
 
 # ----------------------------------------------------- Cascading lookup scheme
-         my $symbp=&symbread();
+         my $symbp;
+         if ($symbparm) {
+            $symbp=$symbparm;
+	 } else {
+            $symbp=&symbread();
+         }            
          my $mapp=(split(/\_\_\_/,$symbp))[0];
 
          my $symbparm=$symbp.'.'.$spacequalifierrest;
@@ -1833,10 +1838,12 @@ sub EXT {
       unless ($space eq '0') {
           my ($part,$id)=split(/\_/,$space);
           if ($id) {
-	      my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest);
+	      my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,
+                                   $symbparm);
               if ($partgeneral) { return $partgeneral; }
           } else {
-              my $resourcegeneral=&EXT('resource.0.'.$qualifierrest);
+              my $resourcegeneral=&EXT('resource.0.'.$qualifierrest,
+                                       $symbparm);
               if ($resourcegeneral) { return $resourcegeneral; }
           }
       }