[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.332 and 1.334

version 1.332, 2003/03/01 15:13:58 version 1.334, 2003/03/06 22:41:41
Line 3041  sub EXT { Line 3041  sub EXT {
     return '';      return '';
 }  }
   
   sub add_prefix_and_part {
       my ($prefix,$part)=@_;
       my $keyroot;
       if (defined($prefix) && $prefix !~ /^__/) {
    # prefix that has a part already
    $keyroot=$prefix;
       } elsif (defined($prefix)) {
    # prefix that is missing a part
    if (defined($part)) { $keyroot='_'.$part.substr($prefix,1); }
       } else {
    # no prefix at all
    if (defined($part)) { $keyroot='_'.$part; }
       }
       return $keyroot;
   }
   
 # ---------------------------------------------------------------- Get metadata  # ---------------------------------------------------------------- Get metadata
   
 sub metadata {  sub metadata {
Line 3080  sub metadata { Line 3096  sub metadata {
 # This is a package - get package info  # This is a package - get package info
 #  #
       my $package=$token->[2]->{'package'};        my $package=$token->[2]->{'package'};
       my $keyroot='';        my $keyroot=&add_prefix_and_part($prefix,$token->[2]->{'part'});
               if ($prefix) {  
   $keyroot.=$prefix;  
               } else {  
                 if (defined($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'}; 
       }        }
Line 3128  sub metadata { Line 3137  sub metadata {
               } else {                } else {
                  $unikey=$entry;                   $unikey=$entry;
       }        }
               if ($prefix) {        $unikey.=&add_prefix_and_part($prefix,$token->[2]->{'part'});
   $unikey.=$prefix;  
               } else {  
                 if (defined($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'}; 
       }        }
Removed from v.1.332  
changed lines
  Added in v.1.334

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