[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.146 and 1.147

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>