--- loncom/interface/lonmeta.pm 2000/11/27 23:10:59 1.4
+++ loncom/interface/lonmeta.pm 2000/11/28 02:49:10 1.5
@@ -75,8 +75,19 @@ ENDHEAD
map {
my $name=$_;
my $display=&Apache::lonnet::metadata($uri,$name.'.display');
- unless ($display) { $display=$name; };
- $r->print(''.$display.': '.$content{$name}.'
');
+ unless ($display) { $display=$name; };
+ my $otherinfo='';
+ map {
+ if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {
+ $otherinfo.=' '.$_.'='.
+ &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';
+ }
+ } ('name','part','type','default');
+ $r->print(''.$display.': '.$content{$name});
+ if ($otherinfo) {
+ $r->print(' ('.$otherinfo.')');
+ }
+ $r->print("
\n");
} sort keys %content;
$r->print('