|
From: | Steve Tonnesen |
Subject: | [Koha-cvs] CVS: koha/html-template Search.pm,NONE,1.1 |
Date: | Fri, 10 May 2002 15:24:04 -0700 |
Update of /cvsroot/koha/koha/html-template In directory usw-pr-cvs1:/tmp/cvs-serv9553 Added Files: Search.pm Log Message: Modified Search.pm to work with HTML::Template search.pl file. WARNING!! This Search.pm will break the existing search!!!! --- NEW FILE --- package C4::Search; #asummes C4/Search #requires DBI.pm to be installed #uses DBD:Pg use strict; require Exporter; use DBI; use C4::Database; use C4::Reserves2; use Set::Scalar; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking $VERSION = 0.01; @ISA = qw(Exporter); @EXPORT = qw(&CatSearch &BornameSearch &ItemInfo &KeywordSearch &subsearch [...1244 lines suppressed...] my $sth=$dbh->prepare($query); $sth->execute; my @barcodes; my $i=0; while (my $data=$sth->fetchrow_hashref){ $barcodes[$i]=$data->{'barcode'}; $i++; } $sth->finish; $dbh->disconnect; return(@barcodes); } END { } # module clean-up code here (global destructor)
[Prev in Thread] | Current Thread | [Next in Thread] |