--- loncom/homework/grades.pm 2010/04/18 19:29:10 1.624 +++ loncom/homework/grades.pm 2010/04/20 20:23:55 1.626 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.624 2010/04/18 19:29:10 www Exp $ +# $Id: grades.pm,v 1.626 2010/04/20 20:23:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2586,18 +2586,19 @@ sub processHandGrade { my $processUser = $env{'form.unamedom'.$ctr}; ($env{'form.student'},$env{'form.userdom'}) = split(/:/,$processUser); $env{'form.fullname'} = $$fullname{$processUser}; - &submission($request,$ctr,$total-1); + &submission($request,$ctr,$total-1,$symb); $ctr++; } return ''; } # Go directly to grade student - from submission or link from chart page +# FIXME: looks like reading off the button label! if ($button eq 'Grade Student') { my $processUser = $env{'form.unamedom'.$env{'form.studentNo'}}; ($env{'form.student'},$env{'form.userdom'}) = split(/:/,$processUser); $env{'form.fullname'} = $$fullname{$processUser}; - &submission($request,0,0); + &submission($request,0,0,$symb); return ''; } @@ -2684,7 +2685,7 @@ sub processHandGrade { $env{'form.student'} = $uname; $env{'form.userdom'} = $udom; $env{'form.fullname'} = $$fullname{$_}; - &submission($request,$ctr,$total); + &submission($request,$ctr,$total,$symb); $ctr++; } if ($total < 0) { @@ -3817,8 +3818,6 @@ sub csvuploadmap_header { } my $result=''; - my $checked=(($env{'form.noFirstLine'})?' checked="checked"':''); - my $ignore=&mt('Ignore First Line'); $symb = &Apache::lonenc::check_encrypt($symb); $request->print(< @@ -3830,7 +3829,6 @@ Total number of records found in file: $ Enter as many fields as you can. The system will inform you and bring you back to this page if the data selected is insufficient to run your class.
- @@ -3918,7 +3916,6 @@ sub upcsvScores_form { $upfile_select
- ENDUPFORM $result.=&Apache::loncommon::help_open_topic("Course_Convert_To_CSV", @@ -3941,7 +3938,6 @@ sub csvuploadmap { &Apache::loncommon::load_tmp_file($request); } my @records=&Apache::loncommon::upfile_record_sep(); - if ($env{'form.noFirstLine'}) { shift(@records); } &csvuploadmap_header($request,$symb,$datatoken,$#records+1); my ($i,$keyfields); if (@records) { @@ -3977,8 +3973,6 @@ sub csvuploadmap { sub csvuploadoptions { my ($request,$symb)= @_; - my $checked=(($env{'form.noFirstLine'})?'1':'0'); - my $ignore=&mt('Ignore First Line'); $request->print(<

Uploading Class Grade Options

@@ -4040,7 +4034,6 @@ sub csvuploadassign { my $error_msg = ''; &Apache::loncommon::load_tmp_file($request); my @gradedata = &Apache::loncommon::upfile_record_sep(); - if ($env{'form.noFirstLine'}) { shift(@gradedata); } my %fields=&get_fields(); $request->print('

Assigning Grades

'); my $courseid=$env{'request.course.id'}; @@ -4525,7 +4518,7 @@ sub displaySubByDates { $displaySub[0].='' .' ' - .'('.&mt('Part ID: [_1]',$responseId).')' + .'('.&mt('Response ID: [_1]',$responseId).')' .'' .' '; if ($hidden) {