[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.146

version 1.142, 2006/07/03 03:54:32 version 1.146, 2007/12/20 13:57:13
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 .= '<font color="blue">No Course Data</font>'."\n";
    } else {
       $Str .= '<span class="LC_error">Error getting student data ('.
    $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 1951  sub student_tries_on_sequence { Line 1957  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->symb).
                         '&student='.$student->{'username'}.                          '&student='.$student->{'username'}.
Removed from v.1.142  
changed lines
  Added in v.1.146

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