--- loncom/interface/statistics/lonstudentassessment.pm	2003/06/02 18:28:37	1.51
+++ 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.51 2003/06/02 18:28:37 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.53 2003/06/07 14:45:41 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -709,8 +709,8 @@ sub StudentAverageTotal {
 
 sub SingleStudentTotal {
     my $student = &Apache::lonstatistics::current_student();
-    my $Str = "<h3>Summary Table For ".$student->{'username'}.'@'.
-        $student->{'domain'}."</h3>\n";
+    my $Str = "<h3>Summary table for ".$student->{'fullname'}." ".
+        $student->{'username'}.'@'.$student->{'domain'}."</h3>\n";
     $Str .= '<table border=2 cellspacing="1">'."\n";
     $Str .= 
         "<tr><th>Sequence or Folder</th><th>Score</th><th>Maximum</th></tr>\n";
@@ -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);