use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Members; # BornameSearch
my %categories_dislay;
my ($template, $loggedinuser, $cookie);
($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "serials/member-search.tmpl",
+ = get_template_and_user({template_name => "serials/member-search.tt",
query => $cgi,
type => "intranet",
authnotrequired => 0,
my ($count,$results);
-if (C4::Context->preference("IndependantBranches")){
- if (C4::Context->userenv && C4::Context->userenv->{flags} % 2 !=1 && C4::Context->userenv->{'branch'}){
- $$patron{branchcode}=C4::Context->userenv->{'branch'} unless (C4::Context->userenv->{'branch'} eq "insecure");
- }
+if ( C4::Context->preference("IndependentBranches") ) {
+ if ( C4::Context->userenv
+ && !C4::Context->IsSuperLibrarian()
+ && C4::Context->userenv->{'branch'} )
+ {
+ $$patron{branchcode} = C4::Context->userenv->{'branch'};
+ }
}
$$patron{firstname}.="\%" if ($$patron{firstname});
$$patron{surname}.="\%" if ($$patron{surname});