loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.117, 2001/03/27 13:37:43	version 1.118, 2001/03/27 21:50:52
Line 93	Line 93
# 3/2 Gerd Kortemeyer	# 3/2 Gerd Kortemeyer
# 3/15 Scott Harrison	# 3/15 Scott Harrison
# 3/19,3/20 Gerd Kortemeyer	# 3/19,3/20 Gerd Kortemeyer
# 3/22 Scott Harrison	# 3/22,3/27 Scott Harrison

package Apache::lonnet;	package Apache::lonnet;

Line 1244 sub definerole {	Line 1244 sub definerole {

sub metadata_query {	sub metadata_query {
my ($query,$custom,$customshow)=@_;	my ($query,$custom,$customshow)=@_;
# need to put in a library server loop here and return list	# need to put in a library server loop here and return a hash
unless ($custom or $customshow) {	# for my $server (keys %libserv) {
my $reply=&reply("querysend:".&escape($query),'msul3');	my %rhash;
return $reply;	for my $server ('msul3') {
}	unless ($custom or $customshow) {
else {	my $reply=&reply("querysend:".&escape($query),$server);
my $reply=&reply("querysend:".&escape($query).':'.	$rhash{$server}=$reply;
&escape($custom).':'.&escape($customshow),'msul3');	return $reply;
return $reply;	}
	else {
	my $reply=&reply("querysend:".&escape($query).':'.
	&escape($custom).':'.&escape($customshow),
	$server);
	$rhash{$server}=$reply;
	return $reply;
	}
}	}
my ($query)=@_;	return \%rhash;
my $reply=&reply("querysend:".&escape($query),'msul3');
}	}

# ------------------------------------------------------------------ Plain Text	# ------------------------------------------------------------------ Plain Text