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

Diff for /loncom/homework/grades.pm between versions 1.443 and 1.444

version 1.443, 2007/10/04 02:00:29 version 1.444, 2007/10/05 16:43:31
Line 6954  sub grading_menu { Line 6954  sub grading_menu {
   
     #      #
     # Define menu data      # Define menu data
            $env{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
       my ($table) = &showResourceInfo($symb,$env{'form.probTitle'});
       $request->print($table);
     my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),      my %fields = ('symb'=>&Apache::lonenc::check_encrypt($symb),
                   'handgrade'=>$hdgrade,                    'handgrade'=>$hdgrade,
                   'probTitle'=>$probTitle,                    'probTitle'=>$probTitle,
Line 6989  sub grading_menu { Line 6991  sub grading_menu {
     $fields{'command'} = 'verify';      $fields{'command'} = 'verify';
     $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);      $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
     push (@menu, { url => $url,      push (@menu, { url => $url,
                      jscript => ' onChange="javascript:checkReceiptNo(this.form,\'OK\')" ',
                    name => &mt('Verify Receipt'),                     name => &mt('Verify Receipt'),
                    short_description =>                      short_description => 
             &mt('')});              &mt('')});
Line 7008  sub grading_menu { Line 7011  sub grading_menu {
     #      #
     # Create the menu      # Create the menu
     my $Str;      my $Str;
     $Str .= '<h2>'.&mt('Please select a grading task').'</h2>';      # $Str .= '<h2>'.&mt('Please select a grading task').'</h2>';
       $Str .= '<form method="post" action="adm/grades" name="gradingMenu">';
     foreach my $menudata (@menu) {      foreach my $menudata (@menu) {
         $Str .='    <h3><a href="'.          $Str .='    <h3><a '.
               $menudata->{'jscript'}.
               ' href="'.
             $menudata->{'url'}.'" >'.              $menudata->{'url'}.'" >'.
             $menudata->{'name'}."</a></h3>\n";              $menudata->{'name'}."</a></h3>\n";
           if ($menudata->{'name'} eq &mt('Verify Receipt')) {
               $Str .= ' receipt: 156-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')" />';
           }
         $Str .= '    '.('&nbsp;'x8).$menudata->{'short_description'}.          $Str .= '    '.('&nbsp;'x8).$menudata->{'short_description'}.
             "\n";              "\n";
     }      }
     $Str .="</dl>\n";      $Str .="</dl>\n";
           $Str .="</form>\n";
     $request->print(<<GRADINGMENUJS);      $request->print(<<GRADINGMENUJS);
 <script type="text/javascript" language="javascript">  <script type="text/javascript" language="javascript">
     function checkChoice(formname,val,cmdx) {      function checkChoice(formname,val,cmdx) {
Removed from v.1.443  
changed lines
  Added in v.1.444

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