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
use strict;
require Exporter;
-use DBI;
use C4::Context;
use C4::Reserves2;
- # FIXME - C4::Search uses C4::Reserves2, which uses C4::Search.
- # So Perl complains that all of the functions here get redefined.
+use C4::Biblio;
+use ZOOM;
+use Encode;
use C4::Date;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use C4::Search;
- my ($count, @results) = catalogsearch($env, $type, $search, $num, $offset);
+ my ($count, @results) = catalogsearch4($env, $type, $search, $num, $offset);
=head1 DESCRIPTION
This module provides the searching facilities for the Koha catalog and
-other databases.
+ZEBRA databases.
+
-C<&catalogsearch> is a front end to all the other searches. Depending
-on what is passed to it, it calls the appropriate search function.
=head1 FUNCTIONS
@ISA = qw(Exporter);
@EXPORT = qw(
- &catalogsearch &KeywordSearch &CatSearch &subsearch
-);
+ &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;
-=item catalogsearch
+=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
- ($count, @results) = &catalogsearch($env, $type, $search, $num, $offset);
-This is primarily a front-end to other, more specialized catalog
-search functions: if C<$search-E<gt>{itemnumber}> or
-C<$search-E<gt>{isbn}> is given, C<&catalogsearch> uses a precise
-C<&CatSearch>. If $search->{subject} is given, it runs a subject
-C<&CatSearch>. If C<$search-E<gt>{keyword}> is given, it runs a
-C<&KeywordSearch>. Otherwise, it runs a loose C<&CatSearch>.
-If C<$env-E<gt>{itemcount}> is 1, then C<&catalogsearch> also counts
-the items for each result, and adds several keys:
-=over 4
+sub ZEBRAsearch_kohafields{
+my ($kohafield,$value, $relation,$sort, $and_or, $fordisplay,$reorder,$startfrom,$number_of_results,$searchfrom,$searchtype)=@_;
+return (0,undef) unless (@$value[0]);
-=item C<itemcount>
+my $server="biblioserver";
+my @results;
+my $attr;
+my $query;
-The total number of copies of this book.
+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 "");
+ }
+ }
-=item C<locationhash>
+##warn $query;
-This is a reference-to-hash; the keys are the names of branches where
-this book may be found, and the values are the number of copies at
-that branch.
+my @oConnection;
+($oConnection[0])=C4::Context->Zconn($server);
+my @sortpart;
+if ($reorder ){
+ (@sortpart)=split /,/,$reorder;
+}elsif ($sort){
+ (@sortpart)=split /,/,$sort;
+}
+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
+ }
+}
-=item C<location>
+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() ;
+
+ if ($numresults>0){
+ my $ri=0;
+ my $z=0;
+
+ $ri=$startfrom if $startfrom;
+ for ( $ri; $ri<$numresults ; $ri++){
+
+ my $xmlrecord=$oResult->record($ri)->raw();
+ $xmlrecord=Encode::decode("utf8",$xmlrecord);
+ $xmlrecord=XML_xml2hash($xmlrecord);
+ $z++;
+
+ 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
-A descriptive string saying where the book is located, and how many
-copies there are, if greater than 1.
+$oResult->destroy();
+$oConnection[0]->destroy();
+EXITING:
+return ($numresults,@results) ;
+}
-=item C<subject2>
+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 ";
+ }
+ $weighted.="\@attr 2=102 ".$keyattr." \@attr 3=1 $fullfield \@attr 9=$weight \"".$value."\" " ;
+ $weighted=" \@or ".$weighted;
+ return $weighted;
+}
+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]);
+};
+}
+if ($@){
+$pqf_query=0;
+}
-The book's subject, with spaces replaced with C<%20>, presumably for
-HTML.
+return $pqf_query;
+}
-=back
+=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 catalogsearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = C4::Context->dbh;
- # foreach my $key (%$search){
- # $search->{$key}=$dbh->quote($search->{$key});
- # }
- my ($count,@results);
- if ($search->{'itemnumber'} ne '' || $search->{'isbn'} ne ''){
- print STDERR "Doing a precise search\n";
- ($count,@results)=CatSearch($env,'precise',$search,$num,$offset);
- } elsif ($search->{'subject'} ne ''){
- ($count,@results)=CatSearch($env,'subject',$search,$num,$offset);
- } elsif ($search->{'keyword'} ne ''){
- ($count,@results)=&KeywordSearch($env,'keyword',$search,$num,$offset);
- } else {
- ($count,@results)=CatSearch($env,'loose',$search,$num,$offset);
-
- }
- if ($env->{itemcount} eq '1') {
- foreach my $data (@results){
- my ($counts) = itemcount2($env, $data->{'biblionumber'}, 'intra');
- my $subject2=$data->{'subject'};
- $subject2=~ s/ /%20/g;
- $data->{'itemcount'}=$counts->{'total'};
- my $totalitemcounts=0;
- foreach my $key (keys %$counts){
- if ($key ne 'total'){ # FIXME - Should ignore 'order', too.
- #$data->{'location'}.="$key $counts->{$key} ";
- $totalitemcounts+=$counts->{$key};
- $data->{'locationhash'}->{$key}=$counts->{$key};
- }
- }
- my $locationtext='';
- my $locationtextonly='';
- my $notavailabletext='';
- foreach (sort keys %{$data->{'locationhash'}}) {
- if ($_ eq 'notavailable') {
- $notavailabletext="Not available";
- my $c=$data->{'locationhash'}->{$_};
- $data->{'not-available-p'}=$totalitemcounts;
- if ($totalitemcounts>1) {
- $notavailabletext.=" ($c)";
- $data->{'not-available-plural-p'}=1;
- }
- } else {
- $locationtext.="$_";
- my $c=$data->{'locationhash'}->{$_};
- if ($_ eq 'Item Lost') {
- $data->{'lost-p'}=$totalitemcounts;
- $data->{'lost-plural-p'}=1
- if $totalitemcounts > 1;
- } elsif ($_ eq 'Withdrawn') {
- $data->{'withdrawn-p'}=$totalitemcounts;
- $data->{'withdrawn-plural-p'}=1
- if $totalitemcounts > 1;
- } elsif ($_ eq 'On Loan') {
- $data->{'on-loan-p'}=$totalitemcounts;
- $data->{'on-loan-plural-p'}=1
- if $totalitemcounts > 1;
- } else {
- $locationtextonly.=$_;
- $locationtextonly.=" ($c), "
- if $totalitemcounts>1;
- }
- if ($totalitemcounts>1) {
- $locationtext.=" ($c), ";
- }
+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;
+
+
+ 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 ($notavailabletext) {
- $locationtext.=$notavailabletext;
- } else {
- $locationtext=~s/, $//;
- }
- $data->{'location'}=$locationtext;
- $data->{'location-only'}=$locationtextonly;
- $data->{'subject2'}=$subject2;
- $data->{'use-location-flags-p'}=1; # XXX
+
}
}
- return ($count,@results);
-}
-
-=item KeywordSearch
-
- $search = { "keyword" => "One or more keywords",
- "class" => "VID|CD", # Limit search to fiction and CDs
- "dewey" => "813",
- };
- ($count, @results) = &KeywordSearch($env, $type, $search, $num, $offset);
-
-C<&KeywordSearch> searches the catalog by keyword: given a string
-(C<$search-E<gt>{"keyword"}> consisting of a space-separated list of
-keywords, it looks for books that contain any of those keywords in any
-of a number of places.
-C<&KeywordSearch> looks for keywords in the book title (and subtitle),
-series name, notes (both C<biblio.notes> and C<biblioitems.notes>),
-and subjects.
-C<$search-E<gt>{"class"}> can be set to a C<|> (pipe)-separated list of
-item class codes (e.g., "F" for fiction, "JNF" for junior nonfiction,
-etc.). In this case, the search will be restricted to just those
-classes.
-
-If C<$search-E<gt>{"class"}> is not specified, you may specify
-C<$search-E<gt>{"dewey"}>. This will restrict the search to that
-particular Dewey Decimal Classification category. Setting
-C<$search-E<gt>{"dewey"}> to "513" will return books about arithmetic,
-whereas setting it to "5" will return all books with Dewey code 5I<xx>
-(Science and Mathematics).
-
-C<$env> and C<$type> are ignored.
+}
+ 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);
+}
-C<$offset> and C<$num> specify the subset of results to return.
-C<$num> specifies the number of results to return, and C<$offset> is
-the number of the first result. Thus, setting C<$offset> to 100 and
-C<$num> to 5 will return results 100 through 104 inclusive.
+ my $result=$sth->fetchrow_hashref;
+return (1,$result) if $result;
+}
-=cut
-#'
-sub KeywordSearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = C4::Context->dbh;
- $search->{'keyword'}=~ s/ +$//;
- my @key=split(' ',$search->{'keyword'});
- # FIXME - Naive users might enter comma-separated
- # words, e.g., "training, animal". Ought to cope with
- # this.
- my $count=@key;
- my $i=1;
- my %biblionumbers; # Set of biblionumbers returned by the
- # various searches.
-
- # FIXME - Ought to filter the stopwords out of the list of keywords.
- # @key = map { !defined($stopwords{$_}) } @key;
-
- # FIXME - The way this code is currently set up, it looks for all of
- # the keywords first in (title, notes, seriestitle), then in the
- # subtitle, then in the subject. Thus, if you look for keywords
- # "science fiction", this search won't find a book with
- # title = "How to write fiction"
- # subtitle = "A science-based approach"
- # Is this the desired effect? If not, then the first SQL query
- # should look in the biblio, subtitle, and subject tables all at
- # once. The way the first query is built can accomodate this easily.
-
- # Look for keywords in table 'biblio'.
-
- # Build an SQL query that finds each of the keywords in any of the
- # title, biblio.notes, or seriestitle. To do this, we'll build up an
- # array of clauses, one for each keyword.
- my $query; # The SQL query
- my @clauses = (); # The search clauses
- my @bind = (); # The term bindings
-
- $query = <<EOT; # Beginning of the query
- SELECT biblionumber
- FROM biblio
- WHERE
-EOT
- foreach my $keyword (@key)
- {
- my @subclauses = (); # Subclauses, one for each field we're
- # searching on
-
- # For each field we're searching on, create a subclause that'll
- # match the current keyword in the current field.
- foreach my $field (qw(title notes seriestitle author))
- {
- push @subclauses,
- "$field LIKE ? OR $field LIKE ?";
- push(@bind,"\Q$keyword\E%","% \Q$keyword\E%");
- }
- # (Yes, this could have been done as
- # @subclauses = map {...} qw(field1 field2 ...)
- # )but I think this way is more readable.
+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;
+ }
+$i++;
+last if $i==$limit;
+}
+return ($count,@results);
+}
- # Construct the current clause by joining the subclauses.
- push @clauses, "(" . join(")\n\tOR (", @subclauses) . ")";
- }
- # Now join all of the clauses together and append to the query.
- $query .= "(" . join(")\nAND (", @clauses) . ")";
-
- # FIXME - Perhaps use $sth->bind_columns() ? Documented as the most
- # efficient way to fetch data.
- my $sth=$dbh->prepare($query);
- $sth->execute(@bind);
- while (my @res = $sth->fetchrow_array) {
- for (@res)
- {
- $biblionumbers{$_} = 1; # Add these results to the set
- }
- }
- $sth->finish;
-
- # Now look for keywords in the 'bibliosubtitle' table.
-
- # Again, we build a list of clauses from the keywords.
- @clauses = ();
- @bind = ();
- $query = "SELECT biblionumber FROM bibliosubtitle WHERE ";
- foreach my $keyword (@key)
- {
- push @clauses,
- "subtitle LIKE ? OR subtitle like ?";
- push(@bind,"\Q$keyword\E%","% \Q$keyword\E%");
- }
- $query .= "(" . join(") AND (", @clauses) . ")";
-
- $sth=$dbh->prepare($query);
- $sth->execute(@bind);
- while (my @res = $sth->fetchrow_array) {
- for (@res)
- {
- $biblionumbers{$_} = 1; # Add these results to the set
- }
- }
- $sth->finish;
-
- # Look for the keywords in the notes for individual items
- # ('biblioitems.notes')
-
- # Again, we build a list of clauses from the keywords.
- @clauses = ();
- @bind = ();
- $query = "SELECT biblionumber FROM biblioitems WHERE ";
- foreach my $keyword (@key)
- {
- push @clauses,
- "notes LIKE ? OR notes like ?";
- push(@bind,"\Q$keyword\E%","% \Q$keyword\E%");
- }
- $query .= "(" . join(") AND (", @clauses) . ")";
-
- $sth=$dbh->prepare($query);
- $sth->execute(@bind);
- while (my @res = $sth->fetchrow_array) {
- for (@res)
- {
- $biblionumbers{$_} = 1; # Add these results to the set
- }
- }
- $sth->finish;
-
- # Look for keywords in the 'bibliosubject' table.
-
- # FIXME - The other queries look for words in the desired field that
- # begin with the individual keywords the user entered. This one
- # searches for the literal string the user entered. Is this the
- # desired effect?
- # Note in particular that spaces are retained: if the user typed
- # science fiction
- # (with two spaces), this won't find the subject "science fiction"
- # (one space). Likewise, a search for "%" will return absolutely
- # everything.
- # If this isn't the desired effect, see the previous searches for
- # how to do it.
-
- $sth=$dbh->prepare("Select biblionumber from bibliosubject where subject
- like ? group by biblionumber");
- $sth->execute("%$search->{'keyword'}%");
-
- while (my @res = $sth->fetchrow_array) {
- for (@res)
- {
- $biblionumbers{$_} = 1; # Add these results to the set
- }
- }
- $sth->finish;
-
- my $i2=0;
- my $i3=0;
- my $i4=0;
-
- my @res2;
- my @res = keys %biblionumbers;
- $count=@res;
-
- $i=0;
-# print "count $count";
- if ($search->{'class'} ne ''){
- while ($i2 <$count){
- my $query="select * from biblio,biblioitems where
- biblio.biblionumber=? and
- biblio.biblionumber=biblioitems.biblionumber ";
- my @bind = ($res[$i2]);
- if ($search->{'class'} ne ''){ # FIXME - Redundant
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= "and ( itemtype=?";
- push(@bind,$temp[0]);
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype=?";
- push(@bind,$temp[$i]);
- }
- $query.=")";
- }
- my $sth=$dbh->prepare($query);
- # print $query;
- $sth->execute(@bind);
- if (my $data2=$sth->fetchrow_hashref){
- my $dewey= $data2->{'dewey'};
- my $subclass=$data2->{'subclass'};
- # FIXME - This next bit is bogus, because it assumes that the
- # Dewey code is a floating-point number. It isn't. It's
- # actually a string that mainly consists of numbers. In
- # particular, "4" is not a valid Dewey code, although "004"
- # is ("Data processing; Computer science"). Likewise, zeros
- # after the decimal are significant ("575" is not the same as
- # "575.0"; the latter is more specific). And "000" is a
- # perfectly good Dewey code ("General works; computer
- # science") and should not be interpreted to mean "this
- # database entry does not have a Dewey code". That's what
- # NULL is for.
- $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 {
- # $search->{'class'} was not specified
-
- # FIXME - This is bogus: it makes a separate query for each
- # biblioitem, and returns results in apparently random order. It'd
- # be much better to combine all of the previous queries into one big
- # one (building it up a little at a time, of course), and have that
- # big query select all of the desired fields, instead of just
- # 'biblionumber'.
-
- while ($i2 < $num && $i2 < $count){
- my $query="select * from biblio,biblioitems where
- biblio.biblionumber=? and
- biblio.biblionumber=biblioitems.biblionumber ";
- my @bind=($res[$i2+$offset]);
-
- if ($search->{'dewey'} ne ''){
- $query.= "and (dewey like ?)";
- push(@bind,"$search->{'dewey'}%");
- }
- my $sth=$dbh->prepare($query);
-# print $query;
- $sth->execute(@bind);
- 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++;
- }
- }
+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
- #$count=$i;
- return($count,@res2);
+ }
+ 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 ;
}
-=item CatSearch
+}
- ($count, @results) = &CatSearch($env, $type, $search, $num, $offset);
-C<&CatSearch> searches the Koha catalog. It returns a list whose first
-element is the number of returned results, and whose subsequent
-elements are the results themselves.
+sub add_query_line {
-Each returned element is a reference-to-hash. Most of the keys are
-simply the fields from the C<biblio> table in the Koha database, but
-the following keys may also be present:
+ 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;
-=over 4
+}
-=item C<illustrator>
-The book's illustrator.
+=item ItemInfo
-=item C<publisher>
+ @results = &ItemInfo($env, $biblionumber, $type);
-The publisher.
+Returns information about books with the given biblionumber.
-=back
+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<$type> may be C<subject>, C<loose>, or C<precise>. This controls the
-high-level behavior of C<&CatSearch>, as described below.
+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:
-In many cases, the description below says that a certain field in the
-database must match the search string. In these cases, it means that
-the beginning of some word in the field must match the search string.
-Thus, an author search for "sm" will return books whose author is
-"John Smith" or "Mike Smalls", but not "Paul Grossman", since the "sm"
-does not occur at the beginning of a word.
-
-Note that within each search mode, the criteria are and-ed together.
-That is, if you perform a loose search on the author "Jerome" and the
-title "Boat", the search will only return books by Jerome containing
-"Boat" in the title.
+=over 4
-It is not possible to cross modes, e.g., set the author to "Asimov"
-and the subject to "Math" in hopes of finding books on math by Asimov.
+=item C<$data-E<gt>{branchname}>
-=head2 Loose search
+The name (not the code) of the branch to which the book belongs.
-If C<$type> is set to C<loose>, the following search criteria may be
-used:
+=item C<$data-E<gt>{datelastseen}>
-=over 4
+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<$search-E<gt>{author}>
+=item C<$data-E<gt>{datedue}>
-The search string is a space-separated list of words. Each word must
-match either the C<author> or C<additionalauthors> field.
+=item C<$data-E<gt>{class}>
-=item C<$search-E<gt>{title}>
+This is the concatenation of C<biblioitems.classification>, the book's
+Dewey code, and C<biblioitems.subclass>.
-Each word in the search string must match the book title. If no author
-is specified, the book subtitle will also be searched.
+=item C<$data-E<gt>{ocount}>
-=item C<$search-E<gt>{abstract}>
+I think this is the number of copies of the book available.
-Searches for the given search string in the book's abstract.
+=item C<$data-E<gt>{order}>
-=item C<$search-E<gt>{'date-before'}>
+If this is set, it is set to C<One Order>.
-Searches for books whose copyright date matches the search string.
-That is, setting C<$search-E<gt>{'date-before'}> to "1985" will find
-books written in 1985, and setting it to "198" will find books written
-between 1980 and 1989.
+=back
-=item C<$search-E<gt>{title}>
+=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;
+ }
-Searches by title are also affected by the value of
-C<$search-E<gt>{"ttype"}>; if it is set to C<exact>, then the book
-title, (one of) the series titleZ<>(s), or (one of) the unititleZ<>(s) must
-match the search string exactly (the subtitle is not searched).
+# 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;
+ }
+
+
-If C<$search-E<gt>{"ttype"}> is set to anything other than C<exact>,
-each word in the search string must match the title, subtitle,
-unititle, or series title.
+ return($data);
+}
-=item C<$search-E<gt>{class}>
-Restricts the search to certain item classes. The value of
-C<$search-E<gt>{"class"}> is a | (pipe)-separated list of item types.
-Thus, setting it to "F" restricts the search to fiction, and setting
-it to "CD|CAS" will only look in compact disks and cassettes.
-=item C<$search-E<gt>{dewey}>
-Searches for books whose Dewey Decimal Classification code matches the
-search string. That is, setting C<$search-E<gt>{"dewey"}> to "5" will
-search for all books in 5I<xx> (Science and mathematics), setting it
-to "54" will search for all books in 54I<x> (Chemistry), and setting
-it to "546" will search for books on inorganic chemistry.
-=item C<$search-E<gt>{publisher}>
+=item barcodes
-Searches for books whose publisher contains the search string (unlike
-other search criteria, C<$search-E<gt>{publisher}> is a string, not a
-set of words.
+ @barcodes = &barcodes($biblioitemnumber);
-=back
+Given a biblioitemnumber, looks up the corresponding items.
-=head2 Subject search
+Returns an array of references-to-hash; the keys are C<barcode> and
+C<itemlost>.
-If C<$type> is set to C<subject>, the following search criterion may
-be used:
+The returned items include very overdue items, but not lost ones.
-=over 4
+=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);
+}
-=item C<$search-E<gt>{subject}>
-The search string is a space-separated list of words, each of which
-must match the book's subject.
-Special case: if C<$search-E<gt>{subject}> is set to C<nz>,
-C<&CatSearch> will search for books whose subject is "New Zealand".
-However, setting C<$search-E<gt>{subject}> to C<"nz football"> will
-search for books on "nz" and "football", not books on "New Zealand"
-and "football".
-=back
-=head2 Precise search
+sub getMARCnotes {
+##Requires a MARCXML as $record
+ my ($dbh, $record, $marcflavour) = @_;
-If C<$type> is set to C<precise>, the following search criteria may be
-used:
+ 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};
+ }
+ }
-=over 4
+ my $marcnotesarray=\@marcnotes;
+ return $marcnotesarray;
+
+} # end getMARCnotes
-=item C<$search-E<gt>{item}>
-Searches for books whose barcode exactly matches the search string.
+sub getMARCsubjects {
-=item C<$search-E<gt>{isbn}>
+ 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";
+ }
-Searches for books whose ISBN exactly matches the search string.
+ 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;
+ }
+ }
+ }
-=back
-For a loose search, if an author was specified, the results are
-ordered by author and title. If no author was specified, the results
-are ordered by title.
+ 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";
+ }
-For other (non-loose) searches, if a subject was specified, the
-results are ordered alphabetically by subject.
+ 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;
+ }
+ }
+ }
-In all other cases (e.g., loose search by keyword), the results are
-not ordered.
-=cut
-#'
-sub CatSearch {
- my ($env,$type,$search,$num,$offset)=@_;
- my $dbh = C4::Context->dbh;
- my $query = '';
- my @bind = ();
- my @results;
+ 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'};
+ }
- 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 ? or biblio.author like ? or
- additionalauthors.author like ? or additionalauthors.author
- like ?
- )";
- @bind=("$key[0]%","% $key[0]%","$key[0]%","% $key[0]%");
- while ($i < $count){
- $query .= " and (
- biblio.author like ? or biblio.author like ? or
- additionalauthors.author like ? or additionalauthors.author like ?
- )";
- push(@bind,"$key[$i]%","% $key[$i]%","$key[$i]%","% $key[$i]%");
- $i++;
+#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'};
}
- $query .= ")";
- if ($search->{'title'} ne ''){
- my @key=split(' ',$search->{'title'});
- my $count=@key;
- my $i=0;
- $query.= " and (((title like ? or title like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- while ($i<$count){
- $query .= " and (title like ? or title like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- $i++;
+ }
+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;
}
- $query.=") or ((seriestitle like ? or seriestitle like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- for ($i=1;$i<$count;$i++){
- $query.=" and (seriestitle like ? or seriestitle like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- }
- $query.=") or ((unititle like ? or unititle like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- for ($i=1;$i<$count;$i++){
- $query.=" and (unititle like ? or unititle like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- }
- $query .= "))";
- }
- if ($search->{'abstract'} ne ''){
- $query.= " and (abstract like ?)";
- push(@bind,"%$search->{'abstract'}%");
- }
- if ($search->{'date-before'} ne ''){
- $query.= " and (copyrightdate like ?)";
- push(@bind,"%$search->{'date-before'}%");
+
+ $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};
+
}
- $query.=" group by biblio.biblionumber";
- } else {
- if ($search->{'title'} ne '') {
- if ($search->{'ttype'} eq 'exact'){
- $query="select * from biblio
- where
- (biblio.title=? or (biblio.unititle = ?
- or biblio.unititle like ? or
- biblio.unititle like ? or
- biblio.unititle like ?) or
- (biblio.seriestitle = ? or
- biblio.seriestitle like ? or
- biblio.seriestitle like ? or
- biblio.seriestitle like ?)
- )";
- @bind=($search->{'title'},$search->{'title'},"$search->{'title'} |%","%| $search->{'title'} |%","%| $search->{'title'}",$search->{'title'},"$search->{'title'} |%","%| $search->{'title'} |%","%| $search->{'title'}");
+ }
+ 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 {
- my @key=split(' ',$search->{'title'});
- my $count=@key;
- my $i=1;
- $query="select biblio.biblionumber,author,title,unititle,notes,abstract,serial,seriestitle,copyrightdate,timestamp,subtitle from biblio
- left join bibliosubtitle on
- biblio.biblionumber=bibliosubtitle.biblionumber
- where
- (((title like ? or title like ?)";
- @bind=("$key[0]%","% $key[0]%");
- while ($i<$count){
- $query .= " and (title like ? or title like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- $i++;
- }
- $query.=") or ((subtitle like ? or subtitle like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- for ($i=1;$i<$count;$i++){
- $query.=" and (subtitle like ? or subtitle like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- }
- $query.=") or ((seriestitle like ? or seriestitle like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- for ($i=1;$i<$count;$i++){
- $query.=" and (seriestitle like ? or seriestitle like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- }
- $query.=") or ((unititle like ? or unititle like ?)";
- push(@bind,"$key[0]%","% $key[0]%");
- for ($i=1;$i<$count;$i++){
- $query.=" and (unititle like ? or unititle like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%");
- }
- $query .= "))";
- }
- if ($search->{'abstract'} ne ''){
- $query.= " and (abstract like ?)";
- push(@bind,"%$search->{'abstract'}%");
- }
- if ($search->{'date-before'} ne ''){
- $query.= " and (copyrightdate like ?)";
- push(@bind,"%$search->{'date-before'}%");
- }
- } 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= ?)";
- @bind=($temp[0]);
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype=?";
- push(@bind,$temp[$i]);
+ $locationtextonly.= $_;
+ $locationtextonly.= " ($c)<br> " if $totalitemcounts > 1;
}
- $query.=")";
- if ($search->{'illustrator'} ne ''){
- $query.=" and illus like ?";
- push(@bind,"%".$search->{'illustrator'}."%");
+ if ($totalitemcounts>1) {
+ $locationtext.=" ($c)<br> ";
}
- if ($search->{'dewey'} ne ''){
- $query.=" and biblioitems.dewey like ?";
- push(@bind,"$search->{'dewey'}%");
- }
- } elsif ($search->{'dewey'} ne ''){
- $query="select * from biblioitems,biblio
- where biblio.biblionumber=biblioitems.biblionumber
- and biblioitems.dewey like ?";
- @bind=("$search->{'dewey'}%");
- } elsif ($search->{'illustrator'} ne '') {
- $query="select * from biblioitems,biblio
- where biblio.biblionumber=biblioitems.biblionumber
- and biblioitems.illus like ?";
- @bind=("%".$search->{'illustrator'}."%");
- } elsif ($search->{'publisher'} ne ''){
- $query = "Select * from biblio,biblioitems where biblio.biblionumber
- =biblioitems.biblionumber and (publishercode like ?)";
- @bind=("%$search->{'publisher'}%");
- } elsif ($search->{'abstract'} ne ''){
- $query = "Select * from biblio where abstract like ?";
- @bind=("%$search->{'abstract'}%");
- } elsif ($search->{'date-before'} ne ''){
- $query = "Select * from biblio where copyrightdate like ?";
- @bind=("%$search->{'date-before'}%");
- }
- $query .=" group by biblio.biblionumber";
- }
- }
- if ($type eq 'subject'){
- my @key=split(' ',$search->{'subject'});
- my $count=@key;
- my $i=1;
- $query="select * from bibliosubject, biblioitems where
-(bibliosubject.biblionumber = biblioitems.biblionumber) and ( subject like ? or subject like ? or subject like ?)";
- @bind=("$key[0]%","% $key[0]%","%($key[0])%");
- while ($i<$count){
- $query.=" and (subject like ? or subject like ? or subject like ?)";
- push(@bind,"$key[$i]%","% $key[$i]%","%($key[$i])%");
- $i++;
- }
-
- # FIXME - Wouldn't it be better to fix the database so that if a
- # book has a subject "NZ", then it also gets added the subject
- # "New Zealand"?
- # This can also be generalized by adding a table of subject
- # synonyms to the database: just declare "NZ" to be a synonym for
- # "New Zealand", "SF" a synonym for both "Science fiction" and
- # "Fantastic fiction", etc.
-
- if (lc($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'){
- if ($search->{'itemnumber'} ne ''){
- $query="select * from items,biblio ";
- my $search2=uc $search->{'itemnumber'};
- $query=$query." where
- items.biblionumber=biblio.biblionumber
- and barcode=?";
- @bind=($search2);
- # FIXME - .= <<EOT;
- }
- if ($search->{'isbn'} ne ''){
- my $search2=uc $search->{'isbn'};
- my $sth1=$dbh->prepare("select * from biblioitems where isbn=?");
- $sth1->execute($search2);
- my $i2=0;
- while (my $data=$sth1->fetchrow_hashref) {
- my $sth=$dbh->prepare("select * from biblioitems,biblio where
- biblio.biblionumber = ?
- and biblioitems.biblionumber = biblio.biblionumber");
- $sth->execute($data->{'biblionumber'});
- # FIXME - There's already a $data in this scope.
- my $data=$sth->fetchrow_hashref;
- my ($dewey, $subclass) = ($data->{'dewey'}, $data->{'subclass'});
- # FIXME - The following assumes that the Dewey code is a
- # floating-point number. It isn't: it's a string.
- $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;
}
- }
- if ($type ne 'precise' && $type ne 'subject'){
- if ($search->{'author'} ne ''){
- $query .= " order by biblio.author,title";
+ if ($notavailabletext) {
+ $locationtext.= $notavailabletext;
} else {
- $query .= " order by title";
- }
- } else {
- if ($type eq 'subject'){
- $query .= " group by subject ";
+ $locationtext=~s/, $//;
}
- }
- my $sth=$dbh->prepare($query);
- $sth->execute(@bind);
- my $count=1;
- my $i=0;
- my $limit= $num+$offset;
- while (my $data=$sth->fetchrow_hashref){
- my $query="select classification,dewey,subclass,publishercode from biblioitems where biblionumber=?";
- my @bind=($data->{'biblionumber'});
- if ($search->{'class'} ne ''){
- my @temp=split(/\|/,$search->{'class'});
- my $count=@temp;
- $query.= " and ( itemtype= ?";
- push(@bind,$temp[0]);
- for (my $i=1;$i<$count;$i++){
- $query.=" or itemtype=?";
- push(@bind,$temp[$i]);
- }
- $query.=")";
- }
- if ($search->{'dewey'} ne ''){
- $query.=" and dewey=? ";
- push(@bind,$search->{'dewey'});
- }
- if ($search->{'illustrator'} ne ''){
- $query.=" and illus like ?";
- push(@bind,"%$search->{'illustrator'}%");
- }
- if ($search->{'publisher'} ne ''){
- $query.= " and (publishercode like ?)";
- push(@bind,"%$search->{'publisher'}%");
- }
- my $sti=$dbh->prepare($query);
- $sti->execute(@bind);
- my $classification;
- my $dewey;
- my $subclass;
- my $true=0;
- my $publishercode;
- my $bibitemdata;
- if ($bibitemdata = $sti->fetchrow_hashref()){
- $true=1;
- $classification=$bibitemdata->{'classification'};
- $dewey=$bibitemdata->{'dewey'};
- $subclass=$bibitemdata->{'subclass'};
- $publishercode=$bibitemdata->{'publishercode'};
- }
- # print STDERR "$dewey $subclass $publishercode\n";
- # FIXME - The Dewey code is a string, not a number.
- $dewey=~s/\.*0*$//;
- ($dewey == 0) && ($dewey='');
- ($dewey) && ($dewey.=" $subclass");
- $data->{'classification'}=$classification;
- $data->{'dewey'}=$dewey;
- $data->{'publishercode'}=$publishercode;
- $sti->finish;
- if ($true == 1){
- if ($count > $offset && $count <= $limit){
- $results[$i]=$data;
- $i++;
- }
- $count++;
- }
- }
- $sth->finish;
- $count--;
- return($count,@results);
+ $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 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 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;
}
-=item subsearch
- @results = &subsearch($env, $subject);
+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";
+}
+
+=item itemcount
-Searches for books that have a subject that exactly matches
-C<$subject>.
+ ($count, $lcount, $nacount, $fcount, $scount, $lostcount,
+ $mending, $transit,$ocount) =
+ &itemcount($env, $biblionumber, $type);
-C<&subsearch> returns an array of results. Each element of this array
-is a string, containing the book's title, author, and biblionumber,
-separated by tabs.
+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 subsearch {
- my ($env,$subject)=@_;
+
+
+
+sub itemcount {
+ my ($env,$bibnum,$type)=@_;
my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("Select * from biblio,bibliosubject where
- biblio.biblionumber=bibliosubject.biblionumber and
- bibliosubject.subject=? group by biblio.biblionumber
- order by biblio.title");
- $sth->execute($subject);
- my $i=0;
- my @results;
- while (my $data=$sth->fetchrow_hashref){
- push @results, $data;
- $i++;
+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;
+ 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
+
+
+ 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->{'itemlost'} eq '2'){
+ $lostcount++;
+ }
+ if ($data->{'holdingbranch'} eq 'FM'){
+ $mending++;
+ }
+ if ($data->{'holdingbranch'} eq 'TR'){
+ $transit++;
+ }
+
}
- $sth->finish;
- return(@results);
+# if ($count == 0){
+ 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;
+
+ return ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit,$ocount);
}
+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;
+}
END { } # module clean-up code here (global destructor)
1;
=head1 AUTHOR
Koha Developement team <info@koha.org>
+# 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