--- 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(''); return OK; }