--- loncom/lonnet/perl/lonnet.pm	2000/11/27 20:44:04	1.71
+++ loncom/lonnet/perl/lonnet.pm	2000/11/27 23:10:18	1.72
@@ -1484,10 +1484,10 @@ sub metadata {
            if ($token->[0] eq 'S') {
 	      my $entry=$token->[1];
               my $unikey=$entry;
-              if ($token->[2]->{'part'}) { 
+              if (defined($token->[2]->{'part'})) { 
                  $unikey.='_'.$token->[2]->{'part'}; 
 	      }
-              if ($token->[2]->{'name'}) { 
+              if (defined($token->[2]->{'name'})) { 
                  $unikey.='_'.$token->[2]->{'name'}; 
 	      }
               if ($metacache{$uri.':keys'}) {
@@ -1497,7 +1497,7 @@ sub metadata {
 	      }
               map {
 		  $metacache{$uri.':'.$unikey.'.'.$_}=$token->[2]->{$_};
-              } $token->[3];
+              } @{$token->[3]};
               $metacache{$uri.':'.$unikey}=$parser->get_text('/'.$entry);
           }
        }