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