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

Diff for /loncom/homework/grades.pm between versions 1.304 and 1.305

version 1.304, 2006/01/25 22:56:25 version 1.305, 2006/01/27 00:26:18
Line 2049  sub processHandGrade { Line 2049  sub processHandGrade {
         # if multiple files are uploaded names will be 'returndoc2', 'returndoc3'          # if multiple files are uploaded names will be 'returndoc2', 'returndoc3'
         my $file_counter = 1;          my $file_counter = 1;
         while ($env{'form.returndoc'.$file_counter}) {          while ($env{'form.returndoc'.$file_counter}) {
               my $fname=$env{'form.returndoc'.$file_counter.'.filename'};
               $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 ++;
         }          }
Line 2301  sub saveHandGrade { Line 2303  sub saveHandGrade {
  "$env{'user.name'}:$env{'user.domain'}";   "$env{'user.name'}:$env{'user.domain'}";
  }   }
  # unless problem has been graded, set flag to version the submitted files   # unless problem has been graded, set flag to version the submitted files
  unless ($record{'resource.'.$new_part.'.solved'} =~ /^correct_/  || $record{'resource.'.$new_part.'.solved'} eq 'incorrect_by_override') {   unless ($record{'resource.'.$new_part.'.solved'} =~ /^correct_/  || 
           $record{'resource.'.$new_part.'.solved'} eq 'incorrect_by_override' ||
           $dropMenu eq 'reset status')
      {
     push (@v_flag,$new_part);      push (@v_flag,$new_part);
  }   }
     }      }
Line 2407  sub version_portfiles { Line 2412  sub version_portfiles {
         if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {          if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {
             my @v_portfiles;              my @v_portfiles;
             my @portfiles = split(/,/,$$record{$key});              my @portfiles = split(/,/,$$record{$key});
             &Apache::lonnet::logthis("should be unmarking and remarking $key",@portfiles);  
             foreach my $file (@portfiles) {              foreach my $file (@portfiles) {
                 &Apache::lonnet::unmark_as_readonly($domain,$stuname,[$symb,$env{'request.course.id'}],$file);                  &Apache::lonnet::unmark_as_readonly($domain,$stuname,[$symb,$env{'request.course.id'}],$file);
                 my ($directory,$answer_file) =($file =~ /^(.*?)([^\/]*)$/);                  my ($directory,$answer_file) =($file =~ /^(.*?)([^\/]*)$/);
Line 2449  sub version_portfiles { Line 2453  sub version_portfiles {
         }          }
     }       } 
     return 'ok';         return 'ok';   
       }
   
   sub version_selected_portfile {
       my ($file_name,$domain,$stu_name) = @_;
       return 'ok';
 }  }
   
 sub file_name_version_ext {  sub file_name_version_ext {
Removed from v.1.304  
changed lines
  Added in v.1.305

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