[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.712 and 1.714

version 1.712, 2014/01/15 14:46:26 version 1.714, 2014/01/18 01:44:47
Line 1944  sub submission { Line 1944  sub submission {
     if (!&canview($usec)) {      if (!&canview($usec)) {
         $request->print(          $request->print(
             '<span class="LC_warning">'.              '<span class="LC_warning">'.
             &mt('Unable to view requested student.'.              &mt('Unable to view requested student.').
             ' '.&mt('([_1] in section [_2] in course id [_3])',              ' '.&mt('([_1] in section [_2] in course id [_3])',
                         $uname.':'.$udom,$usec,$env{'request.course.id'}).                          $uname.':'.$udom,$usec,$env{'request.course.id'}).
             '</span>');              '</span>');
Line 2551  sub show_previous_task_version { Line 2551  sub show_previous_task_version {
     if (!&canview($usec)) {      if (!&canview($usec)) {
         $request->print(          $request->print(
             '<span class="LC_warning">'.              '<span class="LC_warning">'.
             &mt('Unable to view previous version for requested student.'.              &mt('Unable to view previous version for requested student.').
             ' '.&mt('([_1] in section [_2] in course id [_3])',              ' '.&mt('([_1] in section [_2] in course id [_3])',
                     $uname.':'.$udom,$usec,$env{'request.course.id'}).                      $uname.':'.$udom,$usec,$env{'request.course.id'}).
             '</span>');              '</span>');
Line 7589  sub prompt_for_corrections { Line 7589  sub prompt_for_corrections {
             }              }
         } else {          } else {
             $responsenum = $question-1;              $responsenum = $question-1;
             $first = $first_bubble_line{$responsenum} + 1;              $first = $first_bubble_line{$responsenum};
         }          }
         $current_line = $first + 1 ;          $current_line = $first + 1 ;
         my @subans = split(/,/,$subdivided_bubble_lines{$responsenum});          my @subans = split(/,/,$subdivided_bubble_lines{$responsenum});
Removed from v.1.712  
changed lines
  Added in v.1.714

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