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 110-115 if ( $op eq 'show' ) { Link Here
110
111
111
    my $max_nb_attr = 0;
112
    my $max_nb_attr = 0;
112
113
114
    # Make sure there is only one of each patron id number
115
    @patronidnumbers = uniq( @patronidnumbers );
116
113
    for my $patronidnumber ( @patronidnumbers ) {
117
    for my $patronidnumber ( @patronidnumbers ) {
114
        my $patrons;
118
        my $patrons;
115
        if( $useborrowernumbers == 1 ){
119
        if( $useborrowernumbers == 1 ){
116
- 

Return to bug 29761