[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm

[www]

www		Thu Jun 17 11:06:00 2004 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  Have "additional metadata" look better.
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.80 loncom/interface/lonmeta.pm:1.81
--- loncom/interface/lonmeta.pm:1.80	Wed Jun 16 14:33:46 2004
+++ loncom/interface/lonmeta.pm	Thu Jun 17 11:05:59 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.80 2004/06/16 18:33:46 matthew Exp $
+# $Id: lonmeta.pm,v 1.81 2004/06/17 15:05:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,6 @@
 ############################################################
 sub get_dynamic_metadata_from_sql {
     my ($url) = shift();
-    # &Apache::lonnet::logthis('url = '.$url);
     my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:);
     if (! defined($authordom)) {
         $authordom = shift();
@@ -113,7 +112,6 @@
             my $url = $Data[0];
             for (my $i=0;$i<=$#Fields;$i++) {
                 $ReturnHash{$url}->{$Fields[$i]}=$Data[$i];
-                # &Apache::lonnet::logthis('  '.$Fields[$i].' => '.$Data[$i]);
             }
         }
         $finished = 1;
@@ -832,7 +830,7 @@
     # All other stuff
     $r->print('<h3>'.
               &mt('Additional Metadata (non-standard, parameters, exports)').
-              '</h3>');
+              '</h3><table border="0" cellspacing="1">');
     foreach (sort(keys(%content))) {
         my $name=$_;
         if ($name!~/\.display$/) {
@@ -850,13 +848,14 @@
                                                   $name.'.'.$_).'; ';
                 }
             }
-            $r->print('<b>'.$display.':</b> '.$content{$name});
+            $r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name});
             if ($otherinfo) {
                 $r->print(' ('.$otherinfo.')');
             }
-            $r->print("<br />\n");
+            $r->print("</font></td></tr>\n");
         }
     }
+    $r->print("</table>");
     return;
 }