--- loncom/interface/lonmeta.pm	2001/12/25 21:02:35	1.13
+++ loncom/interface/lonmeta.pm	2002/02/11 04:19:40	1.14
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.13 2001/12/25 21:02:35 www Exp $
+# $Id: lonmeta.pm,v 1.14 2002/02/11 04:19:40 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -154,16 +154,16 @@ sub handler {
 # ------------------------------------------------------------------- Read file
 
   my $uri=$r->uri;
-  map {
+  foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
       $content{$_}=&Apache::lonnet::metadata($uri,$_);
-  } split(/\,/,&Apache::lonnet::metadata($uri,'keys'));
+  }
 
 # ------------------------------------------------------------------ Hide stuff
 
   unless ($ENV{'user.adv'}) {
-      map {
+      foreach ('keywords','notes','abstract','subject') {
           $content{$_}='<i>- not displayed -</i>';
-      } ('keywords','notes','abstract','subject');
+      }
   }
 
 # --------------------------------------------------------------- Render Output
@@ -278,12 +278,12 @@ $dynmeta{$_}."&nbsp;</td></tr>\n");
       my $display=&Apache::lonnet::metadata($uri,$name.'.display');
       unless ($display) { $display=$name; };
       my $otherinfo='';
-      map {
+      foreach ('name','part','type','default') {
           if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {
              $otherinfo.=' '.$_.'='.
 		 &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';
           }
-      } ('name','part','type','default'); 
+      }
       $r->print('<b>'.$display.':</b> '.$content{$name});
       if ($otherinfo) {
          $r->print(' ('.$otherinfo.')');