--- loncom/lonnet/perl/lonnet.pm	2001/08/07 22:56:06	1.143
+++ loncom/lonnet/perl/lonnet.pm	2001/08/08 17:56:57	1.144
@@ -122,7 +122,7 @@
 # 5/30 H. K. Ng
 # 6/1 Gerd Kortemeyer
 # July Guy Albertelli
-# 8/4,8/7 Gerd Kortemeyer
+# 8/4,8/7,8/8 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -1878,13 +1878,14 @@ sub metadata {
 		  if ($_=~/^$package\&/) {
 		      my ($pack,$name,$subp)=split(/\&/,$_);
                       my $value=$packagetab{$_};
+		      my $part=$keyroot;
+                      $part=~s/^\_//;
                       if ($subp eq 'display') {
-			  my $part=$keyroot;
-                          $part=~s/^\_//;
 			  $value.=' [Part: '.$part.']';
                       }
                       my $unikey='parameter'.$keyroot.'_'.$name;
                       $metathesekeys{$unikey}=1;
+                      $metacache{$uri.':'.$unikey.'.part'}=$part;
                       unless 
                        (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
                          $metacache{$uri.':'.$unikey.'.'.$subp}=$value;