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

Diff for /loncom/homework/lonhomework.pm between versions 1.389 and 1.393

version 1.389, 2024/12/13 05:04:49 version 1.393, 2025/01/05 22:42:44
Line 1989  sub do_ltipassback { Line 1989  sub do_ltipassback {
         }          }
         undef(@Apache::lonhomework::ltipassback);          undef(@Apache::lonhomework::ltipassback);
     }      }
       return OK;
 }  }
   
 sub run_passback {  sub run_passback {
Line 2083  sub run_passback { Line 2084  sub run_passback {
                             }                              }
                             $value=~s/\&$//;                              $value=~s/\&$//;
                             &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value);                              &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 {                      } else {
                         if ($item->{'linkprot'}) {                          if ($item->{'linkprot'}) {
Line 2112  sub run_passback { Line 2113  sub run_passback {
                         $no_passback .= " LTI launcher $linkprotector ($appname) for $linkuri (${cdom}_${cnum})";                          $no_passback .= " LTI launcher $linkprotector ($appname) for $linkuri (${cdom}_${cnum})";
                         &Apache::lonnet::logthis($no_passback." for $uname:$udom");                          &Apache::lonnet::logthis($no_passback." for $uname:$udom");
                         &Apache::lonnet::log($udom,$uname,$uhome,"$no_passback score=$score total=$total poss=$possible");                          &Apache::lonnet::log($udom,$uname,$uhome,"$no_passback score=$score total=$total poss=$possible");
                         if ($item->{'linkprot'})                          if ($item->{'linkprot'}) {
                             my $pendingkey = &Time::HiRes::time().':'.$uname.':'.$udom.':'.                              my $pendingkey = &Time::HiRes::time().':'.$uname.':'.$udom.':'.
                                              "$linkuri\0$linkprotector\0$scope";                                               "$linkuri\0$linkprotector\0$scope";
                             &Apache::lonnet::put('linkprot_passback_pending',{$pendingkey => $item},$cdom,$cnum);                              &Apache::lonnet::put('linkprot_passback_pending',{$pendingkey => $item},$cdom,$cnum);
Removed from v.1.389  
changed lines
  Added in v.1.393

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