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

matthew lon-capa-cvs@mail.lon-capa.org
Wed, 14 Apr 2004 18:56:36 -0000


matthew		Wed Apr 14 14:56:36 2004 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  Fixed another dumb bug.
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.68 loncom/interface/lonmeta.pm:1.69
--- loncom/interface/lonmeta.pm:1.68	Wed Apr 14 14:30:36 2004
+++ loncom/interface/lonmeta.pm	Wed Apr 14 14:56:36 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.68 2004/04/14 18:30:36 matthew Exp $
+# $Id: lonmeta.pm,v 1.69 2004/04/14 18:56:36 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -549,7 +549,7 @@
 sub print_dynamic_metadata {
     my ($r,$uri,$content) = @_;
     #
-    my %content = \$content;
+    my %content = %$content;
     my %lt=&fieldnames();
     #
     my $description = 'Dynamic Metadata (updated periodically)';
@@ -572,6 +572,8 @@
                   &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
     }
     $r->print('</table>');
+    #
+    # Assessment statistics
     if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {
         # This is an assessment, print assessment data
         $r->print(
@@ -605,6 +607,7 @@
                   '</h4>'.
                   &Apache::lonmsg::retrieve_author_res_msg($uri));
     }
+    #
     # All other stuff
     $r->print('<h3>'.
               &mt('Additional Metadata (non-standard, parameters, exports)').