|
Lines 26-31
use C4::Output qw( output_html_with_http_headers );
Link Here
|
| 26 |
use C4::Context; |
26 |
use C4::Context; |
| 27 |
use C4::Breeding qw( Z3950Search ); |
27 |
use C4::Breeding qw( Z3950Search ); |
| 28 |
|
28 |
|
|
|
29 |
use Koha::Z3950Servers; |
| 30 |
|
| 29 |
my $input = CGI->new; |
31 |
my $input = CGI->new; |
| 30 |
my $error = $input->param('error'); |
32 |
my $error = $input->param('error'); |
| 31 |
my $biblionumber = $input->param('biblionumber') || 0; |
33 |
my $biblionumber = $input->param('biblionumber') || 0; |
|
Lines 74-92
$template->param(
Link Here
|
| 74 |
); |
76 |
); |
| 75 |
|
77 |
|
| 76 |
if ( $op ne "cud-do_search" ) { |
78 |
if ( $op ne "cud-do_search" ) { |
| 77 |
my $schema = Koha::Database->new()->schema(); |
79 |
my $servers = Koha::Z3950Servers->search_with_library_limits( |
| 78 |
my $rs = $schema->resultset('Z3950server')->search( |
|
|
| 79 |
{ |
80 |
{ |
| 80 |
recordtype => 'biblio', |
81 |
recordtype => 'biblio', |
| 81 |
servertype => [ 'zed', 'sru' ], |
82 |
servertype => [ 'zed', 'sru' ], |
| 82 |
}, |
83 |
}, |
| 83 |
{ |
84 |
{ |
| 84 |
result_class => 'DBIx::Class::ResultClass::HashRefInflator', |
85 |
order_by => [ 'rank', 'servername' ], |
| 85 |
order_by => [ 'rank', 'servername' ], |
|
|
| 86 |
}, |
86 |
}, |
|
|
87 |
C4::Context->userenv ? C4::Context->userenv->{branch} : undef |
| 87 |
); |
88 |
); |
| 88 |
$template->param( |
89 |
$template->param( |
| 89 |
serverloop => [ $rs->all ], |
90 |
serverloop => $servers, |
| 90 |
opsearch => "cud-search", |
91 |
opsearch => "cud-search", |
| 91 |
); |
92 |
); |
| 92 |
output_html_with_http_headers $input, $cookie, $template->output; |
93 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 93 |
- |
|
|