--- loncom/interface/statistics/lonstudentassessment.pm	2003/03/03 22:54:05	1.32
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/03/04 14:21:36	1.33
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.32 2003/03/03 22:54:05 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.33 2003/03/04 14:21:36 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -143,6 +143,7 @@ the button marked "Update Disp
 </font>
 </p>
 ENDMSG
+#        $r->print(&OutputDescriptions());
         return;
     }
     #
@@ -273,33 +274,62 @@ sub CreateInterface {
 my @OutputOptions = 
     ({ name  => 'HTML, with links',
        value => 'html, with links',
-       description => ''},
+       description => 'Output HTML with each symbol linked to the problem '.
+	   'which generated it.'},
      { name  => 'HTML, without links',
        value => 'html, without links',
-       description => ''},
-     { name  => 'HTML, totals',
-       value => 'html, totals',
-       description => ''},
+       description => 'Output HTML.  By not including links, the size of the'.
+	   ' web page is greatly reduced.  If your browser crashes on the '.
+	   'full display, try this.'},
      { name  => 'HTML, scores only',
        value => 'html, scores only',
-       description => ''},
+       description => 'Output HTML, only showing the total number of correct'.
+	   ' problems (or problem parts) and not the maximum possible for '.
+	   'each student'},
+     { name  => 'HTML, totals',
+       value => 'html, totals',
+       description => 'Output HTML, but only the summary statistics for each'.
+	   ' sequence selected.'},
+     { name  => 'Excel, scores only',
+       value => 'excel, scores only',
+       description => 'Output an Excel file (compatable with Excel 95), '.
+	   'with a single column for each sequence showing the students '.
+	   'score.'},
+#     { name  => 'Excel, everything',
+#       value => 'excel, everything',
+#       description => 'Output an Excel file (compatable with Excel 95), '.
+#	   'with a seperate worksheet for each sequence you have selected '.
+#           'the data for each problem part '.
+#           '(number of tries, status, points awarded) '.
+#           'will be listed.'},
      { name  => 'Excel, totals',
        value => 'excel, totals',
+       description => 'Output an Excel file (compatable with Excel 95), '.
+	   'with two columns for each sequence, the students score on the '.
+	   'sequence and the students maximum possible on the sequence'},
+     { name  => 'CSV, everything',
+       value => 'csv, everything',
        description => ''},
-     { name  => 'Excel, scores only',
-       value => 'excel, scores only',
+     { name  => 'CSV, scores only',
+       value => 'csv, scores only',
        description => ''},
      { name  => 'CSV, totals',
        value => 'csv, totals',
        description => ''},
-     { name  => 'CSV, scores only',
-       value => 'csv, scores only',
-       description => ''},
-     { name  => 'CSV, everything',
-       value => 'csv, everything',
-       description => ''}
      );
 
+sub OutputDescriptions {
+    my $Str = '';
+    $Str .= "<h2>Output Modes</h2>\n";
+    $Str .= "<dl>\n";
+    foreach my $outputmode (@OutputOptions) {
+	$Str .="    <dt>".$outputmode->{'name'}."</dt>\n";
+	$Str .="        <dd>".$outputmode->{'description'}."</dd>\n";
+    }
+    $Str .= "</dl>\n";
+    return $Str;
+}
+
 sub CreateAndParseOutputSelector {
     my $Str = '';
     my $elementname = 'outputmode';
@@ -551,8 +581,11 @@ sub excel_initialize {
     $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);
     #
     # Add a worksheet
-    $excel_sheet = $excel_workbook->addworksheet
-        ($ENV{'course.'.$ENV{'request.course.id'}.'.description'});
+    my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    if (length($sheetname) > 31) {
+        $sheetname = substr($sheetname,0,31);
+    }
+    $excel_sheet = $excel_workbook->addworksheet($sheetname);
     #
     # Add the student headers
     foreach my $field (&get_student_fields_to_show()) {