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

(-)a/tools/modborrowers.pl (-1 / +4 lines)
Lines 37-42 use Koha::Libraries; Link Here
37
use Koha::Patron::Categories;
37
use Koha::Patron::Categories;
38
use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
38
use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
39
use Koha::Patrons;
39
use Koha::Patrons;
40
use List::MoreUtils qw(uniq);
40
41
41
my $input = CGI->new;
42
my $input = CGI->new;
42
my $op = $input->param('op') || 'show_form';
43
my $op = $input->param('op') || 'show_form';
Lines 96-101 if ( $op eq 'show' ) { Link Here
96
97
97
    my $max_nb_attr = 0;
98
    my $max_nb_attr = 0;
98
99
100
    # Make sure there is only one of each patron id number
101
    @patronidnumbers = uniq( @patronidnumbers );
102
99
    for my $patronidnumber ( @patronidnumbers ) {
103
    for my $patronidnumber ( @patronidnumbers ) {
100
        my $patron;
104
        my $patron;
101
        if( $useborrowernumbers == 1 ){
105
        if( $useborrowernumbers == 1 ){
102
- 

Return to bug 29761