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

Diff for /loncom/homework/grades.pm between versions 1.359 and 1.361

version 1.359, 2006/05/30 12:45:36 version 1.361, 2006/06/12 18:56:22
Line 1556  sub handback_box { Line 1556  sub handback_box {
     $file_disp = "$name.$ext";      $file_disp = "$name.$ext";
     $file = $file_path.$file_disp;      $file = $file_path.$file_disp;
     $result.=&mt('Return commented version of [_1] to student.',      $result.=&mt('Return commented version of [_1] to student.',
  '<span class="filename">'.$file_disp.'</span>');   '<span class="LC_filename">'.$file_disp.'</span>');
     $result.='<input type="file"   name="'.$prefix.'returndoc'.$file_counter.'" />'."\n";      $result.='<input type="file"   name="'.$prefix.'returndoc'.$file_counter.'" />'."\n";
     $result.='<input type="hidden" name="'.$prefix.'origdoc'.$file_counter.'" value="'.$file.'" /><br />';      $result.='<input type="hidden" name="'.$prefix.'origdoc'.$file_counter.'" value="'.$file.'" /><br />';
     $file_counter++;      $file_counter++;
Line 2458  sub handback_files { Line 2458  sub handback_files {
                         $request->print('<font color="red"> An errror occured ('.$result.                          $request->print('<font color="red"> An errror occured ('.$result.
                         ') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'</font><br />');                          ') while trying to upload '.$newflg.'_'.$part_resp.'_returndoc'.$file_counter.'</font><br />');
                     } else {                      } else {
                           # mark the file as read only
                           my @files = ($save_file_name);
                           my @what = ($symb,'handback');
                           &Apache::lonnet::mark_as_readonly($domain,$stuname,\@files,\@what);
                         my $subject = "File Handed Back by Instructor ";                          my $subject = "File Handed Back by Instructor ";
                         my $message = "A file has been returned that was originally submitted in reponse to: <br />";                          my $message = "A file has been returned that was originally submitted in reponse to: <br />";
                         $message .= "<strong>".&Apache::lonnet::gettitle($symb)."</strong><br />";                          $message .= "<strong>".&Apache::lonnet::gettitle($symb)."</strong><br />";
Removed from v.1.359  
changed lines
  Added in v.1.361

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