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

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 25 Feb 2005 19:17:44 -0000


matthew		Fri Feb 25 14:17:44 2005 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  html_initialized: Fix bug in computation of column widths.
     $res->parts returns a reference, not an array.
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.112 loncom/interface/statistics/lonstudentassessment.pm:1.113
--- loncom/interface/statistics/lonstudentassessment.pm:1.112	Thu Feb 24 21:37:49 2005
+++ loncom/interface/statistics/lonstudentassessment.pm	Fri Feb 25 14:17:44 2005
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.112 2005/02/25 02:37:49 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.113 2005/02/25 19:17:44 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -686,7 +686,7 @@
                                            0,0,0);
             $starttime = Time::HiRes::time;
             foreach my $res (@resources) {
-                my @parts = $res->parts;
+                my @parts = @{$res->parts};
                 $width{$symb}->{'width_parts'} += scalar(@parts);
             } 
             &Apache::lonnet::logthis('2elapsed:'.(Time::HiRes::time-$starttime));            $width{$symb}->{'width_problem'} +=