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