projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 12495 - Include streetnumber in hold alert address
[koha_fer]
/
acqui
/
z3950_search.pl
diff --git
a/acqui/z3950_search.pl
b/acqui/z3950_search.pl
index
5247d67
..
ab3732e
100755
(executable)
--- a/
acqui/z3950_search.pl
+++ b/
acqui/z3950_search.pl
@@
-21,7
+21,7
@@
use warnings;
use strict;
use warnings;
use strict;
-use CGI;
+use CGI
qw/-utf8/
;
use C4::Auth;
use C4::Output;
use C4::Auth;
use C4::Output;
@@
-70,7
+70,6
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
template_name => "acqui/z3950_search.tmpl",
query => $input,
type => "intranet",
template_name => "acqui/z3950_search.tmpl",
query => $input,
type => "intranet",
- authnotrequired => 1,
flagsrequired => { acquisition => 'order_manage' },
}
);
flagsrequired => { acquisition => 'order_manage' },
}
);
@@
-93,7
+92,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 host");
+ my $sth = $dbh->prepare("select id,host,name,checked from z3950servers
where recordtype <> 'authority'
order by host");
$sth->execute();
my $serverloop = $sth->fetchall_arrayref( {} );
$template->param(
$sth->execute();
my $serverloop = $sth->fetchall_arrayref( {} );
$template->param(
@@
-112,7
+111,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,