From a7118d4f4844662ab2175daff577c157225eb8a2 Mon Sep 17 00:00:00 2001 From: Andrew Moore Date: Tue, 29 Jul 2008 11:42:50 -0500 Subject: [PATCH] Bug 1953 [6/6]: adding pod documentation for C4::Koha::displayServers This method was not documented. I added some POD to it. Signed-off-by: Galen Charlton Signed-off-by: Joshua Ferraro --- C4/Koha.pm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/C4/Koha.pm b/C4/Koha.pm index 7f5bb68a55..846af3e17b 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -887,6 +887,37 @@ SELECT lib, return \%notforloan_label_of; } +=head2 displayServers + +=over 4 + +my $servers = displayServers(); + +my $servers = displayServers( $position ); + +my $servers = displayServers( $position, $type ); + +=back + +displayServers returns a listref of hashrefs, each containing +information about available z3950 servers. Each hashref has a format +like: + + { + 'checked' => 'checked', + 'encoding' => 'MARC-8' + 'icon' => undef, + 'id' => 'LIBRARY OF CONGRESS', + 'label' => '', + 'name' => 'server', + 'opensearch' => '', + 'value' => 'z3950.loc.gov:7090/', + 'zed' => 1, + }, + + +=cut + sub displayServers { my ( $position, $type ) = @_; my $dbh = C4::Context->dbh; -- 2.39.2