[BACK]Return to lonstudentassessment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.32 and 1.33

version 1.32, 2003/03/03 22:54:05 version 1.33, 2003/03/04 14:21:36
Line 143  the button marked "Update Disp Line 143  the button marked "Update Disp
 </font>  </font>
 </p>  </p>
 ENDMSG  ENDMSG
   #        $r->print(&OutputDescriptions());
         return;          return;
     }      }
     #      #
Line 273  sub CreateInterface { Line 274  sub CreateInterface {
 my @OutputOptions =   my @OutputOptions = 
     ({ name  => 'HTML, with links',      ({ name  => 'HTML, with links',
        value => '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',       { name  => 'HTML, without links',
        value => 'html, without links',         value => 'html, without links',
        description => ''},         description => 'Output HTML.  By not including links, the size of the'.
      { name  => 'HTML, totals',     ' web page is greatly reduced.  If your browser crashes on the '.
        value => 'html, totals',     'full display, try this.'},
        description => ''},  
      { name  => 'HTML, scores only',       { name  => 'HTML, scores only',
        value => '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',       { name  => 'Excel, totals',
        value => '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 => ''},         description => ''},
      { name  => 'Excel, scores only',       { name  => 'CSV, scores only',
        value => 'excel, scores only',         value => 'csv, scores only',
        description => ''},         description => ''},
      { name  => 'CSV, totals',       { name  => 'CSV, totals',
        value => 'csv, totals',         value => 'csv, totals',
        description => ''},         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 {  sub CreateAndParseOutputSelector {
     my $Str = '';      my $Str = '';
     my $elementname = 'outputmode';      my $elementname = 'outputmode';
Line 551  sub excel_initialize { Line 581  sub excel_initialize {
     $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);      $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);
     #      #
     # Add a worksheet      # Add a worksheet
     $excel_sheet = $excel_workbook->addworksheet      my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
         ($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      # Add the student headers
     foreach my $field (&get_student_fields_to_show()) {      foreach my $field (&get_student_fields_to_show()) {
Removed from v.1.32  
changed lines
  Added in v.1.33

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>