# Licensed under the GPL
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
use C4::Input;
use C4::Biblio;
-#------------------
-
-require Exporter;
-
use vars qw($VERSION @ISA @EXPORT);
-# set the version for version checking
-$VERSION = 3.00;
+BEGIN {
+ # set the version for version checking
+ $VERSION = 3.01;
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ &getz3950servers
+ &z3950servername
+ &addz3950queue
+ &checkz3950searchdone
+ );
+}
=head1 NAME
=over 2
-=cut
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &getz3950servers
- &z3950servername
- &addz3950queue
- &checkz3950searchdone
-);
-
-#------------------------------------------------
=item getz3950servers
@servers= &getz3950servers(checked);
If 0 => returns all servers
=cut
+
sub getz3950servers {
my ($checked) = @_;
my $dbh = C4::Context->dbh;
C<$dbh> is ignored.
=cut
+
#'
sub z3950servername {
error message is the empty string.
=cut
+
#'
sub addz3950queue {
use strict;
C<$random> is the random z3950 query number.
=cut
+
sub checkz3950searchdone {
my ($z3950random) = @_;
my $dbh = C4::Context->dbh;