Bug 11529: Add templates for biblio title display. Unify display.
[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 Modern::Perl;
23 use CGI qw/-utf8/;
24
25 use C4::Auth;
26 use C4::Output;
27 use C4::Context;
28 use C4::Breeding;
29 use C4::Koha;
30
31 use Koha::Acquisition::Booksellers;
32 use Koha::BiblioFrameworks;
33
34 my $input           = new CGI;
35 my $biblionumber    = $input->param('biblionumber')||0;
36 my $frameworkcode   = $input->param('frameworkcode') || q{};
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 $srchany         = $input->param('srchany');
45 my $stdid           = $input->param('stdid');
46 my $dewey           = $input->param('dewey');
47 my $controlnumber   = $input->param('controlnumber');
48 my $op              = $input->param('op')||'';
49 my $booksellerid    = $input->param('booksellerid');
50 my $basketno        = $input->param('basketno');
51 my $page            = $input->param('current_page') || 1;
52 $page               = $input->param('goto_page') if $input->param('changepage_goto');
53
54 # get framework list
55 my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
56
57 my $vendor = Koha::Acquisition::Booksellers->find( $booksellerid );
58
59 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
60     {
61         template_name   => "acqui/z3950_search.tt",
62         query           => $input,
63         type            => "intranet",
64         flagsrequired   => { acquisition => 'order_manage' },
65     }
66 );
67 $template->param(
68         frameworkcode => $frameworkcode,
69         frameworks   => $frameworks,
70         booksellerid => $booksellerid,
71         basketno     => $basketno,
72         name         => $vendor->name,
73         isbn         => $isbn,
74         issn         => $issn,
75         lccn         => $lccn,
76         lccall       => $lccall,
77         title        => $title,
78         author       => $author,
79         controlnumber=> $controlnumber,
80         biblionumber => $biblionumber,
81         dewey        => $dewey,
82         subject      => $subject,
83         srchany      => $srchany,
84         stdid        => $stdid,
85 );
86
87 if ( $op ne "do_search" ) {
88     my $schema = Koha::Database->new()->schema();
89     my $rs = $schema->resultset('Z3950server')->search(
90         {
91             recordtype => 'biblio',
92             servertype => ['zed', 'sru'],
93         },
94         {   result_class => 'DBIx::Class::ResultClass::HashRefInflator',
95             order_by     => ['rank', 'servername'],
96         },
97     );
98     $template->param(
99         serverloop   => [ $rs->all ],
100         opsearch     => "search",
101     );
102     output_html_with_http_headers $input, $cookie, $template->output;
103     exit;
104 }
105
106 my @id = $input->multi_param('id');
107 if (@id==0) {
108     $template->param( emptyserverlist => 1 );
109     output_html_with_http_headers $input, $cookie, $template->output;
110     exit;
111 }
112
113 my $pars= {
114         biblionumber => $biblionumber,
115         page => $page,
116         id => \@id,
117         isbn => $isbn,
118         issn => $issn,
119         title => $title,
120         author => $author,
121         dewey => $dewey,
122         subject => $subject,
123         lccall => $lccall,
124         controlnumber => $controlnumber,
125         stdid => $stdid,
126         srchany => $srchany,
127 };
128 Z3950Search($pars, $template);
129 output_html_with_http_headers $input, $cookie, $template->output;