249 lines
5.8 KiB
Perl
Executable file
249 lines
5.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#origninally script to provide intranet (librarian) advanced search facility
|
|
#now script to do searching for acquisitions
|
|
|
|
|
|
# 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;
|
|
use C4::Search;
|
|
use CGI;
|
|
use C4::Output;
|
|
use C4::Catalogue;
|
|
use C4::Biblio;
|
|
use HTML::Template;
|
|
|
|
my $env;
|
|
my $input = new CGI;
|
|
|
|
#print $input->header;
|
|
|
|
#whether it is called from the opac of the intranet
|
|
my $type=$input->param('type');
|
|
if ($type eq ''){
|
|
$type = 'intra';
|
|
}
|
|
#setup colours
|
|
my $main;
|
|
my $secondary;
|
|
$main='#cccc99';
|
|
$secondary='#ffffcc';
|
|
|
|
|
|
#print $input->dump;
|
|
my $blah;
|
|
my %search;
|
|
#build hash of users input
|
|
my $title=$input->param('search');
|
|
$search{'title'}=$title;
|
|
my $keyword=$input->param('d');
|
|
$search{'keyword'}=$keyword;
|
|
my $author=$input->param('author');
|
|
$search{'author'}=$author;
|
|
|
|
my @results;
|
|
my $offset=$input->param('offset');
|
|
if ($offset eq ''){
|
|
$offset=0;
|
|
}
|
|
my $num=$input->param('num');
|
|
if ($num eq ''){
|
|
$num=10;
|
|
}
|
|
my $id=$input->param('id');
|
|
my $basket=$input->param('basket');
|
|
my $sub=$input->param('sub');
|
|
my $donation;
|
|
if ($id == 72){
|
|
$donation='yes';
|
|
}
|
|
#print $sub;
|
|
my ($count,@booksellers)=bookseller($id);
|
|
|
|
my $template = gettemplate("acqui/newbasket2.tmpl");
|
|
#print startpage();
|
|
#print startmenu('acquisitions');
|
|
|
|
my $testdonation = ($donation ne 'yes'); #tests if donation = true
|
|
|
|
if ($keyword ne ''){
|
|
($count,@results)=KeywordSearch(undef,'intra',\%search,$num,$offset);
|
|
} elsif ($search{'front'} ne '') {
|
|
($count,@results)=FrontSearch(undef,'intra',\%search,$num,$offset);
|
|
}else {
|
|
($count,@results)=CatSearch(undef,'loose',\%search,$num,$offset);
|
|
}
|
|
|
|
my @loopsearch;
|
|
|
|
while ( my ($key, $value) = each %search) {
|
|
if ($value ne ''){
|
|
my %linesearch;
|
|
$value=~ s/\\//g;
|
|
$linesearch{key}=$key;
|
|
$linesearch{value}=$value;
|
|
push(@loopsearch,\%linesearch);
|
|
}
|
|
}
|
|
|
|
my $offset2=$num+$offset;
|
|
my $dispnum=$offset+1;
|
|
if ($offset2>$count) {
|
|
$offset2=$count
|
|
}
|
|
|
|
|
|
my $count2=@results;
|
|
if ($keyword ne '' && $offset > 0){
|
|
$count2=$count-$offset;
|
|
if ($count2 > 10){
|
|
$count2=10;
|
|
}
|
|
}
|
|
#print $count2;
|
|
my $i=0;
|
|
my $colour=0;
|
|
|
|
my @loopresult;
|
|
|
|
while ($i < $count2){
|
|
# print $results[$i]."\n";
|
|
# my @stuff=split('\t',$results[$i]);
|
|
|
|
my %lineres;
|
|
my $coltab;
|
|
|
|
my $result=$results[$i];
|
|
$result->{'title'}=~ s/\`/\\\'/g;
|
|
my $title2=$result->{'title'};
|
|
my $author2=$result->{'author'};
|
|
$author2=~ s/ /%20/g;
|
|
$title2=~ s/ /%20/g;
|
|
$title2=~ s/\#/\&\#x23;/g;
|
|
$title2=~ s/\"/\"\;/g;
|
|
|
|
my $itemcount;
|
|
my $location='';
|
|
my $word=$result->{'author'};
|
|
$word=~ s/([a-z]) +([a-z])/$1%20$2/ig;
|
|
$word=~ s/ //g;
|
|
$word=~ s/ /%20/g;
|
|
$word=~ s/\,/\,%20/g;
|
|
$word=~ s/\n//g;
|
|
$lineres{word}=$word;
|
|
$lineres{type}=$type;
|
|
|
|
my ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit)=C4::Search::itemcount($env,$result->{'biblionumber'},$type);
|
|
if ($nacount > 0){
|
|
$location .= "On Loan";
|
|
if ($nacount >1 ){
|
|
$location .= " ($nacount)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($lcount > 0){
|
|
$location .= "Levin";
|
|
if ($lcount >1 ){
|
|
$location .= " ($lcount)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($fcount > 0){
|
|
$location .= "Foxton";
|
|
if ($fcount >1 ){
|
|
$location .= " ($fcount)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($scount > 0){
|
|
$location .= "Shannon";
|
|
if ($scount >1 ){
|
|
$location .= " ($scount)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($lostcount > 0){
|
|
$location .= "Lost";
|
|
if ($lostcount >1 ){
|
|
$location .= " ($lostcount)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($mending > 0){
|
|
$location .= "Mending";
|
|
if ($mending >1 ){
|
|
$location .= " ($mending)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($transit > 0){
|
|
$location .= "In Transit";
|
|
if ($transit >1 ){
|
|
$location .= " ($transit)";
|
|
}
|
|
$location.=" ";
|
|
}
|
|
if ($colour == 1){
|
|
$coltab=$secondary;
|
|
$colour=0;
|
|
} else{
|
|
$coltab=$main;
|
|
$colour=1;
|
|
}
|
|
$lineres{author2}=$author2;
|
|
$lineres{title2}=$title2;
|
|
$lineres{copyright}=$result->{'copyrightdate'};
|
|
$lineres{id}=$id;
|
|
$lineres{basket}=$basket;
|
|
$lineres{sub}=$sub;
|
|
$lineres{biblionumber}=$result->{biblionumber};
|
|
$lineres{title}=$result->{title};
|
|
$lineres{author}=$result->{author};
|
|
$lineres{coltab}=$coltab;
|
|
$lineres{itemcount}=$count;
|
|
$lineres{location}=$location;
|
|
push(@loopresult,\%lineres);
|
|
$i++;
|
|
}
|
|
|
|
$offset=$num+$offset;
|
|
|
|
#print mktablerow(6,$main,' ',' ',' ',' ','','','/images/background-mem.gif');
|
|
|
|
#print mktableft();
|
|
$template->param( bookselname => $booksellers[0]->{'name'},
|
|
id => $id,
|
|
basket => $basket,
|
|
parsub => $sub,
|
|
testdonation => $testdonation,
|
|
count => $count,
|
|
offset2 =>$offset2,
|
|
dispnum => $dispnum,
|
|
offsetover => ($offset < $count ),
|
|
num => $num,
|
|
offset => $offset,
|
|
type => $type,
|
|
id => $id,
|
|
basket => $basket,
|
|
title => $title,
|
|
author => $author,
|
|
loopsearch =>\@loopsearch,
|
|
loopresult =>\@loopresult);
|
|
|
|
|
|
print "Content-Type: text/html\n\n", $template->output;
|