loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.122, 2001/04/16 23:16:31	version 1.123, 2001/04/17 13:53:26
Line 102	Line 102
# 3/2 Gerd Kortemeyer	# 3/2 Gerd Kortemeyer
# 3/15,3/19 Scott Harrison	# 3/15,3/19 Scott Harrison
# 3/19,3/20 Gerd Kortemeyer	# 3/19,3/20 Gerd Kortemeyer
# 3/22,3/27 Scott Harrison	# 3/22,3/27,4/2,4/16,4/17 Scott Harrison

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

Line 1259 sub metadata_query {	Line 1259 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
my %rhash;	my %rhash;
# for my $server (keys %libserv) {	for my $server (keys %libserv) {
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;