loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.332, 2003/03/01 15:13:58
+version 1.333, 2003/03/06 21:08:21
  Line 3081  sub metadata {
  #
  	      my $package=$token->[2]->{'package'};
  	      my $keyroot='';
-               if ($prefix) {
+               if (defined($prefix) && $prefix !~ /^__/) {
- 		  $keyroot.=$prefix;
+ 		  # prefix that has a part already
-               } else {
+ 		  $keyroot=$prefix;
-                 if (defined($token->[2]->{'part'})) {
+               } elsif (defined($prefix)) {
-                    $keyroot.='_'.$token->[2]->{'part'};
+ 		  # prefix that is missing a part
- 	        }
+ 		  if (defined($token->[2]->{'part'})) {
+ 		      $keyroot='_'.$token->[2]->{'part'}.substr($prefix,1);
+ 		  }
+ 	      } else {
+ 		  # no prefix at all
+ 		  if (defined($token->[2]->{'part'})) {
+ 		      $keyroot='_'.$token->[2]->{'part'};
+ 		  }
  	      }
                if (defined($token->[2]->{'id'})) {
                   $keyroot.='_'.$token->[2]->{'id'};