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

Diff for /loncom/homework/grades.pm between versions 1.311 and 1.312

version 1.311, 2006/02/07 14:18:18 version 1.312, 2006/02/13 22:11:51
Line 1814  KEYWORDS Line 1814  KEYWORDS
  $lastsubonly.='<br /><a href="'.$file.'" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border=0"> '.$file.'</a>';   $lastsubonly.='<br /><a href="'.$file.'" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border=0"> '.$file.'</a>';
  $lastsubonly.=' Return commented document to student. <input type="file" name="part'.$partid.'_returndoc';   $lastsubonly.=' Return commented document to student. <input type="file" name="part'.$partid.'_returndoc';
  $lastsubonly.=$file_counter.'" />'."\n";   $lastsubonly.=$file_counter.'" />'."\n";
    $lastsubonly.='<input type="hidden" name="respid" value="'.$respid.'" />';
  $lastsubonly.='<input type="hidden" name="returndocorig'.$file_counter.'" value="'.$file.'" />';   $lastsubonly.='<input type="hidden" name="returndocorig'.$file_counter.'" value="'.$file.'" />';
   
     }      }
Line 2224  sub saveHandGrade { Line 2225  sub saveHandGrade {
     my @parts = split(/:/,$env{'form.partlist'.$newflg});      my @parts = split(/:/,$env{'form.partlist'.$newflg});
     foreach my $new_part (@parts) {      foreach my $new_part (@parts) {
  #collaborator may vary for different parts   #collaborator may vary for different parts
  $request->print('form.part'.$new_part.'_returndoc1');  
  if ($submitter && $new_part ne $part) { next; }   if ($submitter && $new_part ne $part) { next; }
  my $dropMenu = $env{'form.GD_SEL'.$newflg.'_'.$new_part};   my $dropMenu = $env{'form.GD_SEL'.$newflg.'_'.$new_part};
  if ($dropMenu eq 'excused') {   if ($dropMenu eq 'excused') {
Line 2305  sub saveHandGrade { Line 2305  sub saveHandGrade {
     #         'portfolio'.$env{'form.currentpath'});      #         'portfolio'.$env{'form.currentpath'});
           
             my $file_counter = 1;              my $file_counter = 1;
               my $respid = $env{'form.respid'};
             while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) {              while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) {
                 my $fname=$env{'form.returndoc'.$file_counter.'.filename'};                  my $fname=$env{'form.returndoc'.$file_counter.'.filename'};
                 $newrecord{'resource.'.$new_part.'.handback'} = $env{'form.returndocorig'.$file_counter};                  $newrecord{"resource.$new_part.$respid.handback"} = $env{'form.returndocorig'.$file_counter};
                 $request->print("<br />".$fname." will be the uploaded file name");                  $request->print("<br />".$fname." will be the uploaded file name");
                 $request->print("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter});                  $request->print("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter});
                 $file_counter++;                  $file_counter++;
Removed from v.1.311  
changed lines
  Added in v.1.312

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