--- loncom/interface/statistics/lonstudentassessment.pm	2003/06/05 19:21:22	1.52
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/06/07 14:45:41	1.53
@@ -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 @@ sub csv_initialize{
             $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 @@ sub csv_initialize{
         } 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);