--- loncom/lonnet/perl/lonnet.pm	2001/08/04 19:07:31	1.138
+++ loncom/lonnet/perl/lonnet.pm	2001/08/04 20:13:17	1.139
@@ -1871,9 +1871,15 @@ sub metadata {
               map {
 		  if ($_=~/^$package\&/) {
 		      my ($pack,$name,$subp)=split(/\&/,$_);
-                      my $unikey='parameter_'.$keyroot.'_'.$name;
+                      my $value=$packagetab{$_};
+                      if ($subp eq 'display') {
+			  my $part=$keyroot;
+                          $part=~s/^\_//;
+			  $value.=' [Part: '.$part.']';
+                      }
+                      my $unikey='parameter'.$keyroot.'_'.$name;
                       $thispackagekeys{$unikey}=1;
-                      $metacache{$uri.':'.$unikey.'.'.$subp}=$packagetab{$_};
+                      $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
                   }
               } keys %packagetab;
               my $addpackagekeys=join(',',keys %thispackagekeys);