--- loncom/interface/lonmeta.pm 2001/08/10 17:16:06 1.6
+++ loncom/interface/lonmeta.pm 2001/08/10 17:20:19 1.7
@@ -6,7 +6,7 @@
#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
-# 10/19,10/21,10/23,11/27 Gerd Kortemeyer
+# 10/19,10/21,10/23,11/27,08/09/01 Gerd Kortemeyer
package Apache::lonmeta;
@@ -36,10 +36,11 @@ sub handler {
} split(/\,/,&Apache::lonnet::metadata($uri,'keys'));
# ------------------------------------------------------------------ Hide stuff
- if (!$ENV{'user.adv'}) {
- map {
- $content{$_}='- not displayed -';
- } ('keywords','notes','abstract','subject');
+
+ unless ($ENV{'user.adv'}) {
+ map {
+ $content{$_}='- not displayed -';
+ } ('keywords','notes','abstract','subject');
}
# --------------------------------------------------------------- Render Output
@@ -79,7 +80,8 @@ ENDHEAD
delete($content{'lastrevisiondate'});
delete($content{'owner'});
delete($content{'copyright'});
- map {
+ if ($ENV{'user.adv'}) {
+ map {
my $name=$_;
my $display=&Apache::lonnet::metadata($uri,$name.'.display');
unless ($display) { $display=$name; };
@@ -95,7 +97,8 @@ ENDHEAD
$r->print(' ('.$otherinfo.')');
}
$r->print("
\n");
- } sort keys %content;
+ } sort keys %content;
+ }
$r->print('