View | Details | Raw Unified | Return to bug 41136
Collapse All | Expand All

(-)a/cataloguing/editor.pl (-9 / +6 lines)
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
- 

Return to bug 41136