loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.112, 2001/03/22 15:08:49	version 1.113, 2001/03/22 15:10:35
Line 1242 sub definerole {	Line 1242 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 {
<<<<<<< lonnet.pm
my ($query,$custom)=@_;	my ($query,$custom)=@_;
	# need to put in a loop here and return list
unless ($custom) {	unless ($custom) {
my $reply=&reply("querysend:".&escape($query),'msul3');	my $reply=&reply("querysend:".&escape($query),'msul3');
return $reply;	return $reply;
Line 1253 sub metadata_query {	Line 1253 sub metadata_query {
&escape($customquery),'msul3');	&escape($customquery),'msul3');
return $reply;	return $reply;
}	}
=======
my ($query)=@_;	my ($query)=@_;
# need to put in a loop here and return list
my $reply=&reply("querysend:".&escape($query),'msul3');	my $reply=&reply("querysend:".&escape($query),'msul3');
>>>>>>> 1.111
}	}

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