projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 11715: require authentication for the cataloging Z39.50 search
[koha.git]
/
cataloguing
/
z3950_search.pl
diff --git
a/cataloguing/z3950_search.pl
b/cataloguing/z3950_search.pl
index
425a6c1
..
d3a3c53
100755
(executable)
--- a/
cataloguing/z3950_search.pl
+++ b/
cataloguing/z3950_search.pl
@@
-20,7
+20,7
@@
use strict;
use warnings;
use strict;
use warnings;
-use CGI
qw( -utf8 )
;
+use CGI;
use C4::Auth;
use C4::Output;
use C4::Auth;
use C4::Output;
@@
-53,7
+53,6
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
template_name => "cataloguing/z3950_search.tmpl",
query => $input,
type => "intranet",
template_name => "cataloguing/z3950_search.tmpl",
query => $input,
type => "intranet",
- authnotrequired => 1,
flagsrequired => { catalogue => 1 },
});
flagsrequired => { catalogue => 1 },
});
@@
-74,7
+73,7
@@
$template->param(
);
if ( $op ne "do_search" ) {
);
if ( $op ne "do_search" ) {
- my $sth = $dbh->prepare("SELECT id,host,name,checked FROM z3950servers ORDER BY rank, name");
+ my $sth = $dbh->prepare("SELECT id,host,name,checked FROM z3950servers
WHERE recordtype <> 'authority'
ORDER BY rank, name");
$sth->execute();
my $serverloop = $sth->fetchall_arrayref( {} );
$template->param(
$sth->execute();
my $serverloop = $sth->fetchall_arrayref( {} );
$template->param(
@@
-94,7
+93,6
@@
if ( @id==0 ) {
}
my $pars= {
}
my $pars= {
- random => $input->param('random') || rand(1000000000),
biblionumber => $biblionumber,
page => $page,
id => \@id,
biblionumber => $biblionumber,
page => $page,
id => \@id,