loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1172.2.146.2.10, 2023/01/22 17:32:08	version 1.1172.2.146.2.11, 2023/01/22 17:39:48
Line 11867 sub courselti_itemid {	Line 11867 sub courselti_itemid {
$chome = &homeserver($cnum,$cdom);	$chome = &homeserver($cnum,$cdom);
return if ($chome eq 'no_host');	return if ($chome eq 'no_host');
if (ref($params) eq 'HASH') {	if (ref($params) eq 'HASH') {
my $items = &freeze_escape($params);
my $rep;	my $rep;
if (grep { $_ eq $chome } current_machine_ids()) {	if (grep { $_ eq $chome } current_machine_ids()) {
$rep = LONCAPA::Lond::crslti_itemid($cdom,$cnum,$url,$method,$params,$perlvar{'lonVersion'});	$rep = LONCAPA::Lond::crslti_itemid($cdom,$cnum,$url,$method,$params,$perlvar{'lonVersion'});
Line 11891 sub domainlti_itemid {	Line 11890 sub domainlti_itemid {
$primary_id = &domain($cdom,'primary');	$primary_id = &domain($cdom,'primary');
return if ($primary_id eq '');	return if ($primary_id eq '');
if (ref($params) eq 'HASH') {	if (ref($params) eq 'HASH') {
my $items = &freeze_escape($params);
my $rep;	my $rep;
if (grep { $_ eq $primary_id } current_machine_ids()) {	if (grep { $_ eq $primary_id } current_machine_ids()) {
$rep = LONCAPA::Lond::domlti_itemid($cdom,$context,$url,$method,$params,$perlvar{'lonVersion'});	$rep = LONCAPA::Lond::domlti_itemid($cdom,$context,$url,$method,$params,$perlvar{'lonVersion'});