![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.172, 2001/11/17 18:20:33 | version 1.173, 2001/11/20 17:58:05 |
|---|---|
| Line 1662 sub definerole { | Line 1662 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 | |
| my %rhash; | my %rhash; |
| for my $server (keys %libserv) { | for my $server (keys %libserv) { |
| unless ($custom or $customshow) { | unless ($custom or $customshow) { |