loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.384, 2024/11/21 07:26:01	version 1.385, 2024/12/03 23:20:59
Line 2026 sub do_ltipassback {	Line 2026 sub do_ltipassback {
if ($sent) {	if ($sent) {
if ($code == 200) {	if ($code == 200) {
if ($item->{'linkprot'}) {	if ($item->{'linkprot'}) {
my $key = join("\0",($linkuri,$linkprotector,$scope));	my $skey = join("\0",($linkuri,$linkprotector,$scope));
my $namespace = $cdom.'_'.$cnum.'_lp_passback';	my $namespace = $cdom.'_'.$cnum.'_lp_passback';
my $store = {	my $store = {
'score' => $score,	'score' => $score,
Line 2046 sub do_ltipassback {	Line 2046 sub do_ltipassback {
}	}
$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},$key,$namespace,$udom,$uname,'',$ip,1);	&Apache::lonnet::cstore({'score' => $score},$skey,$namespace,$udom,$uname,'',$ip,1);
}	}
} else {	} else {
if ($item->{'linkprot'}) {	if ($item->{'linkprot'}) {