Revert "Bug 7143 - Bug for tracking changes to the about page"
[koha.git] / acqui / z3950_search.pl
1 #!/usr/bin/perl
2
3 # This is a completely new Z3950 clients search using async ZOOM -TG 02/11/06
4 # Copyright 2000-2002 Katipo Communications
5 # Copyright 2010 Catalyst IT
6 #
7 # This file is part of Koha.
8 #
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
13 #
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
18 #
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22 use warnings;
23 use strict;
24 use CGI qw/-utf8/;
25
26 use C4::Auth;
27 use C4::Output;
28 use C4::Context;
29 use C4::Breeding;
30 use C4::Koha;
31
32 use Koha::Acquisition::Bookseller;
33
34 my $input           = new CGI;
35 my $biblionumber    = $input->param('biblionumber')||0;
36 my $frameworkcode   = $input->param('frameworkcode')||'';
37 my $title           = $input->param('title');
38 my $author          = $input->param('author');
39 my $isbn            = $input->param('isbn');
40 my $issn            = $input->param('issn');
41 my $lccn            = $input->param('lccn');
42 my $lccall          = $input->param('lccall');
43 my $subject         = $input->param('subject');
44 my $dewey           = $input->param('dewey');
45 my $controlnumber   = $input->param('controlnumber');
46 my $op              = $input->param('op')||'';
47 my $booksellerid    = $input->param('booksellerid');
48 my $basketno        = $input->param('basketno');
49 my $page            = $input->param('current_page') || 1;
50 $page               = $input->param('goto_page') if $input->param('changepage_goto');
51
52 # get framework list
53 my $frameworks = getframeworks;
54 my @frameworkcodeloop;
55 foreach my $thisframeworkcode ( keys %$frameworks ) {
56     my %row = (
57         value         => $thisframeworkcode,
58         frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'},
59     );
60     if ( $row{'value'} eq $frameworkcode){
61         $row{'active'} = 'true';
62     }
63     push @frameworkcodeloop, \%row;
64 }
65
66 my $vendor = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
67
68 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
69     {
70         template_name   => "acqui/z3950_search.tt",
71         query           => $input,
72         type            => "intranet",
73         flagsrequired   => { acquisition => 'order_manage' },
74     }
75 );
76 $template->param(
77         frameworkcode => $frameworkcode,
78         frameworkcodeloop => \@frameworkcodeloop,
79         booksellerid => $booksellerid,
80         basketno     => $basketno,
81         name         => $vendor->{'name'},
82         isbn         => $isbn,
83         issn         => $issn,
84         lccn         => $lccn,
85         lccall       => $lccall,
86         title        => $title,
87         author       => $author,
88         controlnumber=> $controlnumber,
89         biblionumber => $biblionumber,
90         dewey        => $dewey,
91         subject      => $subject,
92 );
93
94 if ( $op ne "do_search" ) {
95     my $schema = Koha::Database->new()->schema();
96     my $rs = $schema->resultset('Z3950server')->search(
97         {
98             recordtype => 'biblio',
99             servertype => ['zed', 'sru'],
100         },
101         {   result_class => 'DBIx::Class::ResultClass::HashRefInflator',
102             order_by     => ['rank', 'servername'],
103         },
104     );
105     $template->param(
106         serverloop   => [ $rs->all ],
107         opsearch     => "search",
108     );
109     output_html_with_http_headers $input, $cookie, $template->output;
110     exit;
111 }
112
113 my @id = $input->multi_param('id');
114 if (@id==0) {
115     $template->param( emptyserverlist => 1 );
116     output_html_with_http_headers $input, $cookie, $template->output;
117     exit;
118 }
119
120 my $pars= {
121         biblionumber => $biblionumber,
122         page => $page,
123         id => \@id,
124         isbn => $isbn,
125         issn => $issn,
126         title => $title,
127         author => $author,
128         dewey => $dewey,
129         subject => $subject,
130         lccall => $lccall,
131         controlnumber => $controlnumber,
132         stdid => 0,
133         srchany => 0,
134 };
135 Z3950Search($pars, $template);
136 output_html_with_http_headers $input, $cookie, $template->output;