loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.115, 2001/03/22 16:13:22	version 1.116, 2001/03/27 13:35:35
Line 1243 sub definerole {	Line 1243 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)=@_;	my ($query,$custom,$customshow)=@_;
# need to put in a loop here and return list	# need to put in a library server loop here and return list
unless ($custom) {	unless ($custom or $customshow) {
my $reply=&reply("querysend:".&escape($query),'msul3');	my $reply=&reply("querysend:".&escape($query),'msul3');
return $reply;	return $reply;
}	}