[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.164 and 1.165

version 1.164, 2001/10/16 08:53:19 version 1.165, 2001/10/16 18:41:01
Line 131 Line 131
 # 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21,9/26,  # 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21,9/26,
 # 10/2 Gerd Kortemeyer  # 10/2 Gerd Kortemeyer
 # 10/5,10/10 Scott Harrison  # 10/5,10/10 Scott Harrison
 # 10/15 Gerd Kortemeyer  
   
 package Apache::lonnet;  package Apache::lonnet;
   
Line 1911  sub EXT { Line 1910  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;           my $symbp;
          if ($symbparm) {           if ($symbparm) {
Line 2008  sub EXT { Line 2011  sub EXT {
 # ------------------------------------------------------------------ Cascade up  # ------------------------------------------------------------------ Cascade up
   
       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);                                     $symbparm);
Line 2057  sub metadata { Line 2060  sub metadata {
                  $keyroot.='_'.$token->[2]->{'part'};                    $keyroot.='_'.$token->[2]->{'part'}; 
       }        }
               if (defined($token->[2]->{'id'})) {                 if (defined($token->[2]->{'id'})) { 
                  $keyroot.='.'.$token->[2]->{'id'};                    $keyroot.='_'.$token->[2]->{'id'}; 
       }        }
               if ($metacache{$uri.':packages'}) {                if ($metacache{$uri.':packages'}) {
                  $metacache{$uri.':packages'}.=','.$package.$keyroot;                   $metacache{$uri.':packages'}.=','.$package.$keyroot;
Line 2070  sub metadata { Line 2073  sub metadata {
                       my $value=$packagetab{$_};                        my $value=$packagetab{$_};
       my $part=$keyroot;        my $part=$keyroot;
                       $part=~s/^\_//;                        $part=~s/^\_//;
                       $part=~s/\./\_/g;  
                       if ($subp eq 'display') {                        if ($subp eq 'display') {
   $value.=' [Part: '.$part.']';    $value.=' [Part: '.$part.']';
                       }                        }
Line 2090  sub metadata { Line 2092  sub metadata {
                  $unikey.='_'.$token->[2]->{'part'};                    $unikey.='_'.$token->[2]->{'part'}; 
       }        }
               if (defined($token->[2]->{'id'})) {                 if (defined($token->[2]->{'id'})) { 
                  $unikey.='.'.$token->[2]->{'id'};                    $unikey.='_'.$token->[2]->{'id'}; 
       }        }
               if (defined($token->[2]->{'name'})) {                 if (defined($token->[2]->{'name'})) { 
                  $unikey.='_'.$token->[2]->{'name'};                    $unikey.='_'.$token->[2]->{'name'}; 
Removed from v.1.164  
changed lines
  Added in v.1.165

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