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