Diff for /loncom/homework/grades.pm between versions 1.320 and 1.321

version 1.320, 2006/02/27 19:40:21 version 1.321, 2006/02/27 20:32:38
Line 1480  sub handbackBox { Line 1480  sub handbackBox {
     my $files=&get_submitted_files($udom,$uname,$partid,$respid,$record);      my $files=&get_submitted_files($udom,$uname,$partid,$respid,$record);
     my $result;      my $result;
     if (@$files) {      if (@$files) {
         my $file_counter = 0;          my $file_counter = 1;
  foreach my $file (@$files) {   foreach my $file (@$files) {
             $result.=' Return commented document to student. <input type="file" name="part'.$partid.'_returndoc';      $file =~ /.+\/(.+$)/;
       my $file_disp = $1;
               $result.=' Return commented version of <span class="filename">'.$file_disp.' </span>to student. <input type="file" name="'.$partid.'_'.$respid.'_returndoc';
             $result.=$file_counter.'" />'."\n";              $result.=$file_counter.'" />'."\n";
             $result.='<input type="hidden" name="respid" value="'.$respid.'" />';              $result.='<input type="hidden" name="'.$partid.'_'.$respid.'_origdoc'.$file_counter.'" value="'.$file.'" /><br />';
             $result.='<input type="hidden" name="returndocorig'.$file_counter.'" value="'.$file.'" /><br />';              $file_counter++;
         }          }
     }      }
     return $result;          return $result;    
Line 2316  sub saveHandGrade { Line 2318  sub saveHandGrade {
     $newrecord{'resource.'.$new_part.'.regrader'}=      $newrecord{'resource.'.$new_part.'.regrader'}=
  "$env{'user.name'}:$env{'user.domain'}";   "$env{'user.name'}:$env{'user.domain'}";
  }   }
         if ($env{'form.part'.$new_part.'_returndoc1'}) {   my ($partlist,$handgrade,$responseType) = &response_type($url,$symb);
             # if multiple files are uploaded names will be 'returndoc2','returndoc3'   my $portfolio_root = &Apache::loncommon::propath($domain,
                      $stuname).
             my $portfolio_root = &Apache::loncommon::propath($domain,          '/userfiles/portfolio';
     $stuname).   foreach my $part_resp(sort(keys(%$handgrade))) {
     '/userfiles/portfolio';      my ($part_id, $resp_id) = split(/_/,$part_resp);
                 $request->print('<br>'.$portfolio_root.'<br>');              if ($env{'form.'.$part_resp.'_returndoc1'} && ($new_part eq $part_id)) {
                                   # if multiple files are uploaded names will be 'returndoc2','returndoc3'
     #                my $result=&Apache::lonnet::userfileupload('uploaddoc','',                  my $file_counter = 1;
     #         'portfolio'.$env{'form.currentpath'});                  while ($env{'form.'.$part_resp.'_returndoc'.$file_counter}) {
                           my $fname=$env{'form.returndoc'.$file_counter.'.filename'};
             my $file_counter = 1;                      $newrecord{"resource.$new_part.$resp_id.handback"} = $env{'form.returndocorig'.$file_counter};
             my $respid = $env{'form.respid'};                      $request->print("<br />".$fname." will be the uploaded file name");
             while ($env{'form.part'.$new_part.'_returndoc'.$file_counter}) {                      $request->print("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter});
                 my $fname=$env{'form.returndoc'.$file_counter.'.filename'};                      $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("<font color=\"red\">Will upload document</font>".$env{'form.returndocorig'.$file_counter});  
                 $file_counter++;  
             }              }
         }          }
   

Removed from v.1.320  
changed lines
  Added in v.1.321


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