--- loncom/interface/lonmeta.pm 2003/06/30 17:17:30 1.32 +++ loncom/interface/lonmeta.pm 2003/07/15 19:04:31 1.33 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.32 2003/06/30 17:17:30 albertel Exp $ +# $Id: lonmeta.pm,v 1.33 2003/07/15 19:04:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -290,6 +290,7 @@ ENDHEAD delete($content{'lastrevisiondate'}); delete($content{'owner'}); delete($content{'copyright'}); + delete($content{'customdistributionfile'}); if ($ENV{'user.adv'}) { # ------------------------------------------------------------ Dynamic Metadata $r->print( @@ -382,20 +383,22 @@ $dynmeta{$_}." \n"); '

Additional Metadata (non-standard, parameters, exports)

'); foreach (sort keys %content) { my $name=$_; - my $display=&Apache::lonnet::metadata($uri,$name.'.display'); - unless ($display) { $display=$name; }; - my $otherinfo=''; - foreach ('name','part','type','default') { - if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) { - $otherinfo.=' '.$_.'='. - &Apache::lonnet::metadata($uri,$name.'.'.$_).'; '; - } + unless ($name=~/\.display$/) { + my $display=&Apache::lonnet::metadata($uri,$name.'.display'); + unless ($display) { $display=$name; }; + my $otherinfo=''; + foreach ('name','part','type','default') { + if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) { + $otherinfo.=' '.$_.'='. + &Apache::lonnet::metadata($uri,$name.'.'.$_).'; '; + } + } + $r->print(''.$display.': '.$content{$name}); + if ($otherinfo) { + $r->print(' ('.$otherinfo.')'); + } + $r->print("
\n"); } - $r->print(''.$display.': '.$content{$name}); - if ($otherinfo) { - $r->print(' ('.$otherinfo.')'); - } - $r->print("
\n"); } } # ===================================================== End Resource Space Call