|
Lines 30-35
use Koha::Database;
Link Here
|
| 30 |
use Koha::MarcSubfieldStructures; |
30 |
use Koha::MarcSubfieldStructures; |
| 31 |
use Koha::BiblioFrameworks; |
31 |
use Koha::BiblioFrameworks; |
| 32 |
use Koha::KeyboardShortcuts; |
32 |
use Koha::KeyboardShortcuts; |
|
|
33 |
use Koha::Z3950Servers; |
| 33 |
|
34 |
|
| 34 |
my $input = CGI->new; |
35 |
my $input = CGI->new; |
| 35 |
|
36 |
|
|
Lines 76-89
$template->{VARS}->{authtags} = $authtags;
Link Here
|
| 76 |
my $frameworks = Koha::BiblioFrameworks->search( {}, { order_by => ['frameworktext'] } ); |
77 |
my $frameworks = Koha::BiblioFrameworks->search( {}, { order_by => ['frameworktext'] } ); |
| 77 |
$template->{VARS}->{frameworks} = $frameworks; |
78 |
$template->{VARS}->{frameworks} = $frameworks; |
| 78 |
|
79 |
|
| 79 |
# Z39.50 servers |
80 |
$template->param( |
| 80 |
my $dbh = C4::Context->dbh; |
81 |
z3950_servers => Koha::Z3950Servers->search( |
| 81 |
$template->{VARS}->{z3950_servers} = $dbh->selectall_arrayref( |
82 |
{ recordtype => { '!=' => 'authority' } }, |
| 82 |
q{ |
83 |
{ order_by => [ 'rank', 'servername' ] }, |
| 83 |
SELECT * FROM z3950servers |
84 |
) |
| 84 |
WHERE recordtype != 'authority' AND servertype = 'zed' |
|
|
| 85 |
ORDER BY `rank`,servername |
| 86 |
}, { Slice => {} } |
| 87 |
); |
85 |
); |
| 88 |
|
86 |
|
| 89 |
output_html_with_http_headers $input, $cookie, $template->output; |
87 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 90 |
- |
|
|