3 # Copyright 2004 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
27 use AutoLoader qw(AUTOLOAD);
29 our @ISA = qw(Exporter);
39 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
45 our $VERSION = do { my @v = '$Revision$' =~ /\d+/g;
46 shift (@v) . "." . join ( "_", map { sprintf "%03d", $_ } @v );
49 # Preloaded methods go here.
53 my $search_string = shift; # high level query to construct search from
55 $self->{"search_string"} = $search_string;
70 # Autoload methods go after =cut, and are processed by the autosplit program.
75 # Below is stub documentation for your module. You better edit it!
92 $query = new C4::Query("title:bob marley");
103 Koha Development Team