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

[matthew]

matthew		Sat Jun  7 10:45:41 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Add verbose column headings to csv output.
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.52 loncom/interface/statistics/lonstudentassessment.pm:1.53
--- loncom/interface/statistics/lonstudentassessment.pm:1.52	Thu Jun  5 15:21:22 2003
+++ loncom/interface/statistics/lonstudentassessment.pm	Sat Jun  7 10:45:41 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.52 2003/06/05 19:21:22 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.53 2003/06/07 14:45:41 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1089,7 +1089,8 @@
             $Str .= '"",'; # first row empty on the student fields
             $Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
         } elsif ($show eq 'all') {
-            $Str .= '"'.&Apache::loncommon::csv_translate($field).'",';
+            $Str  .= '"",';
+            $Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
         }
     }
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
@@ -1103,8 +1104,13 @@
         } elsif ($show eq 'all') {
             $Str  .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
                 '",';
-            $Str .= '"",'x($seq->{'num_assess_parts'}-1);
-            $Str .= '"score","total possible",';
+            $Str .= '"",'x($seq->{'num_assess_parts'}-1+2);
+            foreach my $res (@{$seq->{'contents'}}) {
+                foreach my $part (@{$res->{'parts'}}) {
+                    $Str2 .= '"'.&Apache::loncommon::csv_translate($res->{'title'}.', Part '.$part).'",';
+                }
+            }
+            $Str2 .= '"score","total possible",';
         }
     }
     chop($Str);