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

(-)a/circ/circulation.pl (+2 lines)
Lines 29-34 use CGI qw ( -utf8 ); Link Here
29
use URI::Escape qw( uri_escape_utf8 );
29
use URI::Escape qw( uri_escape_utf8 );
30
use DateTime;
30
use DateTime;
31
use DateTime::Duration;
31
use DateTime::Duration;
32
use List::MoreUtils qw( any );
32
use Scalar::Util qw( looks_like_number );
33
use Scalar::Util qw( looks_like_number );
33
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
34
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
34
use C4::Auth qw( get_session get_template_and_user );
35
use C4::Auth qw( get_session get_template_and_user );
Lines 217-222 if ( @$barcodes == 0 && $charges eq 'yes' ) { Link Here
217
# if there is a list of find borrowers....
218
# if there is a list of find borrowers....
218
#
219
#
219
my $message;
220
my $message;
221
$findborrower &&= any { $_ eq 'cardnumber' } split ',', C4::Context->preference('DefaultPatronSearchFields');
220
if ($findborrower) {
222
if ($findborrower) {
221
    Koha::Plugins->call( 'patron_barcode_transform', \$findborrower );
223
    Koha::Plugins->call( 'patron_barcode_transform', \$findborrower );
222
    my $patron = Koha::Patrons->find( { cardnumber => $findborrower } );
224
    my $patron = Koha::Patrons->find( { cardnumber => $findborrower } );
(-)a/members/member.pl (-2 / +5 lines)
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
- 

Return to bug 32985