-package C4::Search; #asummes C4/Search
-
-#requires DBI.pm to be installed
-#uses DBD:Pg
+package C4::Search;
+
+# Copyright 2000-2002 Katipo Communications
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
use strict;
require Exporter;
-use DBI;
-use C4::Database;
+use C4::Context;
use C4::Reserves2;
-use Set::Scalar;
+use C4::Biblio;
+use ZOOM;
+use Encode;
+use C4::Date;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
+
# set the version for version checking
-$VERSION = 0.02;
-
+$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
+ shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
+
+=head1 NAME
+
+C4::Search - Functions for searching the Koha catalog and other databases
+
+=head1 SYNOPSIS
+
+ use C4::Search;
+
+ my ($count, @results) = catalogsearch4($env, $type, $search, $num, $offset);
+
+=head1 DESCRIPTION
+
+This module provides the searching facilities for the Koha catalog and
+ZEBRA databases.
+
+
+
+=head1 FUNCTIONS
+
+=over 2
+
+=cut
+
@ISA = qw(Exporter);
-@EXPORT = qw(&CatSearch &BornameSearch &ItemInfo &KeywordSearch &subsearch
-&itemdata &bibdata &GetItems &borrdata &itemnodata &itemcount
-&borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
-&getboracctrecord &ItemType &itemissues &subject &subtitle
-&addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs
-&findguarantor &getwebsites &getwebbiblioitems &catalogsearch);
-%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
-
-# your exported package globals go here,
-# as well as any optionally exported functions
-
-@EXPORT_OK = qw($Var1 %Hashit);
-
-
-# non-exported package globals go here
-use vars qw(@more $stuff);
-
-# initalize package globals, first exported ones
-
-my $Var1 = '';
-my %Hashit = ();
-
-# then the others (which are still accessible as $Some::Module::stuff)
-my $stuff = '';
-my @more = ();
-
-# all file-scoped lexicals must be created before
-# the functions below that use them.
-
-# file-private lexicals go here
-my $priv_var = '';
-my %secret_hash = ();
-
-# here's a file-private function as a closure,
-# callable as &$priv_func; it cannot be prototyped.
-my $priv_func = sub {
- # stuff goes here.
-};
-
+@EXPORT = qw(
+ &barcodes &ItemInfo &itemcount
+ &getcoverPhoto &add_query_line
+ &FindDuplicate &ZEBRAsearch_kohafields &convertPQF &sqlsearch &cataloguing_search
+&getMARCnotes &getMARCsubjects &getMARCurls &getMARCadditional_authors &parsefields &spellSuggest);
# make all your functions, whether exported or not;
-sub findguarantees{
- my ($bornum)=@_;
- my $dbh=C4Connect;
- my $query="select cardnumber,borrowernumber from borrowers where
- guarantor='$bornum'";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @dat;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $dat[$i]=$data;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@dat);
+
+=head1
+ZEBRAsearchkohafields is the underlying API for searching zebra for KOHA internal use
+its kept similar to earlier version Koha Marc searches. instead of passing marc tags to the routine
+you pass named kohafields
+So you give an array of @kohafieldnames,@values, what relation they have @relations (equal, truncation etc) @and_or and
+you receive an array of XML records.
+The routine also has a flag $fordisplay and if it is set to 1 it will return the @results as an array of Perl hashes so that your previous
+search results templates do actually work.
+This routine will also take CCL,CQL or PQF queries and pass them straight to the server
+See sub FindDuplicates for an example;
+=cut
+
+
+
+
+sub ZEBRAsearch_kohafields{
+my ($kohafield,$value, $relation,$sort, $and_or, $fordisplay,$reorder,$startfrom,$number_of_results,$searchfrom,$searchtype)=@_;
+return (0,undef) unless (@$value[0]);
+
+my $server="biblioserver";
+my @results;
+my $attr;
+my $query;
+
+my $i;
+ unless($searchtype){
+ for ( $i=0; $i<=$#{$value}; $i++){
+ next if (@$value[$i] eq "");
+ my $keyattr=MARCfind_attr_from_kohafield(@$kohafield[$i]) if (@$kohafield[$i]);
+ if (!$keyattr){$keyattr=" \@attr 1=any";}
+ @$value[$i]=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\*|\!|\,|\(|\)|\[|\]|\{|\}|\/|\")/ /g;
+ my $weighted=weightRank(@$kohafield[$i],@$value[$i],$i) unless($sort || $reorder);
+ $query.=$weighted.@$relation[$i]." ".$keyattr." \"".@$value[$i]."\" " if @$value[$i];
+ }
+ for (my $z= 0;$z<=$#{$and_or};$z++){
+ $query=@$and_or[$z]." ".$query if (@$value[$z+1] ne "");
+ }
+ }
+
+##warn $query;
+
+my @oConnection;
+($oConnection[0])=C4::Context->Zconn($server);
+my @sortpart;
+if ($reorder ){
+ (@sortpart)=split /,/,$reorder;
+}elsif ($sort){
+ (@sortpart)=split /,/,$sort;
}
-sub findguarantor{
- my ($bornum)=@_;
- my $dbh=C4Connect;
- my $query="select guarantor from borrowers where
- borrowernumber='$bornum'";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $query="Select * from borrowers where
- borrowernumber='$data->{'guarantor'}'";
- $sth=$dbh->prepare($query);
- $sth->execute;
- $data=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
- return($data);
+if (@sortpart){
+##sortpart is expected to contain the form "title i<" notation or "title,1" both mean the same thing
+ if (@sortpart<2){
+ push @sortpart," "; ##In case multisort variable is coming as a single query
+ }
+ if ($sortpart[1]==2){
+ $sortpart[1]=">i"; ##Descending
+ }elsif ($sortpart[1]==1){
+ $sortpart[1]="<i"; ##Ascending
+ }
}
-sub systemprefs {
- my %systemprefs;
- my $dbh=C4Connect;
- my $sth=$dbh->prepare("select variable,value from systempreferences");
- $sth->execute;
- while (my ($variable,$value)=$sth->fetchrow) {
- $systemprefs{$variable}=$value;
- }
- $sth->finish;
- $dbh->disconnect;
- return(%systemprefs);
+if ($searchtype){
+$query=convertPQF($searchtype,$oConnection[0],$value);
+}else{
+$query=new ZOOM::Query::PQF($query);
}
+goto EXITING unless $query;## erronous query coming in
+$query->sortby($sortpart[0]." ".$sortpart[1]) if @sortpart;
+my $oResult;
+
+my $tried=0;
+
+my $numresults;
+
+retry:
+$oResult= $oConnection[0]->search($query);
+my $i;
+my $event;
+ while (($i = ZOOM::event(\@oConnection)) != 0) {
+ $event = $oConnection[$i-1]->last_event();
+ last if $event == ZOOM::Event::ZEND;
+ }# while
+
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[0]->error_x();
+ if ($error==10007 && $tried<3) {## timeout --another 30 looonng seconds for this update
+ $tried=$tried+1;
+ goto "retry";
+ }elsif ($error==2 && $tried<2) {## timeout --temporary zebra error !whatever that means
+ $tried=$tried+1;
+ goto "retry";
+ }elsif ($error){
+ warn "Error-$server /errcode:, $error, /MSG:,$errmsg,$addinfo \n";
+ $oResult->destroy();
+ $oConnection[0]->destroy();
+ return (undef,undef);
+ }
+my $dbh=C4::Context->dbh;
+ $numresults=$oResult->size() ;
-sub NewBorrowerNumber {
- my $dbh=C4Connect;
- my $sth=$dbh->prepare("Select max(borrowernumber) from borrowers");
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $data->{'max(borrowernumber)'}++;
- $dbh->disconnect;
- return($data->{'max(borrowernumber)'});
-}
-
-sub catalogsearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = C4Connect();
-# foreach my $key (%$search){
-# $search->{$key}=$dbh->quote($search->{$key});
-# }
- my ($count,@results);
- if ($search->{'itemnumber'} ne '' || $search->{'isbn'} ne ''){
- ($count,@results)=CatSearch($env,'precise',$search,$num,$offset);
- } else {
- if ($search->{'subject'} ne ''){
- ($count,@results)=CatSearch($env,'subject',$search,$num,$offset);
- } else {
- if ($search->{'keyword'} ne ''){
- ($count,@results)=&KeywordSearch($env,'keyword',$search,$num,$offset);
- } elsif ($search->{'title'} ne '' || $search->{'author'} ne '' ||
- $search->{'illustrator'} ne '' || $search->{'dewey'} ne '' ||
- $search->{'class'} ne ''){
- ($count,@results)=CatSearch($env,'loose',$search,$num,$offset);
- }
- }
- }
- if ($env->{itemcount}) {
- foreach my $data (@results){
- my ($count, $lcount, $nacount, $fcount, $scount, $lostcount, $mending, $transit, $ocount) = itemcount($env, $data->{'biblionumber'}, 'intra');
- $data->{'itemcount'}=$count;
- }
- }
- return ($count,@results);
-}
+ if ($numresults>0){
+ my $ri=0;
+ my $z=0;
-
-sub KeywordSearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = &C4Connect;
- $search->{'keyword'}=~ s/ +$//;
- $search->{'keyword'}=~ s/'/\\'/;
- my @key=split(' ',$search->{'keyword'});
- my $count=@key;
- my $i=1;
- my @results;
- my $query="Select biblionumber from biblio
- where ((title like '$key[0]%' or title like '% $key[0]%')";
- while ($i < $count){
- $query=$query." and (title like '$key[$i]%' or title like '% $key[$i]%')";
- $i++;
- }
- $query.= ") or ((biblio.notes like '$key[0]%' or biblio.notes like '% $key[0]%')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (biblio.notes like '$key[$i]%' or biblio.notes like '% $key[$i]%')";
- }
- $query.= ") or ((seriestitle like '$key[0]%' or seriestitle like '% $key[0]%')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (seriestitle like '$key[$i]%' or seriestitle like '% $key[$i]%')";
- }
- $query.=" )";
-# print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $i=0;
- while (my @res=$sth->fetchrow_array){
- $results[$i]=$res[0];
- $i++;
- }
- $sth->finish;
- my $set1=Set::Scalar->new(@results);
- $query="Select biblionumber from bibliosubtitle where
- ((subtitle like '$key[0]%' or subtitle like '% $key[0]%')";
- for ($i=1;$i<$count;$i++){
- $query.= " and (subtitle like '$key[$i]%' or subtitle like '% $key[$i]%')";
- }
- $query.=" )";
-# print $query;
- $sth=$dbh->prepare($query);
- $sth->execute;
- $i=0;
- while (my @res=$sth->fetchrow_array){
- $results[$i]=$res[0];
- $i++;
- }
- $sth->finish;
- my $set2=Set::Scalar->new(@results);
- if ($i > 0){
- $set1=$set1+$set2;
- }
- $query ="Select biblionumber from biblioitems where
- ((biblioitems.notes like '$key[0]%' or biblioitems.notes like '% $key[0]%')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (biblioitems.notes like '$key[$i]%' or biblioitems.notes like '% $key[$i]%')";
- }
- $query.=" )";
-# print $query;
- $sth=$dbh->prepare($query);
- $sth->execute;
- $i=0;
- while (my @res=$sth->fetchrow_array){
- $results[$i]=$res[0];
- $i++;
- }
- $sth->finish;
- my $set3=Set::Scalar->new(@results);
- if ($i > 0){
- $set1=$set1+$set3;
- }
- $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject
- like '%$search->{'keyword'}%' group by biblionumber");
- $sth->execute;
- $i=0;
- while (my @res=$sth->fetchrow_array){
- $results[$i]=$res[0];
- $i++;
- }
- $sth->finish;
- my $set4=Set::Scalar->new(@results);
- if ($i > 0){
- $set1=$set1+$set4;
- }
- my $i2=0;
- my $i3=0;
- my $i4=0;
-
- my @res2;
- my @res = $set1->members;
- $count=@res;
-# print $set1;
- $i=0;
-# print "count $count";
- if ($search->{'class'} ne ''){
- while ($i2 <$count){
- my $query="select * from biblio,biblioitems where
- biblio.biblionumber='$res[$i2]' and
- biblio.biblionumber=biblioitems.biblionumber ";
- if ($search->{'class'} ne ''){
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= "and ( itemtype='$temp[0]'";
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype='$temp[$i]'";
- }
- $query.=")";
- }
- my $sth=$dbh->prepare($query);
- # print $query;
- $sth->execute;
- if (my $data2=$sth->fetchrow_hashref){
- my $dewey= $data2->{'dewey'};
- my $subclass=$data2->{'subclass'};
- $dewey=~s/\.*0*$//;
- ($dewey == 0) && ($dewey='');
- ($dewey) && ($dewey.=" $subclass") ;
- $sth->finish;
- my $end=$offset +$num;
- if ($i4 <= $offset){
- $i4++;
- }
-# print $i4;
- if ($i4 <=$end && $i4 > $offset){
- $data2->{'dewey'}=$dewey;
- $res2[$i3]=$data2;
-
-# $res2[$i3]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}\t$dewey";
- $i3++;
- $i4++;
-# print "in here $i3<br>";
- } else {
-# print $end;
- }
- $i++;
- }
- $i2++;
- }
- $count=$i;
-
- } else {
- while ($i2 < $num && $i2 < $count){
- my $query="select * from biblio,biblioitems where
- biblio.biblionumber='$res[$i2+$offset]' and
- biblio.biblionumber=biblioitems.biblionumber ";
- if ($search->{'class'} ne ''){
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= "and ( itemtype='$temp[0]'";
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype='$temp[$i]'";
- }
- $query.=")";
- }
- if ($search->{'dewey'} ne ''){
- $query.= "and (dewey like '$search->{'dewey'}%') ";
- }
+ $ri=$startfrom if $startfrom;
+ for ( $ri; $ri<$numresults ; $ri++){
- my $sth=$dbh->prepare($query);
-# print $query;
- $sth->execute;
- if (my $data2=$sth->fetchrow_hashref){
- my $dewey= $data2->{'dewey'};
- my $subclass=$data2->{'subclass'};
- $dewey=~s/\.*0*$//;
- ($dewey == 0) && ($dewey='');
- ($dewey) && ($dewey.=" $subclass") ;
- $sth->finish;
- $data2->{'dewey'}=$dewey;
- $res2[$i]=$data2;
-# $res2[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}\t$dewey";
- $i++;
- }
- $i2++;
-
- }
- }
- $dbh->disconnect;
+ my $xmlrecord=$oResult->record($ri)->raw();
+ $xmlrecord=Encode::decode("utf8",$xmlrecord);
+ $xmlrecord=XML_xml2hash($xmlrecord);
+ $z++;
- #$count=$i;
- return($count,@res2);
+ push @results,$xmlrecord;
+ last if ($number_of_results && $z>=$number_of_results);
+
+
+ }## for #numresults
+ if ($fordisplay){
+ my ($facets,@parsed)=parsefields($dbh,$searchfrom,@results);
+ return ($numresults,$facets,@parsed) ;
+ }
+ }# if numresults
+
+$oResult->destroy();
+$oConnection[0]->destroy();
+EXITING:
+return ($numresults,@results) ;
}
-sub CatSearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = &C4Connect;
- my $query = '';
- my @results;
- $search->{'title'}=~ s/'/\\'/g;
- $search->{'author'}=~ s/'/\\'/g;
- $search->{'illustrator'}=~ s/'/\\'/g;
- my $title = lc($search->{'title'});
-
- if ($type eq 'loose') {
- if ($search->{'author'} ne ''){
- my @key=split(' ',$search->{'author'});
- my $count=@key;
- my $i=1;
- $query="select *,biblio.author,biblio.biblionumber from
- biblio
- left join additionalauthors
- on additionalauthors.biblionumber =biblio.biblionumber
- where
- ((biblio.author like '$key[0]%' or biblio.author like '% $key[0]%' or
- additionalauthors.author like '$key[0]%' or additionalauthors.author
- like '% $key[0]%'
- )";
- while ($i < $count){
- $query=$query." and (
- biblio.author like '$key[$i]%' or biblio.author like '% $key[$i]%' or
- additionalauthors.author like '$key[$i]%' or additionalauthors.author like '% $key[$i]%'
- )";
- $i++;
- }
- $query=$query.")";
- if ($search->{'title'} ne ''){
- my @key=split(' ',$search->{'title'});
- my $count=@key;
- my $i=0;
- $query.= " and (((title like '$key[0]%' or title like '% $key[0]%' or title like '% $key[0]')";
- while ($i<$count){
- $query=$query." and (title like '$key[$i]%' or title like '% $key[$i]%' or title like '% $key[$i]')";
- $i++;
- }
-# $query.=") or ((subtitle like '$key[0]%' or subtitle like '% $key[0] %' or subtitle like '% $key[0]')";
-# for ($i=1;$i<$count;$i++){
-# $query.=" and (subtitle like '$key[$i]%' or subtitle like '% $key[$i] %' or subtitle like '% $key[$i]')";
-# }
- $query.=") or ((seriestitle like '$key[0]%' or seriestitle like '% $key[0]%' or seriestitle like '% $key[0]')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (seriestitle like '$key[$i]%' or seriestitle like '% $key[$i]%')";
- }
- $query.=") or ((unititle like '$key[0]%' or unititle like '% $key[0]%' or unititle like '% $key[0]')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (unititle like '$key[$i]%' or unititle like '% $key[$i]%')";
- }
- $query=$query."))";
- #$query=$query. " and (title like '%$search->{'title'}%'
- #or seriestitle like '%$search->{'title'}%')";
- }
-
- $query.=" group by biblio.biblionumber";
- } else {
- if ($search->{'title'} ne '') {
- if ($search->{'ttype'} eq 'exact'){
- $query="select * from biblio
- where
- (biblio.title='$search->{'title'}' or (biblio.unititle = '$search->{'title'}'
- or biblio.unititle like '$search->{'title'} |%' or
- biblio.unititle like '%| $search->{'title'} |%' or
- biblio.unititle like '%| $search->{'title'}') or
- (biblio.seriestitle = '$search->{'title'}' or
- biblio.seriestitle like '$search->{'title'} |%' or
- biblio.seriestitle like '%| $search->{'title'} |%' or
- biblio.seriestitle like '%| $search->{'title'}')
- )";
- } else {
- my @key=split(' ',$search->{'title'});
- my $count=@key;
- my $i=1;
- $query="select * from biblio
- left join bibliosubtitle on
- biblio.biblionumber=bibliosubtitle.biblionumber
- where
- (((title like '$key[0]%' or title like '% $key[0]%' or title like '% $key[0]')";
- while ($i<$count){
- $query=$query." and (title like '$key[$i]%' or title like '% $key[$i]%' or title like '% $key[$i]')";
- $i++;
- }
- $query.=") or ((subtitle like '$key[0]%' or subtitle like '% $key[0]%' or subtitle like '% $key[0]')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (subtitle like '$key[$i]%' or subtitle like '% $key[$i]%' or subtitle like '% $key[$i]')";
- }
- $query.=") or ((seriestitle like '$key[0]%' or seriestitle like '% $key[0]%' or seriestitle like '% $key[0]')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (seriestitle like '$key[$i]%' or seriestitle like '% $key[$i]%')";
- }
- $query.=") or ((unititle like '$key[0]%' or unititle like '% $key[0]%' or unititle like '% $key[0]')";
- for ($i=1;$i<$count;$i++){
- $query.=" and (unititle like '$key[$i]%' or unititle like '% $key[$i]%')";
- }
- $query=$query."))";
- }
- } elsif ($search->{'class'} ne ''){
- $query="select * from biblioitems,biblio where biblio.biblionumber=biblioitems.biblionumber";
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= " and ( itemtype='$temp[0]'";
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype='$temp[$i]'";
- }
- $query.=")";
- if ($search->{'illustrator'} ne ''){
- $query.=" and illus like '%".$search->{'illustrator'}."%' ";
- }
- if ($search->{'dewey'} ne ''){
- $query.=" and biblioitems.dewey like '$search->{'dewey'}%'";
- }
- } elsif ($search->{'dewey'} ne ''){
- $query="select * from biblioitems,biblio
- where biblio.biblionumber=biblioitems.biblionumber
- and biblioitems.dewey like '$search->{'dewey'}%'";
- } elsif ($search->{'illustrator'} ne '') {
- if ($search->{'illustrator'} ne ''){
- $query="select * from biblioitems,biblio
- where biblio.biblionumber=biblioitems.biblionumber
- and biblioitems.illus like '%".$search->{'illustrator'}."%'";
- }
+sub weightRank {
+my ($kohafield,$value,$i)=@_;
+### If a multi query is received weighting is reduced from 1st query being highest rank to last query being lowest;
+my $weighted;
+my $weight=1000 -($i*100);
+$weight=100 if $weight==0;
+ return "" if $value eq "";
+ my $keyattr=MARCfind_attr_from_kohafield($kohafield) if ($kohafield);
+ return "" if($keyattr=~/4=109/ || $keyattr=~/4=4/ || $keyattr=~/4=5/); ###ranked sort not valid for numeric fields
+ my $fullfield; ### not all indexes are Complete-field. Use only for title||author
+ if ($kohafield eq "title" || $kohafield eq "" || $kohafield eq "any"){
+ $keyattr=" \@attr 1=title-cover";
+ $fullfield="\@attr 6=3 ";
+ }elsif ($kohafield eq "author"){
+ $fullfield="\@attr 6=3 ";
}
- $query .=" group by biblio.biblionumber";
- }
- }
- if ($type eq 'subject'){
- my @key=split(' ',$search->{'subject'});
- my $count=@key;
- my $i=1;
- $query="select distinct(subject) from bibliosubject where( subject like
- '$key[0]%' or subject like '% $key[0]%' or subject like '% $key[0]' or subject like '%($key[0])%')";
- while ($i<$count){
- $query.=" and (subject like '$key[$i]%' or subject like '% $key[$i]%'
- or subject like '% $key[$i]'
- or subject like '%($key[$i])%')";
- $i++;
- }
- if ($search->{'subject'} eq 'NZ' || $search->{'subject'} eq 'nz'){
- $query.= " or (subject like 'NEW ZEALAND %' or subject like '% NEW ZEALAND %'
- or subject like '% NEW ZEALAND' or subject like '%(NEW ZEALAND)%' ) ";
- } elsif ( $search->{'subject'} =~ /^nz /i || $search->{'subject'} =~ / nz /i || $search->{'subject'} =~ / nz$/i){
- $query=~ s/ nz/ NEW ZEALAND/ig;
- $query=~ s/nz /NEW ZEALAND /ig;
- $query=~ s/\(nz\)/\(NEW ZEALAND\)/gi;
- }
- }
- if ($type eq 'precise'){
- $query="select * from items,biblio ";
- if ($search->{'item'} ne ''){
- my $search2=uc $search->{'item'};
- $query=$query." where
- items.biblionumber=biblio.biblionumber
- and barcode='$search2'";
- }
- if ($search->{'isbn'} ne ''){
- my $search2=uc $search->{'isbn'};
- my $query1 = "select * from biblioitems where isbn='$search2'";
- my $sth1=$dbh->prepare($query1);
-# print $query1;
- $sth1->execute;
- my $i2=0;
- while (my $data=$sth1->fetchrow_hashref) {
- $query="select * from biblioitems,biblio where
- biblio.biblionumber = $data->{'biblionumber'}
- and biblioitems.biblionumber = biblio.biblionumber";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- my ($dewey, $subclass) = ($data->{'dewey'}, $data->{'subclass'});
- $dewey=~s/\.*0*$//;
- ($dewey == 0) && ($dewey='');
- ($dewey) && ($dewey.=" $subclass");
- $data->{'dewey'}=$dewey;
- $results[$i2]=$data;
-# $results[$i2]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}\t$dewey\t$data->{'isbn'}\t$data->{'itemtype'}";
- $i2++;
- $sth->finish;
- }
- $sth1->finish;
- }
- }
-#print $query;
-if ($type ne 'precise' && $type ne 'subject'){
- if ($search->{'author'} ne ''){
- $query=$query." order by biblio.author,title";
- } else {
- $query=$query." order by title";
- }
-} else {
- if ($type eq 'subject'){
- $query=$query." order by subject";
- }
+ $weighted.="\@attr 2=102 ".$keyattr." \@attr 3=1 $fullfield \@attr 9=$weight \"".$value."\" " ;
+ $weighted=" \@or ".$weighted;
+ return $weighted;
}
-#print $query;
-my $sth=$dbh->prepare($query);
-$sth->execute;
-my $count=1;
-my $i=0;
-my $limit= $num+$offset;
-while (my $data=$sth->fetchrow_hashref){
- my $query="select dewey,subclass from biblioitems where biblionumber=$data->{'biblionumber'}";
- if ($search->{'class'} ne ''){
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= " and ( itemtype='$temp[0]'";
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype='$temp[$i]'";
- }
- $query.=")";
- }
- if ($search->{'dewey'} ne ''){
- $query.=" and dewey='$search->{'dewey'}' ";
- }
- if ($search->{'illustrator'} ne ''){
- $query.=" and illus like '%".$search->{'illustrator'}."%' ";
- }
-#print $query;
- my $sti=$dbh->prepare($query);
- $sti->execute;
- my $dewey;
- my $subclass;
- my $true=0;
- if (($dewey, $subclass) = $sti->fetchrow || $type eq 'subject'){
- $true=1;
- }
- $dewey=~s/\.*0*$//;
- ($dewey == 0) && ($dewey='');
- ($dewey) && ($dewey.=" $subclass");
- $data->{'dewey'}=$dewey;
- $sti->finish;
- if ($true == 1){
- if ($count > $offset && $count <= $limit){
- $results[$i]=$data;
- $i++;
- }
- $count++;
- }
+sub convertPQF{
+# Convert CCL, CQF or PQF to ZEBRA RPN queries,trap errors
+my ($search_type,$zconn,$query)=@_;
+my $pqf_query;
+if ($search_type eq "pqf"){
+eval{
+$pqf_query=new ZOOM::Query::PQF(@$query[0]);
+};
+}elsif ($search_type eq "ccl"){
+
+my $cclfile=C4::Context->config("ccl2rpn");
+$zconn->option(cclfile=>$cclfile);## CCL conversion file path
+eval{
+$pqf_query=new ZOOM::Query::CCL2RPN(@$query[0],$zconn);
+};
+}elsif ($search_type eq "cql"){
+eval{
+$pqf_query=new ZOOM::Query::CQL(@$query[0]);
+};
}
-$sth->finish;
-#if ($type ne 'precise'){
- $count--;
-#}
-#$count--;
-return($count,@results);
+if ($@){
+$pqf_query=0;
}
-sub updatesearchstats{
- my ($dbh,$query)=@_;
-
+return $pqf_query;
}
-sub subsearch {
- my ($env,$subject)=@_;
- my $dbh=C4Connect();
- $subject=$dbh->quote($subject);
- my $query="Select * from biblio,bibliosubject where
- biblio.biblionumber=bibliosubject.biblionumber and
- bibliosubject.subject=$subject group by biblio.biblionumber
- order by biblio.title";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $i=0;
-# print $query;
- my @results;
- while (my $data=$sth->fetchrow_hashref){
- $results[$i]="$data->{'title'}\t$data->{'author'}\t$data->{'biblionumber'}";
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return(@results);
-}
+=item add_bold_fields
+After a search the searched keyword is <b>boldened</b> in the displayed search results if it exists in the title or author
+It is now depreceated
+=cut
+sub add_html_bold_fields {
+ my ($type, $data, $search) = @_;
+ foreach my $key ('title', 'author') {
+ my $new_key;
+
+ $new_key = 'bold_' . $key;
+ $data->{$new_key} = $data->{$key};
+ my $key1;
+
+ $key1 = $key;
+
-sub ItemInfo {
- my ($env,$biblionumber,$type) = @_;
- my $dbh = &C4Connect;
- my $query = "Select * from items, biblio, biblioitems, branches
-where (items.biblioitemnumber = biblioitems.biblioitemnumber)
-and biblioitems.biblionumber = biblio.biblionumber
-and biblio.biblionumber = '$biblionumber'
-and branches.branchcode = items.holdingbranch";
-
- if ($type ne 'intra'){
- $query .= " and ((items.itemlost<>1 and items.itemlost <> 2)
- or items.itemlost is NULL)
- and (wthdrawn <> 1 or wthdrawn is NULL)";
- }
- $query .= " order by items.dateaccessioned desc";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $i=0;
- my @results;
-# print $query;
- while (my $data=$sth->fetchrow_hashref){
- my $iquery = "Select * from issues
- where itemnumber = '$data->{'itemnumber'}'
- and returndate is null";
- my $datedue = '';
- my $isth=$dbh->prepare($iquery);
- $isth->execute;
- if (my $idata=$isth->fetchrow_hashref){
- my @temp=split('-',$idata->{'date_due'});
- $datedue = "$temp[2]/$temp[1]/$temp[0]";
- }
- if ($data->{'itemlost'} eq '1' || $data->{'itemlost'} eq '2'){
- $datedue='Itemlost';
- }
- if ($data->{'wthdrawn'} eq '1'){
- $datedue="Cancelled";
- }
- if ($datedue eq ''){
- my ($rescount,$reserves)=Findgroupreserve($data->{'biblioitemnumber'},$biblionumber);
+ my @keys;
+ my $i = 1;
+ if ($type eq 'keyword') {
+ my $newkey=$search->{'keyword'};
+ $newkey=~s /\++//g;
+ @keys = split " ", $newkey;
+ }
+ my $count = @keys;
+ for ($i = 0; $i < $count ; $i++) {
+
+ if (($data->{$new_key} =~ /($keys[$i])/i) && (lc($keys[$i]) ne 'b') ) {
+ my $word = $1;
+ $data->{$new_key} =~ s/$word/<b>$word<\/b>/;
+ }
+
+ }
+ }
- if ($rescount >0){
- $datedue='Request';
- }
- }
- $isth->finish;
- my $class = $data->{'classification'};
- my $dewey = $data->{'dewey'};
- $dewey =~ s/0+$//;
- if ($dewey eq "000.") { $dewey = "";};
- if ($dewey < 10){$dewey='00'.$dewey;}
- if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
- if ($dewey <= 0){
- $dewey='';
- }
- $dewey=~ s/\.$//;
- $class = $class.$dewey;
- if ($dewey ne ''){
- $class = $class.$data->{'subclass'};
- }
- # $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$data->{'dewey'}";
- my @temp=split('-',$data->{'datelastseen'});
- my $date="$temp[2]/$temp[1]/$temp[0]";
- $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$class\t$data->{'itemnumber'}\t$data->{'itemtype'}\t$date\t$data->{'biblioitemnumber'}\t$data->{'volumeddesc'}";
-# print "$results[$i] <br>";
- $i++;
- }
- $sth->finish;
- my $query2="Select * from aqorders where biblionumber=$biblionumber";
- my $sth2=$dbh->prepare($query2);
- $sth2->execute;
- my $data;
- my $ocount;
- if ($data=$sth2->fetchrow_hashref){
- $ocount=$data->{'quantity'} - $data->{'quantityreceived'};
- if ($ocount > 0){
- $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$ocount\tOn Order\t\t$data->{'itemnumber'}\t$data->{'itemtype'}\t\t$data->{'biblioitemnumber'}\t$data->{'volumeddesc'}";
- }
- }
- $sth2->finish;
- $dbh->disconnect;
- return(@results);
+}
+ sub sqlsearch{
+## This searches the SQL database only for biblionumber,itemnumber,barcode
+### Not very useful on production but as a debug tool useful during system maturing for ZEBRA operations
+
+my ($dbh,$search)=@_;
+my $sth;
+if ($search->{'barcode'} ne '') {
+ $sth=$dbh->prepare("SELECT biblionumber from items where barcode=?");
+ $sth->execute($search->{'barcode'});
+}elsif ($search->{'itemnumber'} ne '') {
+ $sth=$dbh->prepare("SELECT biblionumber from items where itemnumber=?");
+ $sth->execute($search->{'itemnumber'});
+}elsif ($search->{'biblionumber'} ne '') {
+ $sth=$dbh->prepare("SELECT biblionumber from biblio where biblionumber=?");
+ $sth->execute($search->{'biblionumber'});
+}else{
+return (undef,undef);
+}
+
+ my $result=$sth->fetchrow_hashref;
+return (1,$result) if $result;
}
-sub GetItems {
- my ($env,$biblionumber)=@_;
- #debug_msg($env,"GetItems");
- my $dbh = &C4Connect;
- my $query = "Select * from biblioitems where (biblionumber = $biblionumber)";
- #debug_msg($env,$query);
- my $sth=$dbh->prepare($query);
- $sth->execute;
- #debug_msg($env,"executed query");
- my $i=0;
- my @results;
- while (my $data=$sth->fetchrow_hashref) {
- #debug_msg($env,$data->{'biblioitemnumber'});
- my $dewey = $data->{'dewey'};
- $dewey =~ s/0+$//;
- my $line = $data->{'biblioitemnumber'}."\t".$data->{'itemtype'};
- $line = $line."\t$data->{'classification'}\t$dewey";
- $line = $line."\t$data->{'subclass'}\t$data->{isbn}";
- $line = $line."\t$data->{'volume'}\t$data->{number}";
- my $isth= $dbh->prepare("select * from items where biblioitemnumber = $data->{'biblioitemnumber'}");
- $isth->execute;
- while (my $idata = $isth->fetchrow_hashref) {
- my $iline = $idata->{'barcode'}."[".$idata->{'holdingbranch'}."[";
- if ($idata->{'notforloan'} == 1) {
- $iline = $iline."NFL ";
+sub cataloguing_search{
+## This is an SQL based search designed to be used when adding a new biblio incase library sets
+## preference zebraorsql to sql when adding a new biblio
+my ($search,$num,$offset) = @_;
+ my ($count,@results);
+my $dbh=C4::Context->dbh;
+#Prepare search
+my $query;
+my $condition="select SQL_CALC_FOUND_ROWS marcxml from biblio where ";
+if ($search->{'isbn'} ne''){
+$search->{'isbn'}=$search->{'isbn'}."%";
+$query=$search->{'isbn'};
+$condition.= " isbn like ? ";
+}else{
+return (0,undef) unless $search->{title};
+$query=$search->{'title'};
+$condition.= " MATCH (title) AGAINST(? in BOOLEAN MODE ) ";
+}
+my $sth=$dbh->prepare($condition);
+$sth->execute($query);
+ my $nbresult=$dbh->prepare("SELECT FOUND_ROWS()");
+ $nbresult->execute;
+ my $count=$nbresult->fetchrow;
+my $limit = $num + $offset;
+my $startfrom = $offset;
+my $i=0;
+my @results;
+while (my $marc=$sth->fetchrow){
+ if (($i >= $startfrom) && ($i < $limit)) {
+ my $record=XML_xml2hash_onerecord($marc);
+ my $data=XMLmarc2koha_onerecord($dbh,$record,"biblios");
+ push @results,$data;
}
- if ($idata->{'itemlost'} == 1) {
- $iline = $iline."LOST ";
- }
- $line = $line."\t$iline";
- }
- $isth->finish;
- $results[$i] = $line;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return(@results);
-}
-
-sub itemdata {
- my ($barcode)=@_;
- my $dbh=C4Connect;
- my $query="Select * from items,biblioitems where barcode='$barcode'
- and items.biblioitemnumber=biblioitems.biblioitemnumber";
-# print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
- return($data);
+$i++;
+last if $i==$limit;
+}
+return ($count,@results);
}
-sub bibdata {
- my ($bibnum, $type) = @_;
- my $dbh = C4Connect;
- my $query = "Select *, biblio.notes
- from biblio, biblioitems
- left join bibliosubtitle on
- biblio.biblionumber = bibliosubtitle.biblionumber
- where biblio.biblionumber = $bibnum
- and biblioitems.biblionumber = $bibnum";
- my $sth = $dbh->prepare($query);
- my $data;
-
- $sth->execute;
- $data = $sth->fetchrow_hashref;
- $sth->finish;
-
- $query = "Select * from bibliosubject where biblionumber = '$bibnum'";
- $sth = $dbh->prepare($query);
- $sth->execute;
- while (my $dat = $sth->fetchrow_hashref){
- $data->{'subject'} .= " | $dat->{'subject'}";
- } # while
-
- $sth->finish;
- $dbh->disconnect;
- return($data);
-} # sub bibdata
-
-
-sub bibitemdata {
- my ($bibitem) = @_;
- my $dbh = C4Connect;
- my $query = "Select *,biblioitems.notes as bnotes from biblio, biblioitems,itemtypes
-where biblio.biblionumber = biblioitems.biblionumber
-and biblioitemnumber = $bibitem
-and biblioitems.itemtype = itemtypes.itemtype";
- my $sth = $dbh->prepare($query);
- my $data;
-
- $sth->execute;
-
- $data = $sth->fetchrow_hashref;
-
- $sth->finish;
- $dbh->disconnect;
- return($data);
-} # sub bibitemdata
-
-
-sub subject {
- my ($bibnum)=@_;
- my $dbh=C4Connect;
- my $query="Select * from bibliosubject where biblionumber=$bibnum";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @results;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $results[$i]=$data;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@results);
-}
-sub addauthor {
- my ($bibnum)=@_;
- my $dbh=C4Connect;
- my $query="Select * from additionalauthors where biblionumber=$bibnum";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @results;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $results[$i]=$data;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@results);
+sub FindDuplicate {
+ my ($xml)=@_;
+my $dbh=C4::Context->dbh;
+ my ($result) = XMLmarc2koha_onerecord($dbh,$xml,"biblios");
+ my @kohafield;
+ my @value;
+ my @relation;
+ my @and_or;
+
+ # search duplicate on ISBN, easy and fast..
+
+ if ($result->{isbn}) {
+ push @kohafield,"isbn";
+###Temporary fix for ISBN
+my $isbn=$result->{isbn};
+$isbn=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\!|\'|,|\-|\"|\*|\(|\)|\[|\]|\{|\}|\/)//g;
+ push @value,$isbn;
+ }else{
+$result->{title}=~s /\\//g;
+$result->{title}=~s /\"//g;
+$result->{title}=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\*|\!|\,|\-|\(|\)|\[|\]|\{|\}|\/)/ /g;
+
+ push @kohafield,"title";
+ push @value,$result->{title};
+ push @relation,"\@attr 6=3 \@attr 4=1 \@attr 5=1"; ## right truncated,phrase,whole field
+
+ }
+ my ($total,@result)=ZEBRAsearch_kohafields(\@kohafield,\@value,\@relation,"",\@and_or,0,"",0,1);
+if ($total){
+my $title=XML_readline($result[0],"title","biblios") ;
+my $biblionumber=XML_readline($result[0],"biblionumber","biblios") ;
+ return $biblionumber,$title ;
}
-sub subtitle {
- my ($bibnum)=@_;
- my $dbh=C4Connect;
- my $query="Select * from bibliosubtitle where biblionumber=$bibnum";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @results;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $results[$i]=$data;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@results);
}
+sub add_query_line {
-sub itemissues {
- my ($bibitem, $biblio)=@_;
- my $dbh = C4Connect;
- my $query = "Select * from items where
-items.biblioitemnumber = '$bibitem'";
- my $sth = $dbh->prepare($query)
- || die $dbh->errstr;
- my $i = 0;
- my @results;
-
- $sth->execute
- || die $sth->errstr;
-
- while (my $data = $sth->fetchrow_hashref) {
- my $query2 = "select * from issues,borrowers
-where itemnumber = $data->{'itemnumber'}
-and returndate is NULL
-and issues.borrowernumber = borrowers.borrowernumber";
- my $sth2 = $dbh->prepare($query2);
-
- $sth2->execute;
- if (my $data2 = $sth2->fetchrow_hashref) {
- $data->{'date_due'} = $data2->{'date_due'};
- $data->{'card'} = $data2->{'cardnumber'};
- } else {
- if ($data->{'wthdrawn'} eq '1') {
- $data->{'date_due'} = 'Cancelled';
- } else {
- $data->{'date_due'} = 'Available';
- } # else
- } # else
-
- $sth2->finish;
- $query2 = "select * from issues, borrowers
-where itemnumber = '$data->{'itemnumber'}'
-and issues.borrowernumber = borrowers.borrowernumber
-order by date_due desc";
- $sth2 = $dbh->prepare($query2)
- || die $dbh->errstr;
- $sth2->execute
- || die $sth2->errstr;
-
- for (my $i2 = 0; $i2 < 2; $i2++) {
- if (my $data2 = $sth2->fetchrow_hashref) {
- $data->{"timestamp$i2"} = $data2->{'timestamp'};
- $data->{"card$i2"} = $data2->{'cardnumber'};
- $data->{"borrower$i2"} = $data2->{'borrowernumber'};
- } # if
- } # for
-
- $sth2->finish;
- $results[$i] = $data;
- $i++;
- }
+ my ($type,$search,$results)=@_;
+ my $dbh = C4::Context->dbh;
+ my $searchdesc = '';
+ my $from;
+ my $borrowernumber = $search->{'borrowernumber'};
+ my $remote_IP = $search->{'remote_IP'};
+ my $remote_URL= $search->{'remote_URL'};
+ my $searchdesc = $search->{'searchdesc'};
+
+my $sth = $dbh->prepare("INSERT INTO phrase_log(phr_phrase,phr_resultcount,phr_ip,user,actual) VALUES(?,?,?,?,?)");
+
+
+$sth->execute($searchdesc,$results,$remote_IP,$borrowernumber,$remote_URL);
+$sth->finish;
- $sth->finish;
- $dbh->disconnect;
- return(@results);
}
-sub itemnodata {
- my ($env,$dbh,$itemnumber) = @_;
- $dbh=C4Connect;
- my $query="Select * from biblio,items,biblioitems
- where items.itemnumber = '$itemnumber'
- and biblio.biblionumber = items.biblionumber
- and biblioitems.biblioitemnumber = items.biblioitemnumber";
- my $sth=$dbh->prepare($query);
-# print $query;
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
- return($data);
-}
+=item ItemInfo
-#used by member enquiries from the intranet
-#called by member.pl
-sub BornameSearch {
- my ($env,$searchstring,$type)=@_;
- my $dbh = &C4Connect;
- $searchstring=~ s/\'/\\\'/g;
- my @data=split(' ',$searchstring);
- my $count=@data;
- my $query="Select * from borrowers
- where ((surname like \"$data[0]%\" or surname like \"% $data[0]%\"
- or firstname like \"$data[0]%\" or firstname like \"% $data[0]%\"
- or othernames like \"$data[0]%\" or othernames like \"% $data[0]%\")
- ";
- for (my $i=1;$i<$count;$i++){
- $query=$query." and (surname like \"$data[$i]%\" or surname like \"% $data[$i]%\"
- or firstname like \"$data[$i]%\" or firstname like \"% $data[$i]%\"
- or othernames like \"$data[$i]%\" or othernames like \"% $data[$i]%\")";
- }
- $query=$query.") or cardnumber = \"$searchstring\"
- order by surname,firstname";
-# print $query,"\n";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @results;
- my $cnt=0;
- while (my $data=$sth->fetchrow_hashref){
- push(@results,$data);
- $cnt ++;
- }
-# $sth->execute;
- $sth->finish;
- $dbh->disconnect;
- return ($cnt,\@results);
+ @results = &ItemInfo($env, $biblionumber, $type);
+
+Returns information about books with the given biblionumber.
+
+C<$type> may be either C<intra> or anything else. If it is not set to
+C<intra>, then the search will exclude lost, very overdue, and
+withdrawn items.
+
+C<$env> is ignored.
+
+C<&ItemInfo> returns a list of references-to-hash. Each element
+contains a number of keys. Most of them are table items from the
+C<biblio>, C<biblioitems>, C<items>, and C<itemtypes> tables in the
+Koha database. Other keys include:
+
+=over 4
+
+=item C<$data-E<gt>{branchname}>
+
+The name (not the code) of the branch to which the book belongs.
+
+=item C<$data-E<gt>{datelastseen}>
+
+This is simply C<items.datelastseen>, except that while the date is
+stored in YYYY-MM-DD format in the database, here it is converted to
+DD/MM/YYYY format. A NULL date is returned as C<//>.
+
+=item C<$data-E<gt>{datedue}>
+
+=item C<$data-E<gt>{class}>
+
+This is the concatenation of C<biblioitems.classification>, the book's
+Dewey code, and C<biblioitems.subclass>.
+
+=item C<$data-E<gt>{ocount}>
+
+I think this is the number of copies of the book available.
+
+=item C<$data-E<gt>{order}>
+
+If this is set, it is set to C<One Order>.
+
+=back
+
+=cut
+#'
+sub ItemInfo {
+ my ($dbh,$data) = @_;
+ my $i=0;
+ my @results;
+my ($date_due, $count_reserves);
+ my $datedue = '';
+ my $isth=$dbh->prepare("Select issues.*,borrowers.cardnumber from issues,borrowers where itemnumber = ? and returndate is null and issues.borrowernumber=borrowers.borrowernumber");
+ $isth->execute($data->{'itemnumber'});
+ if (my $idata=$isth->fetchrow_hashref){
+ $data->{borrowernumber} = $idata->{borrowernumber};
+ $data->{cardnumber} = $idata->{cardnumber};
+ $datedue = format_date($idata->{'date_due'});
+ }
+ if ($datedue eq '' || $datedue eq "0000-00-00"){
+ $datedue="";
+ my ($restype,$reserves)=C4::Reserves2::CheckReserves($data->{'itemnumber'});
+ if ($restype) {
+ $count_reserves = $restype;
+ }
+ }
+ $isth->finish;
+ #get branch information.....
+ my $bsth=$dbh->prepare("SELECT * FROM branches WHERE branchcode = ?");
+ $bsth->execute($data->{'holdingbranch'});
+ if (my $bdata=$bsth->fetchrow_hashref){
+ $data->{'branchname'} = $bdata->{'branchname'};
+ }
+
+ $data->{'datelastseen'}=format_date($data->{'datelastseen'});
+ $data->{'datedue'}=$datedue;
+ $data->{'count_reserves'} = $count_reserves;
+ # get notforloan complete status if applicable
+ my ($tagfield,$tagsub)=MARCfind_marc_from_kohafield("notforloan","holdings");
+ my $sthnflstatus = $dbh->prepare("select authorised_value from holdings_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsub'");
+ $sthnflstatus->execute;
+ my ($authorised_valuecode) = $sthnflstatus->fetchrow;
+ if ($authorised_valuecode) {
+ $sthnflstatus = $dbh->prepare("select lib from authorised_values where category=? and authorised_value=?");
+ $sthnflstatus->execute($authorised_valuecode,$data->{itemnotforloan});
+ my ($lib) = $sthnflstatus->fetchrow;
+ $data->{notforloan} = $lib;
+ }
+
+# my shelf procedures
+ my ($tagfield,$tagsubfield)=MARCfind_marc_from_kohafield("shelf","holdings");
+
+ my $shelfstatus = $dbh->prepare("select authorised_value from holdings_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'");
+$shelfstatus->execute;
+ $authorised_valuecode = $shelfstatus->fetchrow;
+ if ($authorised_valuecode) {
+ $shelfstatus = $dbh->prepare("select lib from authorised_values where category=? and authorised_value=?");
+ $shelfstatus->execute($authorised_valuecode,$data->{shelf});
+
+ my ($lib) = $shelfstatus->fetchrow;
+ $data->{shelf} = $lib;
+ }
+
+
+
+ return($data);
}
-sub borrdata {
- my ($cardnumber,$bornum)=@_;
- $cardnumber = uc $cardnumber;
- my $dbh=C4Connect;
- my $query;
- if ($bornum eq ''){
- $query="Select * from borrowers where cardnumber='$cardnumber'";
- } else {
- $query="Select * from borrowers where borrowernumber='$bornum'";
- }
- #print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
- return($data);
+
+
+
+
+=item barcodes
+
+ @barcodes = &barcodes($biblioitemnumber);
+
+Given a biblioitemnumber, looks up the corresponding items.
+
+Returns an array of references-to-hash; the keys are C<barcode> and
+C<itemlost>.
+
+The returned items include very overdue items, but not lost ones.
+
+=cut
+#'
+sub barcodes{
+ #called from request.pl
+ my ($biblionumber)=@_;
+#warn $biblionumber;
+ my $dbh = C4::Context->dbh;
+ my @kohafields;
+ my @values;
+ my @relations;
+ my $sort;
+ my @and_or;
+ my @fields;
+ push @kohafields, "biblionumber";
+ push @values,$biblionumber;
+ push @relations, " "," \@attr 2=1"; ## selecting wthdrawn less then 1
+ push @and_or, "\@and";
+ $sort="";
+ my ($count,@results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or,"","");
+push @fields,"barcode","itemlost","itemnumber","date_due","wthdrawn","notforloan";
+ my ($biblio,@items)=XMLmarc2koha($dbh,$results[0],"holdings", @fields);
+return(@items);
}
-sub borrissues {
- my ($bornum)=@_;
- my $dbh=C4Connect;
- my $query;
- $query="Select * from issues,biblio,items where borrowernumber='$bornum' and
-items.itemnumber=issues.itemnumber and
-items.biblionumber=biblio.biblionumber and issues.returndate is NULL order
-by date_due";
- #print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @result;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $result[$i]=$data;;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@result);
+
+
+
+
+sub getMARCnotes {
+##Requires a MARCXML as $record
+ my ($dbh, $record, $marcflavour) = @_;
+
+ my ($mintag, $maxtag);
+ if (uc($marcflavour) eq uc"MARC21" || uc($marcflavour) eq "USMARC") {
+ $mintag = "500";
+ $maxtag = "599";
+ } else { # assume unimarc if not marc21
+ $mintag = "300";
+ $maxtag = "399";
+ }
+ my @marcnotes=();
+
+ foreach my $field ($mintag..$maxtag) {
+ my %line;
+ my @values=XML_readline_asarray($record,"","",$field,"");
+ foreach my $value (@values){
+ $line{MARCNOTE}=$value if $value;
+ push @marcnotes,\%line if $line{MARCNOTE};
+ }
+ }
+
+ my $marcnotesarray=\@marcnotes;
+ return $marcnotesarray;
+
+} # end getMARCnotes
+
+
+sub getMARCsubjects {
+
+ my ($dbh, $record, $marcflavour) = @_;
+ my ($mintag, $maxtag);
+ if (uc($marcflavour) eq uc"MARC21" || uc($marcflavour) eq "USMARC") {
+ $mintag = "600";
+ $maxtag = "699";
+ } else { # assume unimarc if not marc21
+ $mintag = "600";
+ $maxtag = "619";
+ }
+ my @marcsubjcts;
+ my $subjct = "";
+ my $subfield = "";
+ my $marcsubjct;
+
+ foreach my $field ($mintag..$maxtag) {
+ my @value =XML_readline_asarray($record,"","",$field,"a");
+ foreach my $subject (@value){
+ $marcsubjct = {MARCSUBJCT => $subject,};
+ push @marcsubjcts, $marcsubjct;
+ }
+
+ }
+ my $marcsubjctsarray=\@marcsubjcts;
+ return $marcsubjctsarray;
+} #end getMARCsubjects
+
+
+sub getMARCurls {
+ my ($dbh, $record, $marcflavour) = @_;
+ my ($mintag, $maxtag);
+ if (uc($marcflavour) eq uc"MARC21" || uc($marcflavour) eq "USMARC") {
+ $mintag = "856";
+ $maxtag = "856";
+ } else { # assume unimarc if not marc21
+ $mintag = "600";
+ $maxtag = "619";
+ }
+
+ my @marcurls;
+ my $url = "";
+ my $subfil = "";
+ my $marcurl;
+ my $value;
+ foreach my $field ($mintag..$maxtag) {
+ my @value =XML_readline_asarray($record,"","",$field,"u");
+ foreach my $url (@value){
+ if ( $value ne $url) {
+ $marcurl = {MARCURL => $url,};
+ push @marcurls, $marcurl;
+ $value=$url;
+ }
+ }
+ }
+
+
+ my $marcurlsarray=\@marcurls;
+ return $marcurlsarray;
+} #end getMARCurls
+
+sub getMARCadditional_authors {
+ my ($dbh, $record, $marcflavour) = @_;
+ my ($mintag, $maxtag);
+ if (uc($marcflavour) eq uc"MARC21" || uc($marcflavour) eq "USMARC") {
+ $mintag = "700";
+ $maxtag = "700";
+ } else { # assume unimarc if not marc21
+###FIX ME Correct tag to UNIMARC additional authors
+ $mintag = "200";
+ $maxtag = "200";
+ }
+
+ my @marcauthors;
+
+ my $subfil = "";
+ my $marcauth;
+ my $value;
+ foreach my $field ($mintag..$maxtag) {
+ my @value =XML_readline_asarray($record,"","",$field,"a");
+ foreach my $author (@value){
+ if ( $value ne $author) {
+ $marcauth = {MARCAUTHOR => $author,};
+ push @marcauthors, $marcauth;
+ $value=$author;
+ }
+ }
+ }
+
+
+ my $marcauthsarray=\@marcauthors;
+ return $marcauthsarray;
+} #end getMARCurls
+
+sub parsefields{
+#pass this a MARC record and it will parse it for display purposes
+my ($dbh,$intranet,@marcrecords)=@_;
+my @results;
+my @items;
+my $retrieve_from=C4::Context->preference('retrieve_from');
+#Build brancnames hash for displaying in OPAC - more user friendly
+#find branchname
+#get branch information.....
+my %branches;
+ my $bsth=$dbh->prepare("SELECT branchcode,branchname FROM branches");
+ $bsth->execute();
+ while (my $bdata=$bsth->fetchrow_hashref){
+ $branches{$bdata->{'branchcode'}}= $bdata->{'branchname'};
+ }
+
+#Building shelving hash if library has shelves defined like junior section, non-fiction, audio-visual room etc
+my %shelves;
+#find shelvingname
+my ($tagfield,$tagsubfield)=MARCfind_marc_from_kohafield("shelf","holdings");
+my $shelfstatus = $dbh->prepare("select authorised_value from holdings_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'");
+ $shelfstatus->execute;
+ my ($authorised_valuecode) = $shelfstatus->fetchrow;
+ if ($authorised_valuecode) {
+ $shelfstatus = $dbh->prepare("select lib,authorised_value from authorised_values where category=? ");
+ $shelfstatus->execute($authorised_valuecode);
+ while (my $lib = $shelfstatus->fetchrow_hashref){
+ $shelves{$lib->{'authorised_value'}} = $lib->{'lib'};
+ }
+ }
+my $even=1;
+### FACETED RESULTS
+ my $facets_counter = ();
+ my $facets_info = ();
+ my @facets_loop; # stores the ref to array of hashes for template
+
+foreach my $xml(@marcrecords){
+
+ if (C4::Context->preference('useFacets')){
+ ($facets_counter,$facets_info)=FillFacets($xml,$facets_counter,$facets_info);
+ }
+my @kohafields; ## just name those necessary for the result page
+push @kohafields, "biblionumber","title","author","publishercode","classification","subclass","itemtype","copyrightdate", "holdingbranch","date_due","location","shelf","itemcallnumber","notforloan","itemlost","wthdrawn";
+my ($oldbiblio,@itemrecords) = XMLmarc2koha($dbh,$xml,"",@kohafields);
+my $bibliorecord;
+
+my %counts;
+
+$counts{'total'}=0;
+my $noitems = 1;
+my $norequests = 1;
+ ##Loop for each item field
+
+ foreach my $item (@itemrecords) {
+ $norequests = 0 unless $item->{'itemnotforloan'};
+ $noitems = 0;
+ my $status;
+ #renaming some fields according to templates
+ $item->{'branchname'}=$branches{$item->{'holdingbranch'}};
+ $item->{'shelves'}=$shelves{$item->{'shelf'}};
+ $status="Lost" if ($item->{'itemlost'}>0);
+ $status="Withdrawn" if ($item->{'wthdrawn'}>0);
+ if ($intranet eq "intranet"){ ## we give full itemcallnumber detail in intranet
+ $status="Due:".format_date($item->{'date_due'}) if ($item->{'date_due'} gt "0000-00-00");
+ $status = $item->{'holdingbranch'}."-".$item->{'shelf'}."[".$item->{'itemcallnumber'}."]" unless defined $status;
+ }else{
+ $status="On Loan" if ($item->{'date_due'} gt "0000-00-00");
+ $status = $item->{'branchname'}."[".$item->{'shelves'}."]" unless defined $status;
+ }
+
+ $counts{$status}++;
+ $counts{'total'}++;
+ }
+ $oldbiblio->{'noitems'} = $noitems;
+ $oldbiblio->{'norequests'} = $norequests;
+ $oldbiblio->{'even'} = $even;
+ $even= not $even;
+ if ($even){
+ $oldbiblio->{'toggle'}="#ffffcc";
+ } else {
+ $oldbiblio->{'toggle'}="white";
+ } ; ## some forms seems to use toggle
+
+ $oldbiblio->{'itemcount'} = $counts{'total'};
+ my $totalitemcounts = 0;
+ foreach my $key (keys %counts){
+ if ($key ne 'total'){
+ $totalitemcounts+= $counts{$key};
+ $oldbiblio->{'locationhash'}->{$key}=$counts{$key};
+
+ }
+ }
+ my ($locationtext, $locationtextonly, $notavailabletext) = ('','','');
+ foreach (sort keys %{$oldbiblio->{'locationhash'}}) {
+
+ if ($_ eq 'notavailable') {
+ $notavailabletext="Not available";
+ my $c=$oldbiblio->{'locationhash'}->{$_};
+ $oldbiblio->{'not-available-p'}=$c;
+ } else {
+ $locationtext.="$_";
+ my $c=$oldbiblio->{'locationhash'}->{$_};
+ if ($_ eq 'Lost') {
+ $oldbiblio->{'lost-p'} = $c;
+ } elsif ($_ eq 'Withdrawn') {
+ $oldbiblio->{'withdrawn-p'} = $c;
+ } elsif ($_ =~/\^Due:/) {
+
+ $oldbiblio->{'on-loan-p'} = $c;
+ } else {
+ $locationtextonly.= $_;
+ $locationtextonly.= " ($c)<br> " if $totalitemcounts > 1;
+ }
+ if ($totalitemcounts>1) {
+ $locationtext.=" ($c)<br> ";
+ }
+ }
+ }
+ if ($notavailabletext) {
+ $locationtext.= $notavailabletext;
+ } else {
+ $locationtext=~s/, $//;
+ }
+ $oldbiblio->{'location'} = $locationtext;
+ $oldbiblio->{'location-only'} = $locationtextonly;
+ $oldbiblio->{'use-location-flags-p'} = 1;
+ push @results,$oldbiblio;
+
+}## For each record received
+@facets_loop=BuildFacets($facets_counter,$facets_info,%branches);
+
+ return(@facets_loop,@results);
}
-sub allissues {
- my ($bornum,$order,$limit)=@_;
- my $dbh=C4Connect;
- my $query;
- $query="Select * from issues,biblio,items,biblioitems
- where borrowernumber='$bornum' and
- items.biblioitemnumber=biblioitems.biblioitemnumber and
- items.itemnumber=issues.itemnumber and
- items.biblionumber=biblio.biblionumber";
- $query.=" order by $order";
- if ($limit !=0){
- $query.=" limit $limit";
- }
- #print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my @result;
- my $i=0;
- while (my $data=$sth->fetchrow_hashref){
- $result[$i]=$data;;
- $i++;
- }
- $sth->finish;
- $dbh->disconnect;
- return($i,\@result);
+sub FillFacets{
+my ($facet_record,$facets_counter,$facets_info)=@_;
+ my $facets = C4::Koha::getFacets();
+ for (my $k=0; $k<@$facets;$k++) {
+ my $tags=@$facets->[$k]->{tags};
+ my $subfields=@$facets->[$k]->{subfield};
+ my @fields;
+ for (my $i=0; $i<@$tags;$i++) {
+ my $type="biblios";
+ $type="holdings" if @$facets->[$k]->{'link_value'} =~/branch/; ## if using other facets from items add them here
+ if ($type eq "holdings"){
+ ###Read each item record
+ my $holdings=$facet_record->{holdings}->[0]->{record};
+ foreach my $holding(@$holdings){
+ for (my $z=0; $z<@$subfields;$z++) {
+ my $data=XML_readline_onerecord($holding,"","holdings",@$tags[$i],@$subfields[$z]);
+ $facets_counter->{ @$facets->[$k]->{'link_value'} }->{ $data }++ if $data;
+ }
+ }
+ }else{
+ for (my $z=0; $z<@$subfields;$z++) {
+ my $data=XML_readline($facet_record,"","biblios",@$tags[$i],@$subfields[$z]);
+ $facets_counter->{ @$facets->[$k]->{'link_value'} }->{ $data }++ if $data;
+ }
+ }
+ }
+ $facets_info->{ @$facets->[$k]->{'link_value'} }->{ 'label_value' } = @$facets->[$k]->{'label_value'};
+ $facets_info->{ @$facets->[$k]->{'link_value'} }->{ 'expanded' } = @$facets->[$k]->{'expanded'};
+ }
+return ($facets_counter,$facets_info);
}
-sub borrdata2 {
- my ($env,$bornum)=@_;
- my $dbh=C4Connect;
- my $query="Select count(*) from issues where borrowernumber='$bornum' and
- returndate is NULL";
- # print $query;
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $sth=$dbh->prepare("Select count(*) from issues where
- borrowernumber='$bornum' and date_due < now() and returndate is NULL");
- $sth->execute;
- my $data2=$sth->fetchrow_hashref;
- $sth->finish;
- $sth=$dbh->prepare("Select sum(amountoutstanding) from accountlines where
- borrowernumber='$bornum'");
- $sth->execute;
- my $data3=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
-
-return($data2->{'count(*)'},$data->{'count(*)'},$data3->{'sum(amountoutstanding)'});
+sub BuildFacets {
+my ($facets_counter, $facets_info,%branches) = @_;
+
+ my @facets_loop; # stores the ref to array of hashes for template
+# BUILD FACETS
+ foreach my $link_value ( sort { $facets_counter->{$b} <=> $facets_counter->{$a} } keys %$facets_counter) {
+ my $expandable;
+ my $number_of_facets;
+ my @this_facets_array;
+ foreach my $one_facet ( sort { $facets_counter->{ $link_value }->{$b} <=> $facets_counter->{ $link_value }->{$a} } keys %{$facets_counter->{$link_value}} ) {
+ $number_of_facets++;
+ if (($number_of_facets < 11) || ($facets_info->{ $link_value }->{ 'expanded'})) {
+
+ # sanitize the link value ), ( will cause errors with CCL
+ my $facet_link_value = $one_facet;
+ $facet_link_value =~ s/(\(|\))/ /g;
+
+ # fix the length that will display in the label
+ my $facet_label_value = $one_facet;
+ $facet_label_value = substr($one_facet,0,20)."..." unless length($facet_label_value)<=20;
+ # well, if it's a branch, label by the name, not the code
+ if ($link_value =~/branch/) {
+ $facet_label_value = $branches{$one_facet};
+ }
+
+ # but we're down with the whole label being in the link's title
+ my $facet_title_value = $one_facet;
+
+ push @this_facets_array ,
+ ( { facet_count => $facets_counter->{ $link_value }->{ $one_facet },
+ facet_label_value => $facet_label_value,
+ facet_title_value => $facet_title_value,
+ facet_link_value => $facet_link_value,
+ type_link_value => $link_value,
+ },
+ );
+ }## if $number_of_facets
+ }##for $one_facet
+ unless ($facets_info->{ $link_value }->{ 'expanded'}) {
+ $expandable=1 if ($number_of_facets > 10);
+ }
+ push @facets_loop,(
+ { type_link_value => $link_value,
+ type_id => $link_value."_id",
+ type_label => $facets_info->{ $link_value }->{ 'label_value' },
+ facets => \@this_facets_array,
+ expandable => $expandable,
+ expand => $link_value,
+ },
+ );
+
+ }
+return \@facets_loop;
}
-
-sub getboracctrecord {
- my ($env,$params) = @_;
- my $dbh=C4Connect;
- my @acctlines;
- my $numlines=0;
- my $query= "Select * from accountlines where
-borrowernumber=$params->{'borrowernumber'} order by date desc,timestamp desc";
- my $sth=$dbh->prepare($query);
-# print $query;
- $sth->execute;
- my $total=0;
- while (my $data=$sth->fetchrow_hashref){
-# if ($data->{'itemnumber'} ne ''){
-# $query="Select * from items,biblio where items.itemnumber=
-# '$data->{'itemnumber'}' and biblio.biblionumber=items.biblionumber";
-# my $sth2=$dbh->prepare($query);
-# $sth2->execute;
-# my $data2=$sth2->fetchrow_hashref;
-# $sth2->finish;
-# $data=$data2;
- # }
- $acctlines[$numlines] = $data;
- $numlines++;
- $total = $total+ $data->{'amountoutstanding'};
- }
- $sth->finish;
- $dbh->disconnect;
- return ($numlines,\@acctlines,$total);
+
+sub getcoverPhoto {
+## return the address of a cover image if defined otherwise the amazon cover images
+ my $record =shift ;
+
+ my $image=XML_readline_onerecord($record,"coverphoto","biblios");
+ if ($image){
+ return $image;
+ }
+# if there is no image put the amazon cover image adress
+
+my $isbn=XML_readline_onerecord($record,"isbn","biblios");
+return "http://images.amazon.com/images/P/".$isbn.".01.MZZZZZZZ.jpg";
}
-sub itemcount {
- my ($env,$bibnum,$type)=@_;
- my $dbh=C4Connect;
- my $query="Select * from items where
- biblionumber=$bibnum ";
- if ($type ne 'intra'){
- $query.=" and ((itemlost <>1 and itemlost <> 2) or itemlost is NULL) and
- (wthdrawn <> 1 or wthdrawn is NULL)";
- }
- my $sth=$dbh->prepare($query);
- # print $query;
- $sth->execute;
- my $count=0;
- my $lcount=0;
- my $nacount=0;
+=item itemcount
+
+ ($count, $lcount, $nacount, $fcount, $scount, $lostcount,
+ $mending, $transit,$ocount) =
+ &itemcount($env, $biblionumber, $type);
+
+Counts the number of items with the given biblionumber, broken down by
+category.
+
+C<$env> is ignored.
+
+If C<$type> is not set to C<intra>, lost, very overdue, and withdrawn
+items will not be counted.
+
+C<&itemcount> returns a nine-element list:
+
+C<$count> is the total number of items with the given biblionumber.
+
+C<$lcount> is the number of items at the Levin branch.
+
+C<$nacount> is the number of items that are neither borrowed, lost,
+nor withdrawn (and are therefore presumably on a shelf somewhere).
+
+C<$fcount> is the number of items at the Foxton branch.
+
+C<$scount> is the number of items at the Shannon branch.
+
+C<$lostcount> is the number of lost and very overdue items.
+
+C<$mending> is the number of items at the Mending branch (being
+mended?).
+
+C<$transit> is the number of items at the Transit branch (in transit
+between branches?).
+
+C<$ocount> is the number of items that haven't arrived yet
+(aqorders.quantity - aqorders.quantityreceived).
+
+=cut
+#'
+
+
+
+sub itemcount {
+ my ($env,$bibnum,$type)=@_;
+ my $dbh = C4::Context->dbh;
+my @kohafield;
+my @value;
+my @relation;
+my @and_or;
+my $sort;
+ my $query="Select * from items where
+ biblionumber=? ";
+push @kohafield,"biblionumber";
+push @value,$bibnum;
+
+my ($total,@result)=ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,"", \@and_or, 0);## there is only one record no need for $num or $offset
+my @fields;## extract only the fields required
+push @fields,"itemnumber","itemlost","wthdrawn","holdingbranch","date_due";
+my ($biblio,@items)=XMLmarc2koha ($dbh,$result[0],"holdings",\@fields);
+ my $count=0;
+ my $lcount=0;
+ my $nacount=0;
my $fcount=0;
my $scount=0;
my $lostcount=0;
my $mending=0;
my $transit=0;
my $ocount=0;
- while (my $data=$sth->fetchrow_hashref){
- $count++;
- my $query2="select * from issues,items where issues.itemnumber=
- '$data->{'itemnumber'}' and returndate is NULL
- and items.itemnumber=issues.itemnumber and ((items.itemlost <>1 and
- items.itemlost <> 2) or items.itemlost is NULL)
- and (wthdrawn <> 1 or wthdrawn is NULL)";
+ foreach my $data(@items){
+ if ($type ne "intra"){
+ next if ($data->{itemlost} || $data->{wthdrawn});
+ } ## Probably trying to hide lost item from opac ?
+ $count++;
+
+## Now it seems we want to find those which are onloan
- my $sth2=$dbh->prepare($query2);
- $sth2->execute;
- if (my $data2=$sth2->fetchrow_hashref){
- $nacount++;
- } else {
- if ($data->{'holdingbranch'} eq 'C'){
- $lcount++;
- }
- if ($data->{'holdingbranch'} eq 'F' || $data->{'holdingbranch'} eq 'FP'){
- $fcount++;
- }
- if ($data->{'holdingbranch'} eq 'S' || $data->{'holdingbranch'} eq 'SP'){
- $scount++;
- }
+
+ if ( $data->{date_due} gt "0000-00-00"){
+ $nacount++;
+ next;
+ }
+### The rest of this code is hardcoded for Foxtrot Shanon etc. We urgently need a global understanding of these terms--TG
+ if ($data->{'holdingbranch'} eq 'C' || $data->{'holdingbranch'} eq 'LT'){
+ $lcount++;
+ }
+ if ($data->{'holdingbranch'} eq 'F' || $data->{'holdingbranch'} eq 'FP'){
+ $fcount++;
+ }
+ if ($data->{'holdingbranch'} eq 'S' || $data->{'holdingbranch'} eq 'SP'){
+ $scount++;
+ }
if ($data->{'itemlost'} eq '1'){
$lostcount++;
}
if ($data->{'holdingbranch'} eq 'TR'){
$transit++;
}
- }
- $sth2->finish;
- }
+
+ }
# if ($count == 0){
- my $query2="Select * from aqorders where biblionumber=$bibnum";
- my $sth2=$dbh->prepare($query2);
- $sth2->execute;
+ my $sth2=$dbh->prepare("Select * from aqorders where biblionumber=?");
+ $sth2->execute($bibnum);
if (my $data=$sth2->fetchrow_hashref){
$ocount=$data->{'quantity'} - $data->{'quantityreceived'};
}
# $count+=$ocount;
- $sth2->finish;
- $sth->finish;
- $dbh->disconnect;
- return ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit,$ocount);
-}
-sub ItemType {
- my ($type)=@_;
- my $dbh=C4Connect;
- my $query="select description from itemtypes where itemtype='$type'";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- my $dat=$sth->fetchrow_hashref;
- $sth->finish;
- $dbh->disconnect;
- return ($dat->{'description'});
+ return ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit,$ocount);
}
-
-sub bibitems {
- my ($bibnum) = @_;
- my $dbh = C4Connect;
- my $query = "Select * from biblioitems, itemtypes, items
-where biblioitems.biblionumber = '$bibnum'
-and biblioitems.itemtype = itemtypes.itemtype
-and biblioitems.biblioitemnumber = items.biblioitemnumber
-group by items.biblioitemnumber";
- my $sth = $dbh->prepare($query);
- my $count = 0;
- my @results;
-
- $sth->execute;
-
- while (my $data = $sth->fetchrow_hashref) {
- $results[$count] = $data;
- $count++;
- } # while
-
- $sth->finish;
- $dbh->disconnect;
- return($count, @results);
-} # sub bibitems
-
-
-sub barcodes{
- #called from request.pl
- my ($biblioitemnumber)=@_;
- my $dbh=C4Connect;
- my $query="Select barcode from items where
- biblioitemnumber='$biblioitemnumber'
- and ((itemlost <> 1 and itemlost <> 2) or itemlost is NULL) and
- (wthdrawn <> 1 or wthdrawn is NULL)";
-
- 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);
-
+sub spellSuggest {
+my ($kohafield,$value)=@_;
+ if (@$kohafield[0] eq "title" || @$kohafield[0] eq "author" || @$kohafield eq "subject"){
+## pass them through
+}else{
+ @$kohafield[0]="any";
+}
+my $kohaattr=MARCfind_attr_from_kohafield(@$kohafield[0]);
+@$value[0]=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\*|\!|\,|\(|\)|\[|\]|\{|\}|\/)/ /g;
+my $query= $kohaattr." \@attr 6=3 \"".@$value[0]."\"";
+my @zconn;
+ $zconn[0]=C4::Context->Zconn("biblioserver");
+$zconn[0]->option(number=>5);
+my $result=$zconn[0]->scan_pqf($query);
+my $i;
+my $event;
+ while (($i = ZOOM::event(\@zconn)) != 0) {
+ $event = $zconn[$i-1]->last_event();
+ last if $event == ZOOM::Event::ZEND;
+ }# whilemy $i;
+
+my $n=$result->size();
+
+my @suggestion;
+for (my $i=0; $i<$n; $i++){
+my ($term,$occ)=$result->term($i);
+push @suggestion, {kohafield=>@$kohafield[0], value=>$term,occ=>$occ} unless $term=~/\@/;
+}
+$zconn[0]->destroy();
+return @suggestion;
}
-
-
-sub getwebsites {
- my ($biblionumber) = @_;
- my $dbh = C4Connect;
- my $query = "Select * from websites where biblionumber = $biblionumber";
- my $sth = $dbh->prepare($query);
- my $count = 0;
- my @results;
-
- $sth->execute;
- while (my $data = $sth->fetchrow_hashref) {
- $results[$count] = $data;
- $count++;
- } # while
-
- $sth->finish;
- $dbh->disconnect;
- return($count, @results);
-} # sub getwebsites
-
-
-sub getwebbiblioitems {
- my ($biblionumber) = @_;
- my $dbh = C4Connect;
- my $query = "Select * from biblioitems where biblionumber = $biblionumber
-and itemtype = 'WEB'";
- my $sth = $dbh->prepare($query);
- my $count = 0;
- my @results;
-
- $sth->execute;
- while (my $data = $sth->fetchrow_hashref) {
- $results[$count] = $data;
- $count++;
- } # while
-
- $sth->finish;
- $dbh->disconnect;
- return($count, @results);
-} # sub getwebbiblioitems
-
-
END { } # module clean-up code here (global destructor)
-=head1 NAME
-
-C4::Search - Module that provides Catalog searching for Koha
-
-=head1 SYNOPSIS
-
- use C4::Search;
- my ($count,@results)=catalogsearch($env,$type,$search,$num,$offset);
-
-=head1 DESCRIPTION
-
-This module provides the searching facilities for the Catalog.
-Here I should go through and document each function thats exported and what it does. But I havent yet.
+1;
+__END__
-my ($count,@results)=catalogsearch($env,$type,$search,$num,$offset);
-This is a front end to all the other searches, depending on what is passed
-to it, it calls the appropriate search
-
-=head2 EXPORT
-
-catalogsearch
+=back
=head1 AUTHOR
Koha Developement team <info@koha.org>
-
-=head1 SEE ALSO
-
-L<perl>.
+# New functions to comply with ZEBRA search and new KOHA 3 XML API added 2006 Tumer Garip tgarip@neu.edu.tr
=cut
projects / koha-ffzg.git / blobdiff