loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.119, 2001/04/02 13:43:15	version 1.120, 2001/04/02 16:56:22
Line 1245 sub definerole {	Line 1245 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 a hash	# need to put in a library server loop here and return a hash
# for my $server (keys %libserv) {
my %rhash;	my %rhash;
	# for my $server (keys %libserv) {
for my $server ('msul3') {	for my $server ('msul3') {
unless ($custom or $customshow) {	unless ($custom or $customshow) {
my $reply=&reply("querysend:".&escape($query),$server);	my $reply=&reply("querysend:".&escape($query),$server);
$rhash{$server}=$reply;	$rhash{$server}=$reply;
return $reply;
}	}
else {	else {
my $reply=&reply("querysend:".&escape($query).':'.	my $reply=&reply("querysend:".&escape($query).':'.
&escape($custom).':'.&escape($customshow),	&escape($custom).':'.&escape($customshow),
$server);	$server);
$rhash{$server}=$reply;	$rhash{$server}=$reply;
return $reply;
}	}
}	}
return \%rhash;	return \%rhash;