[Koha-cvs] CVS: koha/search.marc search.pl,NONE,1.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/search.marc
In directory sc8-pr-cvs1:/tmp/cvs-serv6348/search.marc

Added Files:
	search.pl 
Log Message:
search on MARC datas.
first draft

--- NEW FILE ---
#!/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;