--- loncom/homework/lonhomework.pm	2024/12/09 22:22:57	1.387
+++ 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.387 2024/12/09 22:22:57 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 {
@@ -2008,6 +2009,7 @@ sub run_passback {
             my $uname = $item->{'uname'};
             my $udom = $item->{'udom'};
             my $uhome = $item->{'uhome'};
+            my $usec = $item->{'usec'};
             my $keynum = $item->{'lti'}->{'cipher'};
             my $crsdef = $item->{'crsdef'};
             my $scoretype = $item->{'format'};
@@ -2041,12 +2043,12 @@ sub run_passback {
             if (($pbscope eq 'map') || ($pbscope eq 'nonrec')) {
                 if ((keys(%total_by_symb)) && (keys(%possible_by_symb))) {
                     ($total,$possible) =
-                    &get_lti_score($uname,$udom,$map,$pbscope,\%total_by_symb,\%possible_by_symb);
+                    &get_lti_score($uname,$udom,$usec,$map,$pbscope,\%total_by_symb,\%possible_by_symb);
                 } else {
-                   ($total,$possible) = &get_lti_score($uname,$udom,$map,$pbscope);
+                   ($total,$possible) = &get_lti_score($uname,$udom,$usec,$map,$pbscope);
                 }
             } elsif ($pbscope eq 'course') {
-                ($total,$possible) = &get_lti_score($uname,$udom);
+                ($total,$possible) = &get_lti_score($uname,$udom,$usec);
             }
             $item->{'total'} = $total;
             $item->{'possible'} = $possible;
@@ -2082,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'}) {
@@ -2111,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);
+                        }
                     }
                 }
             }
@@ -2121,8 +2127,8 @@ sub run_passback {
 }
 
 sub get_lti_score {
-    my ($uname,$udom,$mapurl,$pbscope,$totals,$possibles) = @_;
-    my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom);
+    my ($uname,$udom,$usec,$mapurl,$pbscope,$totals,$possibles) = @_;
+    my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom,$usec);
     if (ref($navmap)) {
         my $iterator;
         if ($mapurl ne '') {