--- 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