[Koha-cvs] koha/opac opac-searchresults.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/11/30 14:31:25

Removed files:
        opac           : opac-searchresults.pl 

Log message:
        unused script.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-searchresults.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.19&r2=0

Patches:
Index: opac-searchresults.pl
===================================================================
RCS file: opac-searchresults.pl
diff -N opac-searchresults.pl
--- opac-searchresults.pl       4 Jul 2006 14:36:52 -0000       1.19
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,128 +0,0 @@
-#!/usr/bin/perl
-use strict;
-require Exporter;
-use CGI;
-use C4::Search;
-use C4::Biblio;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-use HTML::Template;
-
-my $query=new CGI;
-
-my ($template, $borrowernumber, $cookie)
-    = get_template_and_user({template_name => "opac-searchresults.tmpl",
-                            query => $query,
-                            type => "opac",
-                            authnotrequired => 1,
-                        });
-
-
-my $subject=$query->param('subject');
-
-
-
-if ($subject) {
-    $template->param(subjectsearch => $subject);
-}
-
-# get all the search variables
-# we assume that C4::Search will validate these values for us
-my @fields = ('keyword', 'subject', 'author', 'illustrator', 'itemnumber', 
'isbn', 'date-before', 'date-after', 'class', 'dewey', 'branch', 'title', 
'abstract', 'publisher');
-
-# collect all the fields ...
-my %search;
-
-my $forminputs;
-my $searchdesc = '';
-foreach my $field (@fields) {
-    $search{$field} = $query->param($field);
-    if ($field eq 'keyword'){
-       $search{$field} = $query->param('words') unless $search{$field};
-    }
-    if ($search{$field}) {
-       push @$forminputs, {field => $field, value => $search{$field}};
-       $searchdesc .= "$field = $search{$field}, ";
-    }
-}
-
-$search{'ttype'} = $query->param('ttype');
-push @$forminputs, {field => 'ttype', value => $search{'ttype'}};
-
-if (my $subjectitems=$query->param('subjectitems')){
-    $search{'subject'} = $subjectitems;
-    $searchdesc.="subject = $subjectitems, ";
-}
-
address@hidden() unless $forminputs;
-$template->param(FORMINPUTS => $forminputs);
-
-# do the searchs ....
-my $env;
-$env->{itemcount}=1;
-my $number_of_results = 20;
-my @results;
-my $count;
-my $startfrom = $query->param('startfrom');
-my $subjectitems=$query->param('subjectitems');
-if ($subjectitems) {
-    address@hidden = subsearch($env,$subjectitems, $number_of_results, 
$startfrom);
-    @results = subsearch($env, $subjectitems);
-    $count = $#results+1;
-} else {
-    ($count, @results) = 
catalogsearch($env,'',\%search,$number_of_results,$startfrom);
-}
-
-my $num = 1;
-foreach my $res (@results) {
-    my @items = ItemInfo(undef, $res->{'biblionumber'}, "intra");
-    my $norequests = 1;
-    foreach my $itm (@items) {
-       $norequests = 0 unless $itm->{'notforloan'};
-    }
-    $res->{'norequests'} = $norequests;
-    # set up the even odd elements....
-    $res->{'even'} = 1 if $num % 2 == 0;
-    $res->{'odd'} = 1 if $num % 2 == 1;
-    $num++;
-}
-
-
-my $startfrom=$query->param('startfrom');
-($startfrom) || ($startfrom=0);
-
-my address@hidden;
-($resultsarray) || (@$resultsarray=());
-
-
-# sorting out which results to display.
-$template->param(startfrom => $startfrom+1);
-($startfrom+$num<=$count) ? ($template->param(endat => $startfrom+$num)) : 
($template->param(endat => $count));
-$template->param(numrecords => $count);
-my $nextstartfrom=($startfrom+$num<$count) ? ($startfrom+$num) : (-1);
-my $prevstartfrom=($startfrom-$num>=0) ? ($startfrom-$number_of_results) : 
(-1);
-$template->param(nextstartfrom => $nextstartfrom);
-my $displaynext=($nextstartfrom==-1) ? 0 : 1;
-my $displayprev=($prevstartfrom==-1) ? 0 : 1;
-$template->param(displaynext => $displaynext);
-$template->param(displayprev => $displayprev);
-$template->param(prevstartfrom => $prevstartfrom);
-
-$template->param(searchdesc => $searchdesc);
-$template->param(SEARCH_RESULTS => $resultsarray);
-
-my $numbers;
address@hidden = ();
-if ($count>$number_of_results) {
-    for (my $i=1; $i<$count/$number_of_results+1; $i++) {
-       my $highlight=0;
-       my $themelang = $template->param('themelang');
-       ($startfrom==($i-1)*$number_of_results+1) && ($highlight=1);
-       push @$numbers, { number => $i, highlight => $highlight , startfrom => 
($i-1)*$number_of_results+1 };
-    }
-}
-
-$template->param(numbers => $numbers,
-);
-
-output_html_with_http_headers $query, $cookie, $template->output;