loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.243, 2002/06/24 19:41:41	version 1.244, 2002/06/24 20:25:44
Line 1812 sub definerole {	Line 1812 sub definerole {
# ---------------- Make a metadata query against the network of library servers	# ---------------- Make a metadata query against the network of library servers

sub metadata_query {	sub metadata_query {
my ($query,$custom,$customshow)=@_;	my ($query,$custom,$customshow,$server_array)=@_;
my %rhash;	my %rhash;
for my $server (keys %libserv) {	my @server_list = (defined($server_array) ? @$server_array
	: keys(%libserv) );
	for my $server (@server_list) {
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;