#!/usr/bin/perl
+use HTML::Template;
#script to provide intranet (librarian) advanced search facility
-#modified 9/11/1999 by chris@katipo.co.nz
-#adding an extra comment to play with CVS (Si, 19/11/99)
-#modified 29/12/99 by chris@katipo.co.nz to be usavle by opac as well
-#modified by chris 10/11/00 to fix dewey 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;
-use C4::Search;
+require Exporter;
+use C4::Database;
use CGI;
-use C4::Output;
+use C4::Search;
+use C4::Output; # no contains picktemplate
+
+my $query=new CGI;
-my $env;
-my $input = new CGI;
-print $input->header;
-#print $input->dump;
-#whether it is called from the opac of the intranet
-my $type=$input->param('type');
-if ($type eq ''){
- $type = 'intra';
+
+my $language='french';
+
+
+my %configfile;
+open (KC, "/etc/koha.conf");
+while (<KC>) {
+ chomp;
+ (next) if (/^\s*#/);
+ if (/(.*)\s*=\s*(.*)/) {
+ my $variable=$1;
+ my $value=$2;
+ # Clean up white space at beginning and end
+ $variable=~s/^\s*//g;
+ $variable=~s/\s*$//g;
+ $value=~s/^\s*//g;
+ $value=~s/\s*$//g;
+ $configfile{$variable}=$value;
+ }
}
-my $ttype=$input->param('ttype');
-#setup colours
-my $main;
-my $secondary;
-if ($type eq 'opac'){
- $main='#99cccc';
- $secondary='#efe5ef';
-} else {
- $main='#cccc99';
- $secondary='#ffffcc';
-}
+#print $query->header;
-#print $input->dump;
-my $blah;
+my $includes=$configfile{'includes'};
+($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
+my $templatebase="catalogue/searchresults.tmpl";
+my $startfrom=$query->param('startfrom');
+($startfrom) || ($startfrom=0);
+my $theme=picktemplate($includes, $templatebase);
+
+my $subject=$query->param('subject');
+# if its a subject we need to use the subject.tmpl
+if ($subject) {
+ $templatebase=~ s/searchresults\.tmpl/subject\.tmpl/;
+ $theme=picktemplate($includes, $templatebase);
+}
+
+my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
+
+my $env;
+$env->{itemcount}=1;
+
+# get all the search variables
+# we assume that C4::Search will validate these values for us
my %search;
-#build hash of users input
-my $title=validate($input->param('title'));
-$search{'title'}=$title;
-my $keyword=validate($input->param('keyword'));
+my $keyword=$query->param('keyword');
$search{'keyword'}=$keyword;
-$search{'front'}=validate($input->param('front'));
-my $author=validate($input->param('author'));
-$search{'author'}=$author;
-my $subject=validate($input->param('subject'));
+
$search{'subject'}=$subject;
-my $itemnumber=validate($input->param('item'));
-$search{'item'}=$itemnumber;
-my $isbn=validate($input->param('isbn'));
+my $author=$query->param('author');
+$search{'author'}=$author;
+my $illustrator=$query->param('illustrator');
+$search{'param'}=$illustrator;
+my $itemnumber=$query->param('itemnumber');
+$search{'itemnumber'}=$itemnumber;
+my $isbn=$query->param('isbn');
$search{'isbn'}=$isbn;
-my $datebefore=validate($input->param('date-before'));
-$search{'date-before'};
-my $class=$input->param('class');
+my $datebefore=$query->param('date-before');
+$search{'date-before'}=$datebefore;
+my $class=$query->param('class');
$search{'class'}=$class;
+my $dewey=$query->param('dewey');
+$search{'dewey'};
+my $branch=$query->param('branch');
+$search{'branch'}=$branch;
+my $title=$query->param('title');
+$search{'title'}=$title;
+my $abstract=$query->param('abstract');
+$search{'abstract'}=$abstract;
+my $publisher=$query->param('publisher');
+$search{'publisher'}=$publisher;
+
+my $ttype=$query->param('ttype');
$search{'ttype'}=$ttype;
-my $dewey=validate($input->param('dewey'));
-$search{'dewey'}=$dewey;
-my @results;
-my $offset=$input->param('offset');
-if ($offset eq ''){
- $offset=0;
-}
-my $num=$input->param('num');
-if ($num eq ''){
- $num=10;
+
+my $forminputs;
+($keyword) && (push @$forminputs, { line => "keyword=$keyword"});
+($subject) && (push @$forminputs, { line => "subject=$subject"});
+($author) && (push @$forminputs, { line => "author=$author"});
+($illustrator) && (push @$forminputs, { line => "illustrator=$illustrator"});
+($itemnumber) && (push @$forminputs, { line => "itemnumber=$itemnumber"});
+($isbn) && (push @$forminputs, { line => "isbn=$isbn"});
+($datebefore) && (push @$forminputs, { line => "date-before=$datebefore"});
+($class) && (push @$forminputs, { line => "class=$class"});
+($dewey) && (push @$forminputs, { line => "dewey=$dewey"});
+($branch) && (push @$forminputs, { line => "branch=$branch"});
+($title) && (push @$forminputs, { line => "title=$title"});
+($ttype) && (push @$forminputs, { line => "ttype=$ttype"});
+($abstract) && (push @$forminputs, { line => "abstract=$abstract"});
+($publisher) && (push @$forminputs, { line => "publisher=$publisher"});
+$template->param(FORMINPUTS => $forminputs);
+# whats this for?
+# I think it is (or was) a search from the "front" page... [st]
+$search{'front'}=$query->param('front');
+
+my $num=10;
+my ($count,@results)=catalogsearch($env,'',\%search,$num,$startfrom);
+
+my $resultsarray=\@results;
+
+my $search="num=20";
+if ($keyword){
+ $search=$search."&keyword=$keyword";
}
-print startpage();
-print startmenu($type);
-#print $search{'ttype'};
-if ($type ne 'opac'){
- print mkheadr(1,'Catalogue Search Results');
-} else {
- print mkheadr(1,'Opac Search Results');
+if ($subject){
+ $search=$search."&subject=$subject";
}
-print center();
-my $count;
-my @results;
-if ($itemnumber ne '' || $isbn ne ''){
- ($count,@results)=&CatSearch(\$blah,'precise',\%search,$num,$offset);
-} else {
- if ($subject ne ''){
- ($count,@results)=&CatSearch(\$blah,'subject',\%search,$num,$offset);
- } else {
- if ($keyword ne ''){
-# print "hey";
- ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset);
- } elsif ($search{'front'} ne '') {
- ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset);
-# print "hey";
- }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') {
- ($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
-# print "hey";
- }
- }
+if ($author){
+ $search=$search."&author=$author";
}
-print "You searched on ";
-while ( my ($key, $value) = each %search) {
- if ($value ne '' && $key ne 'ttype'){
- $value=~ s/\\//g;
- print bold("$key $value,");
- }
+if ($class){
+ $search=$search."&class=$class";
}
-print " $count results found";
-my $offset2=$num+$offset;
-my $dispnum=$offset+1;
-print "<br> Results $dispnum to $offset2 displayed";
-print mktablehdr;
-if ($type ne 'opac'){
- if ($subject ne ''){
- print mktablerow(1,$main,'<b>SUBJECT</b>','/images/background-mem.gif');
- } else {
- print mktablerow(6,$main,'<b>TITLE</b>','<b>AUTHOR</b>',bold('©'),'<b>COUNT</b>',bold('LOCATION'),'','/images/background-mem.gif');
- }
-} else {
- if ($subject ne ''){
- print mktablerow(6,$main,'<b>SUBJECT</b>',' ',' ');
- } else {
- print mktablerow(6,$main,'<b>TITLE</b>','<b>AUTHOR</b>',bold('©'),'<b>COUNT</b>',bold('BRANCH'),'');
- }
+if ($title){
+ $search=$search."&title=$title";
}
-my $count2=@results;
-if ($keyword ne '' && $offset > 0){
- $count2=$count-$offset;
- if ($count2 > 10){
- $count2=10;
- }
+if ($dewey){
+ $search=$search."&dewey=$dewey";
}
-#print $count2;
-my $i=0;
-my $colour=1;
-while ($i < $count2){
-# print $results[$i]."\n";
- my @stuff=split('\t',$results[$i]);
- $stuff[1]=~ s/\`/\\\'/g;
- my $title2=$stuff[1];
- $title2=~ s/ /%20/g;
- if ($subject eq ''){
-# print $stuff[0];
- $stuff[1]=mklink("/cgi-bin/koha/detail.pl?type=$type&bib=$stuff[2]&title=$title2",$stuff[1]);
- my $word=$stuff[0];
-# print $word;
- $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;
- my $url="/cgi-bin/koha/search.pl?author=$word&type=$type";
- $stuff[0]=mklink($url,$stuff[0]);
- my ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit,$ocount)=itemcount($env,$stuff[2],$type);
- $stuff[4]=$count;
- if ($nacount > 0){
- $stuff[5]=$stuff[5]."On Loan";
- if ($nacount >1 ){
- $stuff[5]=$stuff[5]." ($nacount)";
- }
- $stuff[5].=" ";
- }
- if ($lcount > 0){
- $stuff[5]=$stuff[5]."Levin";
- if ($lcount >1 ){
- $stuff[5]=$stuff[5]." ($lcount)";
- }
- $stuff[5].=" ";
- }
- if ($fcount > 0){
- $stuff[5]=$stuff[5]."Foxton";
- if ($fcount >1 ){
- $stuff[5]=$stuff[5]." ($fcount)";
- }
- $stuff[5].=" ";
- }
- if ($scount > 0){
- $stuff[5]=$stuff[5]."Shannon";
- if ($scount >1 ){
- $stuff[5]=$stuff[5]." ($scount)";
- }
- $stuff[5].=" ";
- }
- if ($lostcount > 0){
- $stuff[5]=$stuff[5]."Lost";
- if ($lostcount >1 ){
- $stuff[5]=$stuff[5]." ($lostcount)";
- }
- $stuff[5].=" ";
- }
- if ($mending > 0){
- $stuff[5]=$stuff[5]."Mending";
- if ($mending >1 ){
- $stuff[5]=$stuff[5]." ($mending)";
- }
- $stuff[5].=" ";
- }
- if ($transit > 0){
- $stuff[5]=$stuff[5]."In Transiit";
- if ($transit >1 ){
- $stuff[5]=$stuff[5]." ($transit)";
- }
- $stuff[5].=" ";
- }
- if ($ocount > 0){
- $stuff[5]=$stuff[5]."On Order";
- if ($ocount >1 ){
- $stuff[5]=$stuff[5]." ($ocount)";
- }
- $stuff[5].=" ";
- }
-
- if ($type ne 'opac'){
- $stuff[6]=mklink("/cgi-bin/koha/request.pl?bib=$stuff[2]","Request");
- }
- } else {
- my $word=$stuff[1];
- $word=~ s/ /%20/g;
-
- $stuff[1]=mklink("/cgi-bin/koha/subjectsearch.pl?subject=$word&type=$type",$stuff[1]);
-
- }
+$search.="&ttype=$ttype";
- if ($colour == 1){
- print mktablerow(6,$secondary,$stuff[1],$stuff[0],$stuff[3],$stuff[4],$stuff[5],$stuff[6]);
- $colour=0;
- } else{
- print mktablerow(6,'white',$stuff[1],$stuff[0],$stuff[3],$stuff[4],$stuff[5],$stuff[6]);
- $colour=1;
- }
- $i++;
-}
-$offset=$num+$offset;
-if ($type ne 'opac'){
- print mktablerow(6,$main,' ',' ',' ',' ','','','/images/background-mem.gif');
-} else {
- print mktablerow(6,$main,' ',' ',' ',' ','','');
-}
-print mktableft();
-my $search;
+$search=~ s/ /%20/g;
+$template->param(startfrom => $startfrom+1);
+$template->param(endat => $startfrom+$num);
+$template->param(numrecords => $count);
+my $nextstartfrom=($startfrom+$num<$count-$num) ? ($startfrom+$num) : ($count-$num);
+my $prevstartfrom=($startfrom-$num>0) ? ($startfrom-$num) : (0);
+$template->param(nextstartfrom => $nextstartfrom);
+$template->param(prevstartfrom => $prevstartfrom);
+$template->param(search => $search);
+$template->param(SEARCH_RESULTS => $resultsarray);
+$template->param(includesdir => $includes);
- $search="num=$num&offset=$offset&type=$type";
- if ($subject ne ''){
- $subject=~ s/ /%20/g;
- $search=$search."&subject=$subject";
- }
- if ($title ne ''){
- $title=~ s/ /%20/g;
- $search=$search."&title=$title";
- }
- if ($author ne ''){
- $author=~ s/ /%20/g;
- $search=$search."&author=$author";
- }
- if ($keyword ne ''){
- $keyword=~ s/ /%20/g;
- $search=$search."&keyword=$keyword";
- }
- if ($class ne ''){
- $keyword=~ s/ /%20/g;
- $search=$search."&class=$class";
- }
- if ($dewey ne ''){
- $search=$search."&dewey=$dewey";
- }
- $search.="&ttype=$ttype";
-if ($offset < $count){
- my $stuff=mklink("/cgi-bin/koha/search.pl?$search",'Next');
- print $stuff;
-}
-print "<br>";
-my $pages=$count/10;
-$pages++;
-for (my $i=1;$i<$pages;$i++){
- my $temp=$i*10;
- $temp=$temp-10;
- $search=~ s/offset=[0-9]+/offset=$temp/;
- my $stuff=mklink("/cgi-bin/koha/search.pl?$search",$i);
- print "$stuff ";
-}
-
-print endcenter();
-print endmenu($type);
-print endpage();
+print "Content-Type: text/html\n\n", $template->output;
-sub validate {
- my ($input)=@_;
- $input=~ s/\<[a-z]+\>//gi;
- $input=~ s/\<\/[a-z]+\>//gi;
- $input=~ s/\<//g;
- $input=~ s/\>//g;
- $input=~ s/^%//g;
- return($input);
-}
projects / koha_fer / blobdiff