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