diff --git a/C4/SearchMarc.pm b/C4/SearchMarc.pm new file mode 100644 index 0000000000..06893f5f84 --- /dev/null +++ b/C4/SearchMarc.pm @@ -0,0 +1,140 @@ +package C4::SearchMarc; + +# 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::Context; + +use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); + +# set the version for version checking +$VERSION = 0.02; + +=head1 NAME + +C4::Search - Functions for searching the Koha MARC catalog + +=head1 SYNOPSIS + + use C4::Search; + + my ($count, @results) = catalogsearch(); + +=head1 DESCRIPTION + +This module provides the searching facilities for the Koha MARC catalog + +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 + +=over 2 + +=cut + +@ISA = qw(Exporter); +@EXPORT = qw(&catalogsearch); +# make all your functions, whether exported or not; + +# marcsearch : search in the MARC biblio table. +# everything is choosen by the user : what to search, the conditions... +# FIXME this is a 1st version of the Marc Search. It does not use fulltext searching or marc_words table + +sub catalogsearch { + my ($dbh, $tags, $subfields, $and_or, $excluding, $operator, $value, $offset,$length) = @_; + # build the sql request. She will look like : + # select m1.bibid + # from marc_subfield_table as m1, marc_subfield_table as m2 + # where m1.bibid=m2.bibid and + # (m1.subfieldvalue like "Des%" and m2.subfieldvalue like "27%") + + my $sql_tables; # will contain marc_subfield_table as m1,... + my $sql_where1; # will contain the "true" where + my $sql_where2; # will contain m1.bibid=m2.bibid + my $nb=1; + for(my $i=0; $i<=@$tags;$i++) { + if (@$tags[$i] && @$value[$i]) { + $sql_tables .= "marc_subfield_table as m$nb,"; + if ($nb==1) { + if (@$operator[$i] eq "starts") { + $sql_where1 .= "@$excluding[$i](m1.subfieldvalue like '@$value[$i] %' and m1.tag=@$tags[$i] and m1.subfieldcode='@$subfields[$i]')"; + } elsif (@$operator[$i] eq "contains") { + $sql_where1 .= "@$excluding[$i](m1.subfieldvalue like '%@$value[$i]%' and m1.tag=@$tags[$i] and m1.subfieldcode='@$subfields[$i]')"; + } else { + $sql_where1 .= "@$excluding[$i](m1.subfieldvalue @$operator[$i] '@$value[$i]' and m1.tag=@$tags[$i] and m1.subfieldcode='@$subfields[$i]')"; + } + } else { + if (@$operator[$i] eq "starts") { + $sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue like '@$value[$i]%' and m$nb.tag=@$tags[$i] and m$nb.subfieldcode='@$subfields[$i]')"; + $sql_where2 .= "m1.bibid=m$nb.bibid"; + } elsif (@$operator[$i] eq "contains") { + $sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue like '%@$value[$i]%' and m$nb.tag=@$tags[$i] and m$nb.subfieldcode='@$subfields[$i]')"; + $sql_where2 .= "m1.bibid=m$nb.bibid"; + } else { + $sql_where1 .= "@$and_or[$i] @$excluding[$i](m$nb.subfieldvalue @$operator[$i] '@$value[$i]' and m$nb.tag=@$tags[$i] and m$nb.subfieldcode='@$subfields[$i]')"; + $sql_where2 .= "m1.bibid=m$nb.bibid"; + } + } + $nb++; + } + } + chop $sql_tables; + warn "select m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)"; + my $sth; + if ($sql_where2) { + $sth = $dbh->prepare("select m1.bibid from $sql_tables where $sql_where2 and ($sql_where1)"); + } else { + $sth = $dbh->prepare("select m1.bibid from $sql_tables where $sql_where1"); + } + $sth->execute; + my @result; + while (my ($bibid) = $sth->fetchrow) { + push @result,$bibid; + } + # we have bibid list. Now, loads title and author from [offset] to [offset]+[length] + my $counter = $offset; + $sth = $dbh->prepare("select author,title from biblio,marc_biblio where biblio.biblionumber=marc_biblio.biblionumber and bibid=?"); + my @finalresult = (); + while ($counter <= ($offset + $length)) { + $sth->execute($result[$counter]); + my ($author,$title) = $sth->fetchrow; + my %line; + $line{bibid}=$result[$counter]; + $line{author}=$author; + $line{title}=$title; + push @finalresult, \%line; + $counter++; + } + return @finalresult; +} + +END { } # module clean-up code here (global destructor) + +1; +__END__ + +=back + +=head1 AUTHOR + +Koha Developement team + +=cut diff --git a/koha-tmpl/intranet-tmpl/default/en/search.marc/result.tmpl b/koha-tmpl/intranet-tmpl/default/en/search.marc/result.tmpl new file mode 100644 index 0000000000..92df0c1784 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/default/en/search.marc/result.tmpl @@ -0,0 +1,37 @@ + + + + + + + +

Logged in as: [Log Out]

+ +

Log In to Koha

+ + +
+ + + + bgcolor=#99cccc background=/images/background-opac.gif + + background="/images/background-mem.gif" + + > + + + + + + + + + +
Result
+ + + + + diff --git a/koha-tmpl/intranet-tmpl/default/en/search.marc/search.tmpl b/koha-tmpl/intranet-tmpl/default/en/search.marc/search.tmpl new file mode 100644 index 0000000000..4376c8b834 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/default/en/search.marc/search.tmpl @@ -0,0 +1,145 @@ + + + + + + + +

Logged in as: [Log Out]

+ +

Log In to Koha

+ + +
+ +
+ + + + bgcolor=#99cccc background=/images/background-opac.gif + + background="/images/background-mem.gif" + + > + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Search
+
+ + +
+ bgcolor=#99cccc background=/images/background-opac.gif + + background="/images/background-mem.gif" + + align=center valign=center> + 0 + +   + + + + +
+ + + + + +
+ + + + + +
+
+ + + + + + diff --git a/search.marc/search.pl b/search.marc/search.pl new file mode 100755 index 0000000000..795516cbf4 --- /dev/null +++ b/search.marc/search.pl @@ -0,0 +1,110 @@ +#!/usr/bin/perl + +# 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 CGI; +use C4::Auth; +use HTML::Template; +use C4::Context; +use C4::Search; +use C4::Auth; +use C4::Output; +use C4::Biblio; +use C4::SearchMarc; + +my $query=new CGI; +my $type=$query->param('type'); +my $op = $query->param('op'); +#$type="opac" unless $type; + +my $dbh = C4::Context->dbh; + +my ($loggedinuser, $cookie, $sessionID) = checkauth($query, ($type eq 'opac') ? (1) : (0)); + +my $startfrom=$query->param('startfrom'); +($startfrom) || ($startfrom=0); +my ($template, $loggedinuser, $cookie); + +if ($op eq "do_search") { + my @marclist = $query->param('marclist'); + my @and_or = $query->param('and_or'); + my @excluding = $query->param('excluding'); + my @operator = $query->param('operator'); + my @value = $query->param('value'); + # builds tag and subfield arrays + my @tags; + my @subfields; + foreach my $marc (@marclist) { + push @tags, substr($marc,0,3); + push @subfields, substr($marc,3,1); + } + my @results = catalogsearch($dbh, \@tags, \@subfields, \@and_or, + \@excluding, \@operator, \@value, + $startfrom, 20); + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "search.marc/result.tmpl", + query => $query, + type => $type, + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + $template->param(loggedinuser => $loggedinuser, + result => \@results); + +} else { + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "search.marc/search.tmpl", + query => $query, + type => $type, + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + $template->param(loggedinuser => $loggedinuser); + my $tagslib; + if ($type eq "opac") { + $tagslib = &MARCgettagslib($dbh,1); + } else { + $tagslib = &MARCgettagslib($dbh,1); + } + my @marcarray; + push @marcarray,""; + for (my $tabloop = 0; $tabloop<=9;$tabloop++) { + push @marcarray,"--------------------------------------- $tabloop ---------------------------------------"; + foreach my $tag (sort(keys (%{$tagslib}))) { + foreach my $subfield (sort(keys %{$tagslib->{$tag}})) { + next if ($subfield eq 'lib'); # skip lib and tabs, which are koha internal + next if ($subfield eq 'tab'); + next unless ($tagslib->{$tag}->{$subfield}->{tab} eq $tabloop); + push @marcarray, "$tag$subfield - $tagslib->{$tag}->{$subfield}->{lib}"; + } + } + } + my $marclist = CGI::scrolling_list(-name=>"marclist", + -values=> \@marcarray, + -size=>1, + -multiple=>0, + -onChange => "sql_update()", + ); + $template->param("marclist" => $marclist); +} +# Print the page +print $query->header(-cookie => $cookie), $template->output;