--- loncom/homework/lonhomework.pm 2024/12/10 04:55:03 1.388 +++ loncom/homework/lonhomework.pm 2025/01/05 22:42:44 1.393 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.388 2024/12/10 04:55:03 raeburn Exp $ +# $Id: lonhomework.pm,v 1.393 2025/01/05 22:42:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1989,6 +1989,7 @@ sub do_ltipassback { } undef(@Apache::lonhomework::ltipassback); } + return OK; } sub run_passback { @@ -2083,7 +2084,7 @@ sub run_passback { } $value=~s/\&$//; &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value); - &Apache::lonnet::cstore({'score' => $score},$skey,$namespace,$udom,$uname,'',$ip,1); + &Apache::lonnet::store_userdata({'score' => $score},$skey,$namespace,$udom,$uname,$ip); } } else { if ($item->{'linkprot'}) { @@ -2112,7 +2113,11 @@ sub run_passback { $no_passback .= " LTI launcher $linkprotector ($appname) for $linkuri (${cdom}_${cnum})"; &Apache::lonnet::logthis($no_passback." for $uname:$udom"); &Apache::lonnet::log($udom,$uname,$uhome,"$no_passback score=$score total=$total poss=$possible"); - &Apache::lonnet::put('linkprot_passback_pending',$item,$cdom,$cnum); + if ($item->{'linkprot'}) { + my $pendingkey = &Time::HiRes::time().':'.$uname.':'.$udom.':'. + "$linkuri\0$linkprotector\0$scope"; + &Apache::lonnet::put('linkprot_passback_pending',{$pendingkey => $item},$cdom,$cnum); + } } } }