--- loncom/homework/grades.pm 2024/12/09 22:22:57 1.801 +++ loncom/homework/grades.pm 2024/12/10 04:55:03 1.802 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.801 2024/12/09 22:22:57 raeburn Exp $ +# $Id: grades.pm,v 1.802 2024/12/10 04:55:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1726,7 +1726,7 @@ sub passbacks_for_symb { } sub process_passbacks { - my ($context,$symbs,$cdom,$cnum,$udom,$uname,$weights,$awardeds,$excuseds,$needpb, + my ($context,$symbs,$cdom,$cnum,$udom,$uname,$usec,$weights,$awardeds,$excuseds,$needpb, $skip_passback,$pbsave,$pbids) = @_; if ((ref($needpb) eq 'HASH') && (ref($skip_passback) eq 'HASH') && (ref($pbsave) eq 'HASH')) { my (%weight,%awarded,%excused); @@ -1827,6 +1827,7 @@ sub process_passbacks { 'uname' => $uname, 'udom' => $udom, 'uhome' => $uhome, + 'usec' => $usec, 'pbid' => $pbid, 'pburl' => $pburl, 'pbtype' => $pb{'type'}, @@ -4561,7 +4562,7 @@ sub saveHandGrade { if (($sendupdate) && (!$submitter)) { if ((ref($needpb) eq 'HASH') && (keys(%{$needpb}))) { - &process_passbacks('handgrade',[$symb],$cdom,$cnum,$domain,$stuname,\%weights, + &process_passbacks('handgrade',[$symb],$cdom,$cnum,$domain,$stuname,$usec,\%weights, \%awardeds,\%excuseds,$needpb,$skip_passback,$pbsave); } } @@ -5650,7 +5651,7 @@ sub editgrades { $updateCtr++; if (keys(%needpb)) { $weights{$symb} = \%weight; - &process_passbacks('editgrades',[$symb],$cdom,$cnum,$udom,$uname,\%weights, + &process_passbacks('editgrades',[$symb],$cdom,$cnum,$udom,$uname,$usec,\%weights, \%awardeds,\%excuseds,\%needpb,\%skip_passback,\%pbsave); } } else { @@ -6201,7 +6202,7 @@ sub csvuploadassign { $awardeds{$symb}{$part} = $record{"resource.$part.awarded"}; } } - &process_passbacks('csvupload',[$symb],$cdom,$cnum,$domain,$username,\%weights, + &process_passbacks('csvupload',[$symb],$cdom,$cnum,$domain,$username,$usec,\%weights, \%awardeds,\%excuseds,\%needpb,\%skip_passback,\%pbsave); } } else { @@ -7009,7 +7010,7 @@ sub updateGradeByPage { } } my @symbs = keys(%uniqsymbs); - &process_passbacks('updatebypage',\@symbs,$cdom,$cnum,$udom,$uname,\%weights, + &process_passbacks('updatebypage',\@symbs,$cdom,$cnum,$udom,$uname,$usec,\%weights, \%awardeds,\%excuseds,\%needpb,\%skip_passback,\%pbsave,\%pbids); if (@Apache::grades::ltipassback) { unless ($registered_cleanup) {