[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.143 and 1.145

version 1.143, 2001/08/07 22:56:06 version 1.145, 2001/08/09 14:03:42
Line 122 Line 122
 # 5/30 H. K. Ng  # 5/30 H. K. Ng
 # 6/1 Gerd Kortemeyer  # 6/1 Gerd Kortemeyer
 # July Guy Albertelli  # July Guy Albertelli
 # 8/4,8/7 Gerd Kortemeyer  # 8/4,8/7,8/8,8/9 Gerd Kortemeyer
   
 package Apache::lonnet;  package Apache::lonnet;
   
Line 1735  sub EXT { Line 1735  sub EXT {
                               $spacequalifierrest};                                $spacequalifierrest};
     } elsif ($realm eq 'resource') {      } elsif ($realm eq 'resource') {
        if ($ENV{'request.course.id'}) {         if ($ENV{'request.course.id'}) {
   
   #   print '<br>'.$space.' - '.$qualifier.' - '.$spacequalifierrest;
   
   
 # ----------------------------------------------------- Cascading lookup scheme  # ----------------------------------------------------- Cascading lookup scheme
          my $symbp=&symbread();           my $symbp=&symbread();
          my $mapp=(split(/\_\_\_/,$symbp))[0];           my $mapp=(split(/\_\_\_/,$symbp))[0];
Line 1823  sub EXT { Line 1827  sub EXT {
       $metadata=&metadata($ENV{'request.filename'},        $metadata=&metadata($ENV{'request.filename'},
                                          'parameter_'.$spacequalifierrest);                                           'parameter_'.$spacequalifierrest);
       if ($metadata) { return $metadata; }        if ($metadata) { return $metadata; }
         
       $spacequalifierrest=~/[^\_]+$/;  
         
       $metadata=&metadata($ENV{'request.filename'},'parameter_0'.$1);  
   
       if ($metadata) { return $metadata; }  # ------------------------------------------------------------------ Cascade up
   
         unless ($space eq '0') {
             my ($part,$id)=split(/\_/,$space);
             if ($id) {
         my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest);
                 if ($partgeneral) { return $partgeneral; }
             } else {
                 my $resourcegeneral=&EXT('resource.0.'.$qualifierrest);
                 if ($resourcegeneral) { return $resourcegeneral; }
             }
         }
   
 # ---------------------------------------------------- Any other user namespace  # ---------------------------------------------------- Any other user namespace
     } elsif ($realm eq 'environment') {      } elsif ($realm eq 'environment') {
Line 1878  sub metadata { Line 1889  sub metadata {
   if ($_=~/^$package\&/) {    if ($_=~/^$package\&/) {
       my ($pack,$name,$subp)=split(/\&/,$_);        my ($pack,$name,$subp)=split(/\&/,$_);
                       my $value=$packagetab{$_};                        my $value=$packagetab{$_};
         my $part=$keyroot;
                         $part=~s/^\_//;
                       if ($subp eq 'display') {                        if ($subp eq 'display') {
   my $part=$keyroot;  
                           $part=~s/^\_//;  
   $value.=' [Part: '.$part.']';    $value.=' [Part: '.$part.']';
                       }                        }
                       my $unikey='parameter'.$keyroot.'_'.$name;                        my $unikey='parameter'.$keyroot.'_'.$name;
                       $metathesekeys{$unikey}=1;                        $metathesekeys{$unikey}=1;
                         $metacache{$uri.':'.$unikey.'.part'}=$part;
                       unless                         unless 
                        (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {                         (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
                          $metacache{$uri.':'.$unikey.'.'.$subp}=$value;                           $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
Removed from v.1.143  
changed lines
  Added in v.1.145

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