loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1362, 2017/12/18 23:14:03	version 1.1363, 2017/12/22 17:19:43
Line 11754 sub metadata {	Line 11754 sub metadata {
unless ($checked) {	unless ($checked) {
my ($ignore,$cdom,$cnum,$marker) = split(m{/},$uri);	my ($ignore,$cdom,$cnum,$marker) = split(m{/},$uri);
$marker=~s/\D//g;	$marker=~s/\D//g;
if (!$marker) {	if ($marker) {
my %toolsettings=&get('exttool_'.$marker,['gradable'],$cdom,$cnum);	my %toolsettings=&get('exttool_'.$marker,['gradable'],$cdom,$cnum);
$use_passback = $toolsettings{'gradable'};	$use_passback = $toolsettings{'gradable'};
}	}