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

Diff for /loncom/homework/grades.pm between versions 1.497 and 1.500

version 1.497, 2007/11/21 12:16:42 version 1.500, 2007/12/15 21:54:35
Line 4174  sub displayPage { Line 4174  sub displayPage {
     my $result='<h3><span class="LC_info">&nbsp;'.$env{'form.title'}.'</span></h3>';      my $result='<h3><span class="LC_info">&nbsp;'.$env{'form.title'}.'</span></h3>';
     $result.='<h3>&nbsp;'.&mt('Student: [_1]',&nameUserString(undef,$$fullname{$env{'form.student'}},$uname,$udom)).      $result.='<h3>&nbsp;'.&mt('Student: [_1]',&nameUserString(undef,$$fullname{$env{'form.student'}},$uname,$udom)).
  '</h3>'."\n";   '</h3>'."\n";
     if (&Apache::lonnet::validCODE($env{'form.CODE'})) {      $env{'form.CODE'} = uc($env{'form.CODE'});
       if (&Apache::lonnet::validCODE(uc($env{'form.CODE'})) {
  $result.='<h3>&nbsp;'.&mt('CODE: [_1]',$env{'form.CODE'}).'</h3>'."\n";   $result.='<h3>&nbsp;'.&mt('CODE: [_1]',$env{'form.CODE'}).'</h3>'."\n";
     } else {      } else {
  delete($env{'form.CODE'});   delete($env{'form.CODE'});
Line 6672  sub prompt_for_corrections { Line 6673  sub prompt_for_corrections {
     my $current_line = $first_bubble_line{$question-1} + 1 ;      my $current_line = $first_bubble_line{$question-1} + 1 ;
   
     if ($lines > 1) {      if ($lines > 1) {
  $r->print("The group of bubble lines below responds to a single question.  ");   $r->print(&mt("The group of bubble lines below responds to a single question. Select at most one bubble in a single line and select 'No Bubble' in all the other lines. ")."<br />");
  $r->print("Select at most one bubble in a single line and select 'No Bubble' ");  
  $r->print("in all the other lines. <br />");  
     }      }
     for (my $i =0; $i < $lines; $i++) {      for (my $i =0; $i < $lines; $i++) {
  my $selected = $$scan_record{"scantron.$current_line.answer"};   my $selected = $$scan_record{"scantron.$current_line.answer"};
Line 7678  GRADINGMENUJS Line 7677  GRADINGMENUJS
       </div>        </div>
     </div>      </div>
   </form>';    </form>';
       $result .= &show_grading_menu_form($symb);
     return $result;      return $result;
 }  }
   
Removed from v.1.497  
changed lines
  Added in v.1.500

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