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 |
- |
|
|