--- loncom/interface/statistics/lonstudentassessment.pm	2004/09/23 17:48:00	1.105
+++ loncom/interface/statistics/lonstudentassessment.pm	2004/12/10 16:52:53	1.107
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.105 2004/09/23 17:48:00 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.107 2004/12/10 16:52:53 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1064,13 +1064,14 @@ sub excel_initialize {
                                             $cols_output++,
                                             $res->{'title'}.' part '.$part,
                                             $format->{'bold'});
+                        $count++;
                     }
                 } else {
                     $excel_sheet->write($resource_name_row,
                                         $cols_output++,
                                         $res->{'title'},$format->{'bold'});
+                    $count++;
                 }
-                $count++;
             }
         }
         # Determine ending cell
@@ -1218,7 +1219,7 @@ sub excel_initialize {
         if ($chosen_output->{'grand_maximum'}) {
             $excel_sheet->repeat_formula($maximum_data_row,$cols_output++,
                                          $maximum_formula,undef,
-                                         %total_cell_translation);
+                                         %maximum_cell_translation);
         }
     } # End of MAXIMUM row output  if ($chosen_output->{'maximum_row'}) {
     $rows_output = $first_data_row;
@@ -1333,6 +1334,10 @@ sub excel_outputstudent {
         $total_cell_translation{$seq->{'Excel:scorecell'}} = 
             &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
                         ($rows_output,$seq->{'Excel:scorecol'});
+        # and maximum cell
+        $maximum_cell_translation{$seq->{'Excel:maxcell'}} = 
+            &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell
+            ($rows_output,$seq->{'Excel:maxcol'});
         #
         my ($performance,$performance_length,$score,$seq_max,$rawdata);
         if ($chosen_output->{'tries'} || $chosen_output->{'correct'}){
@@ -1403,7 +1408,7 @@ sub excel_outputstudent {
     if ($chosen_output->{'grand_maximum'}) {
         $excel_sheet->repeat_formula($rows_output,$cols_output++,
                                      $maximum_formula,undef,
-                                     %total_cell_translation);
+                                     %maximum_cell_translation);
     }
     #
     # Bookkeeping