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

Diff for /loncom/homework/grades.pm between versions 1.486 and 1.488

version 1.486, 2007/11/08 19:57:30 version 1.488, 2007/11/13 01:14:32
Line 733  sub verifyreceipt { Line 733  sub verifyreceipt {
     $receipt     =~ s/[^\-\d]//g;      $receipt     =~ s/[^\-\d]//g;
     my ($symb)   = &get_symb($request);      my ($symb)   = &get_symb($request);
   
     my $title.='<h3><span class="LC_info">Verifying Submission Receipt '.      my $title.=
  $receipt.'</h3></span>'."\n".   '<h3><span class="LC_info">'.
  '<h4><b>Resource: </b>'.$env{'form.probTitle'}.'</h4><br /><br />'."\n";   &mt('Verifying Submission Receipt [_1]',$receipt).
    '</span></h3>'."\n".
    '<h4>'.&mt('<b>Resource: </b>[_1]',$env{'form.probTitle'}).
    '</h4>'."\n";
   
     my ($string,$contents,$matches) = ('','',0);      my ($string,$contents,$matches) = ('','',0);
     my (undef,undef,$fullname) = &getclasslist('all','0');      my (undef,undef,$fullname) = &getclasslist('all','0');
Line 749  sub verifyreceipt { Line 752  sub verifyreceipt {
     my $header =       my $header = 
  &Apache::loncommon::start_data_table().   &Apache::loncommon::start_data_table().
  &Apache::loncommon::start_data_table_header_row().   &Apache::loncommon::start_data_table_header_row().
  '<th>&nbsp;Fullname&nbsp;</th>'."\n".   '<th>&nbsp;'.&mt('Fullname').'&nbsp;</th>'."\n".
  '<th>&nbsp;Username&nbsp;</th>'."\n".   '<th>&nbsp;'.&mt('Username').'&nbsp;</th>'."\n".
  '<th>&nbsp;Domain&nbsp;</th>';   '<th>&nbsp;'.&mt('Domain').'&nbsp;</th>';
     if ($receiptparts) {      if ($receiptparts) {
  $header.='<th>&nbsp;Problem Part&nbsp;</th>';   $header.='<th>&nbsp;'.&mt('Problem Part').'&nbsp;</th>';
     }      }
     $header.=      $header.=
  &Apache::loncommon::end_data_table_header_row();   &Apache::loncommon::end_data_table_header_row();
Line 786  sub verifyreceipt { Line 789  sub verifyreceipt {
  }   }
     }      }
     if ($matches == 0) {      if ($matches == 0) {
  $string = $title.'No match found for the above receipt.';   $string = $title.&mt('No match found for the above receipt.');
     } else {      } else {
  $string = &jscriptNform($symb).$title.   $string = &jscriptNform($symb).$title.
     'The above receipt matches the following student'.      '<p>'.
     ($matches <= 1 ? '.' : 's.')."\n".      &mt('The above receipt matches the following [numerate,_1,student].',$matches).
       '</p>'.
     $header.      $header.
     $contents.      $contents.
     &Apache::loncommon::end_data_table()."\n";      &Apache::loncommon::end_data_table()."\n";
Line 4900  sub scantron_selectphase { Line 4904  sub scantron_selectphase {
     $result.= <<SCANTRONFORM;      $result.= <<SCANTRONFORM;
     <table width="100%" border="0">      <table width="100%" border="0">
     <tr>      <tr>
      <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantron_process">  
       <td bgcolor="#777777">        <td bgcolor="#777777">
          <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantron_process">
        <input type="hidden" name="command" value="scantron_warning" />         <input type="hidden" name="command" value="scantron_warning" />
         $default_form_data          $default_form_data
         <table width="100%" border="0">          <table width="100%" border="0">
Line 4939  sub scantron_selectphase { Line 4943  sub scantron_selectphase {
             </td>              </td>
           </tr>            </tr>
         </table>          </table>
        </td>        </form>
      </form>       </td>
     </tr>      </tr>
 SCANTRONFORM  SCANTRONFORM
         
Line 5002  SCANTRONFORM Line 5006  SCANTRONFORM
   
     $r->print(<<SCANTRONFORM);      $r->print(<<SCANTRONFORM);
     <tr>      <tr>
       <form action='/adm/grades' name='scantron_download'>       <td bgcolor="#777777">
         <td bgcolor="#777777">         <form action='/adm/grades' name='scantron_download'>
   $default_form_data    $default_form_data
           <input type="hidden" name="command" value="scantron_download" />            <input type="hidden" name="command" value="scantron_download" />
           <table width="100%" border="0">            <table width="100%" border="0">
             <tr bgcolor="#e6ffff">              <tr bgcolor="#e6ffff">
               <td colspan="2">                <td>
                 &nbsp;<b>Download a scoring office file</b>                  &nbsp;<b>Download a scoring office file</b>
               </td>                </td>
             </tr>              </tr>
             <tr bgcolor="#ffffe6">              <tr bgcolor="#ffffe6">
               <td> Filename of scoring office file: </td><td> $file_selector </td>                <td> Filename of scoring office file: $file_selector </td>
             </tr>              </tr>
             <tr bgcolor="#ffffe6">              <tr bgcolor="#ffffe6">
               <td colspan="2">                <td>
                 <input type="submit" value="Download: Show List of Associated Files" />                  <input type="submit" value="Download: Show List of Associated Files" />
               </td>                </td>
             </tr>              </tr>
           </table>            </table>
         </td>          </form>
       </form>        </td>
     </tr>      </tr>
 SCANTRONFORM  SCANTRONFORM
   
Removed from v.1.486  
changed lines
  Added in v.1.488

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