loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.874, 2007/05/14 08:47:54	version 1.875, 2007/05/14 09:38:59
Line 756 sub get_dom {	Line 756 sub get_dom {
if ($udom && $uhome && ($uhome ne 'no_host')) {	if ($udom && $uhome && ($uhome ne 'no_host')) {
my $rep=&reply("getdom:$udom:$namespace:$items",$uhome);	my $rep=&reply("getdom:$udom:$namespace:$items",$uhome);
my %returnhash;	my %returnhash;
if ($rep =~ /^error: 2 /) {	if ($rep eq '' \|\| $rep =~ /^error: 2 /) {
return %returnhash;	return %returnhash;
}	}
my @pairs=split(/\&/,$rep);	my @pairs=split(/\&/,$rep);