[LON-CAPA-cvs] cvs: loncom /metadata_database/LONCAPA lonmetadata.pm

[matthew]

matthew		Wed Apr 14 16:35:29 2004 EDT

  Modified files:              
    /loncom/metadata_database/LONCAPA	lonmetadata.pm 
  Log:
  &process_dynamic_metadata:
  Reworked html around evaluation comments.
  Actually put the comments into the returned data structure now, instead of
  just letting perl garbage collection throw it away.
  
  
Index: loncom/metadata_database/LONCAPA/lonmetadata.pm
diff -u loncom/metadata_database/LONCAPA/lonmetadata.pm:1.6 loncom/metadata_database/LONCAPA/lonmetadata.pm:1.7
--- loncom/metadata_database/LONCAPA/lonmetadata.pm:1.6	Wed Apr 14 14:29:31 2004
+++ loncom/metadata_database/LONCAPA/lonmetadata.pm	Wed Apr 14 16:35:29 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonmetadata.pm,v 1.6 2004/04/14 18:29:31 matthew Exp $
+# $Id: lonmetadata.pm,v 1.7 2004/04/14 20:35:29 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -572,11 +572,14 @@
     # put together comments
     my $comments = '<div class="LCevalcomments">';
     foreach my $evaluator (keys(%{$resdata->{'evaluation'}->{'comments'}})){
-        $comments .= '<span class="author">'.$evaluator.'</span>'.
-            '<span class="comment">'.
-            $resdata->{'evaluation'}->{'comments'}->{$evaluator}.'</span>';
+        $comments .= 
+            '<p>'.
+            '<b>'.$evaluator.'</b>:'.
+            $resdata->{'evaluation'}->{'comments'}->{$evaluator}.
+            '</p>';
     }
     $comments .= '</div>';
+    $data{'comments'} = $comments;
     #
     return %data;
 }