[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.142 and 1.149

version 1.142, 2006/07/03 03:54:32 version 1.149, 2008/09/16 08:49:08
Line 330  sub CreateInterface { Line 330  sub CreateInterface {
     $Str .= '<td align="center"><b>'.&mt('Student Data</b>').      $Str .= '<td align="center"><b>'.&mt('Student Data</b>').
  &Apache::loncommon::help_open_topic("Chart_Student_Data").   &Apache::loncommon::help_open_topic("Chart_Student_Data").
  '</td>';   '</td>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b>'.      $Str .= '<td align="center"><b>'.&mt('Access Status').'</b>'.
  &Apache::loncommon::help_open_topic("Chart_Enrollment_Status").   &Apache::loncommon::help_open_topic("Chart_Enrollment_Status").
  '</td>';   '</td>';
     $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'.      $Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b>'.
Line 372  sub CreateInterface { Line 372  sub CreateInterface {
     $Str .= '&nbsp;'x5;      $Str .= '&nbsp;'x5;
     $Str .=       $Str .= 
         &mt('Status [_1]',          &mt('Status [_1]',
             '<input type="text" name="stats_status" size="60" value="" />');              '<input type="text" name="stats_status" size="60" value="" readonly="readonly" />');
     $Str .= '<br />';      $Str .= '<br />';
     return $Str;      return $Str;
 }  }
Line 671  sub html_initialize { Line 671  sub html_initialize {
     # If we're showing links, show a checkbox to open in new      # If we're showing links, show a checkbox to open in new
     # windows.      # windows.
     if ($show_links ne 'no') {      if ($show_links ne 'no') {
           my $labeltext = &mt('Show links in new window:');
         $r->print(<<NEW_WINDOW_CHECKBOX);          $r->print(<<NEW_WINDOW_CHECKBOX);
 <script type="text/javascript">new_window = true;</script>  <script type="text/javascript">new_window = true;</script>
 <p><label>Show links in new window:   <p><label>$labeltext 
 <input type="checkbox" checked="1" onclick="new_window=this.checked" />  <input type="checkbox" checked="1" onclick="new_window=this.checked" />
 </label></p>  </label></p>
 NEW_WINDOW_CHECKBOX  NEW_WINDOW_CHECKBOX
Line 684  NEW_WINDOW_CHECKBOX Line 685  NEW_WINDOW_CHECKBOX
               "&nbsp;&nbsp;".localtime(time)."</h3>");                "&nbsp;&nbsp;".localtime(time)."</h3>");
     #      #
     if ($chosen_output->{'base'} !~ /^final table/) {      if ($chosen_output->{'base'} !~ /^final table/) {
         $r->print("<h3>".$chosen_output->{'shortdesc'}."</h3>");                  $r->print("<h3>".&mt($chosen_output->{'shortdesc'})."</h3>");        
     }      }
     my $Str = "<pre>\n";      my $Str = "<pre>\n";
     # First, the @StudentData fields need to be listed      # First, the @StudentData fields need to be listed
Line 843  sub html_outputstudent { Line 844  sub html_outputstudent {
     my @tmp = &Apache::loncoursedata::get_current_state      my @tmp = &Apache::loncoursedata::get_current_state
         ($student->{'username'},$student->{'domain'},undef,          ($student->{'username'},$student->{'domain'},undef,
          $env{'request.course.id'});           $env{'request.course.id'});
     if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {      if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:(.*)/)) {
         %StudentsData = @tmp;          %StudentsData = @tmp;
     }      } else {
     if (scalar(@tmp) < 1) {   my $error = $1;
    if (scalar(@tmp) < 1) {
       $Str .= '<span class="LC_warning">'
                      .&mt('No Course Data')
                      .'</span>'."\n";
    } else {
               $Str .= '<span class="LC_error">'
                      .&mt('Error getting student data ([_1])',$error)
                      .'</span>'."\n";
    }
         $nodata_count++;          $nodata_count++;
         $Str .= '<font color="blue">No Course Data</font>'."\n";  
         $r->print($Str);          $r->print($Str);
         $r->rflush();          $r->rflush();
         return;          return;
Line 1820  sub csv_finish { Line 1829  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.'">'.&mt('Your csv file.').'</a>'."\n");                '<a href="'.$filename.'">'.&mt('Your CSV file.').'</a>'."\n");
     $r->rflush();      $r->rflush();
     &csv_cleanup();      &csv_cleanup();
     return;      return;
Line 1951  sub student_tries_on_sequence { Line 1960  sub student_tries_on_sequence {
             #              #
             if ( ($links eq 'yes' && $symbol ne ' ') ||              if ( ($links eq 'yes' && $symbol ne ' ') ||
                  ($links eq 'all')) {                   ($links eq 'all')) {
                 if (length($symbol) > 1) {  
                     &Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');  
                 }  
                 my $link = '/adm/grades'.                  my $link = '/adm/grades'.
                     '?symb='.&escape($resource->symb).                      '?symb='.&escape($resource->shown_symb).
                         '&student='.$student->{'username'}.                          '&student='.$student->{'username'}.
                             '&userdom='.$student->{'domain'}.                              '&userdom='.$student->{'domain'}.
                                 '&command=submission';                                  '&command=submission';
Line 2110  sub student_performance_on_sequence { Line 2116  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='.&escape($symb).                      '?symb='.&escape($resource->shown_symb).
                     '&student='.$student->{'username'}.                      '&student='.$student->{'username'}.
                     '&userdom='.$student->{'domain'}.                      '&userdom='.$student->{'domain'}.
                     '&command=submission';                      '&command=submission';
Removed from v.1.142  
changed lines
  Added in v.1.149

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