[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.139 and 1.141

version 1.139, 2006/05/05 20:03:43 version 1.141, 2006/06/30 04:15:07
Line 61  use Apache::lonmsgdisplay(); Line 61  use Apache::lonmsgdisplay();
 use Time::HiRes;  use Time::HiRes;
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
 use Spreadsheet::WriteExcel::Utility();  use Spreadsheet::WriteExcel::Utility();
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 #######################################################  #######################################################
 #######################################################  #######################################################
Line 315  the chart page. Line 318  the chart page.
 #######################################################  #######################################################
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart');      $Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data');
 #    $Str .= &CreateLegend();  #    $Str .= &CreateLegend();
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b>'.
     $Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';   &Apache::loncommon::help_open_topic("Chart_Sections").
     $Str .= '<td align="center"><b>'.&mt('Student Data</b>').'</td>';   '</td>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Groups').'</b>'.
     $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';   '</td>';
       $Str .= '<td align="center"><b>'.&mt('Student Data</b>').
    &Apache::loncommon::help_open_topic("Chart_Student_Data").
    '</td>';
       $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b>'.
    &Apache::loncommon::help_open_topic("Chart_Enrollment_Status").
    '</td>';
       $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'.
    &Apache::loncommon::help_open_topic("Chart_Sequences").
    '</td>';
     $Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'.      $Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'.
         &Apache::loncommon::help_open_topic("Chart_Output_Formats").          &Apache::loncommon::help_open_topic("Chart_Output_Formats").
         '</td>';          '</td>';
Line 1946  sub student_tries_on_sequence { Line 1958  sub student_tries_on_sequence {
                     &Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');                      &Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');
                 }                  }
                 my $link = '/adm/grades'.                  my $link = '/adm/grades'.
                     '?symb='.&Apache::lonnet::escape($resource->symb).                      '?symb='.&escape($resource->symb).
                         '&student='.$student->{'username'}.                          '&student='.$student->{'username'}.
                             '&userdom='.$student->{'domain'}.                              '&userdom='.$student->{'domain'}.
                                 '&command=submission';                                  '&command=submission';
Line 2101  sub student_performance_on_sequence { Line 2113  sub student_performance_on_sequence {
             #              #
             if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) {              if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) {
                 my $link = '/adm/grades' .                  my $link = '/adm/grades' .
                     '?symb='.&Apache::lonnet::escape($symb).                      '?symb='.&escape($symb).
                     '&student='.$student->{'username'}.                      '&student='.$student->{'username'}.
                     '&userdom='.$student->{'domain'}.                      '&userdom='.$student->{'domain'}.
                     '&command=submission';                      '&command=submission';
Removed from v.1.139  
changed lines
  Added in v.1.141

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