[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.90 and 1.96

version 1.90, 2004/02/12 21:15:47 version 1.96, 2004/03/08 17:31:37
Line 306  the chart page. Line 306  the chart page.
 #######################################################  #######################################################
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Chart');
 #    $Str .= &CreateLegend();  #    $Str .= &CreateLegend();
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
Line 401  my @OutputOptions = Line 402  my @OutputOptions =
    },     },
      { name  => 'CSV',       { name  => 'CSV',
        value => 'csv',         value => 'csv',
        description => 'Output a comma seperated values file suitable for '.         description => 'Output a comma separated values file suitable for '.
            'import into a spreadsheet program.  Using this method as opposed '.             'import into a spreadsheet program.  Using this method as opposed '.
            'to Excel output allows you to organize your data before importing'.             'to Excel output allows you to organize your data before importing'.
            ' it into a spreadsheet program.',             ' it into a spreadsheet program.',
Line 642  sub html_initialize { Line 643  sub html_initialize {
             # Use 3 digits for the total              # Use 3 digits for the total
             $sequence->{'width_sum'}+=3;              $sequence->{'width_sum'}+=3;
         }          }
    #
         if ($chosen_output->{'every_problem'}) {          if ($chosen_output->{'every_problem'}) {
             # one problem per digit              # one problem per digit
             $sequence->{'width_problem'} = $sequence->{'num_assess_parts'};              $sequence->{'width_problem'} = $sequence->{'num_assess_parts'};
Line 650  sub html_initialize { Line 652  sub html_initialize {
         }          }
         $sequence->{'width_total'} = $sequence->{'width_problem'} +           $sequence->{'width_total'} = $sequence->{'width_problem'} + 
                                      $sequence->{'width_sum'};                                       $sequence->{'width_sum'};
         if ($sequence->{'width_total'} < length($sequence->{'title'})) {          if ($sequence->{'width_total'} < length(&HTML::Entities::decode($sequence->{'title'}))) {
             $sequence->{'width_total'} = length($sequence->{'title'});              $sequence->{'width_total'} = length(&HTML::Entities::decode($sequence->{'title'}));
             $sequence->{'width_problem'} =   
                 $sequence->{'width_total'} - $sequence->{'width_sum'};  
         }          }
         #          #
         # Output the sequence titles          # Output the sequence titles
Line 727  sub html_outputstudent { Line 727  sub html_outputstudent {
         #          #
         if (! $chosen_output->{'every_problem'}) {          if (! $chosen_output->{'every_problem'}) {
             $performance = '';              $performance = '';
       $performance_length=0;
         }          }
         $performance .= ' 'x($seq->{'width_problem'}-$performance_length).          $performance .= ' 'x($seq->{'width_total'}-$performance_length-$seq->{'width_sum'}).
             $ratio;              $ratio;
         #          #
         $Str .= $performance.$padding;          $Str .= $performance.$padding;
Line 970  END Line 971  END
     # File::Temp is used to determine the temporary directory.      # File::Temp is used to determine the temporary directory.
     $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);      $excel_workbook->set_tempdir($Apache::lonnet::tmpdir);
     #      #
       my $format = &Apache::loncommon::define_excel_formats($excel_workbook);
       #
     # Add a worksheet      # Add a worksheet
     my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};      my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
     $sheetname = &Apache::loncommon::clean_excel_name($sheetname);      $sheetname = &Apache::loncommon::clean_excel_name($sheetname);
     $excel_sheet = $excel_workbook->addworksheet($sheetname);      $excel_sheet = $excel_workbook->addworksheet($sheetname);
     #      #
     # Define some potentially useful formats  
     my $format;  
     $format->{'header'} = $excel_workbook->add_format(bold      => 1,   
                                                       bottom    => 1,  
                                                       align     => 'center');  
     $format->{'bold'} = $excel_workbook->add_format(bold=>1);  
     $format->{'h1'}   = $excel_workbook->add_format(bold=>1, size=>18);  
     $format->{'h2'}   = $excel_workbook->add_format(bold=>1, size=>16);  
     $format->{'h3'}   = $excel_workbook->add_format(bold=>1, size=>14);  
     $format->{'date'} = $excel_workbook->add_format(num_format=>  
                                                     'mmm d yyyy hh:mm AM/PM');  
     #  
     # Put the course description in the header      # Put the course description in the header
     $excel_sheet->write($header_row,$cols_output++,      $excel_sheet->write($header_row,$cols_output++,
                    $ENV{'course.'.$ENV{'request.course.id'}.'.description'},                     $ENV{'course.'.$ENV{'request.course.id'}.'.description'},
Line 1595  sub csv_finish { Line 1586  sub csv_finish {
     #      #
     # Tell the user where to get their csv file      # Tell the user where to get their csv file
     $r->print('<br />'.      $r->print('<br />'.
               '<a href="'.$filename.'">Your csv file.</a>'."\n");                '<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n");
     $r->rflush();      $r->rflush();
     return;      return;
           
Removed from v.1.90  
changed lines
  Added in v.1.96

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