Lines 24-32
Link Here
|
24 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
24 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
25 |
|
25 |
|
26 |
use Modern::Perl; |
26 |
use Modern::Perl; |
|
|
27 |
use CGI qw( -utf8 ); |
28 |
use List::MoreUtils qw( any ); |
29 |
|
27 |
use C4::Auth qw( get_template_and_user ); |
30 |
use C4::Auth qw( get_template_and_user ); |
28 |
use C4::Output qw( output_html_with_http_headers ); |
31 |
use C4::Output qw( output_html_with_http_headers ); |
29 |
use CGI qw( -utf8 ); |
|
|
30 |
use Koha::List::Patron qw( GetPatronLists ); |
32 |
use Koha::List::Patron qw( GetPatronLists ); |
31 |
use Koha::Patrons; |
33 |
use Koha::Patrons; |
32 |
use Koha::Patron::Attribute::Types; |
34 |
use Koha::Patron::Attribute::Types; |
Lines 46-51
my $searchmember = $input->param('searchmember');
Link Here
|
46 |
my $quicksearch = $input->param('quicksearch') // 0; |
48 |
my $quicksearch = $input->param('quicksearch') // 0; |
47 |
my $circsearch = $input->param('circsearch') // 0; |
49 |
my $circsearch = $input->param('circsearch') // 0; |
48 |
|
50 |
|
|
|
51 |
$quicksearch &&= any { $_ eq 'cardnumber' } split ',', C4::Context->preference('DefaultPatronSearchFields'); |
52 |
|
49 |
if ( $quicksearch and $searchmember && !$circsearch ) { |
53 |
if ( $quicksearch and $searchmember && !$circsearch ) { |
50 |
my $branchcode; |
54 |
my $branchcode; |
51 |
if ( C4::Context::only_my_library ) { |
55 |
if ( C4::Context::only_my_library ) { |
52 |
- |
|
|