loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.392, 2025/01/05 21:53:42	version 1.394, 2025/01/17 15:05:47
Line 2084 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::store_userdata({'score' => $score},$skey,$namespace,$udom,$uname);	&Apache::lonnet::store_userdata({'score' => $score},$skey,$namespace,$udom,$uname,$ip);
}	}
} else {	} else {
if ($item->{'linkprot'}) {	if ($item->{'linkprot'}) {
Line 2133 sub get_lti_score {	Line 2133 sub get_lti_score {
my $iterator;	my $iterator;
if ($mapurl ne '') {	if ($mapurl ne '') {
my $map = $navmap->getResourceByUrl($mapurl);	my $map = $navmap->getResourceByUrl($mapurl);
my $firstres = $map->map_start();	if (ref($map)) {
my $finishres = $map->map_finish();	my $firstres = $map->map_start();
my $recursive = 1;	my $finishres = $map->map_finish();
if ($pbscope eq 'nonrec') {	my $recursive = 1;
$recursive = 0;	if ($pbscope eq 'nonrec') {
	$recursive = 0;
	}
	$iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive);
}	}
$iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive);
} else {	} else {
$iterator = $navmap->getIterator(undef,undef,undef,1);	$iterator = $navmap->getIterator(undef,undef,undef,1);
}	}