|
Lines 35-40
use C4::Members::Attributes;
Link Here
|
| 35 |
use C4::Members::AttributeTypes qw/GetAttributeTypes_hashref/; |
35 |
use C4::Members::AttributeTypes qw/GetAttributeTypes_hashref/; |
| 36 |
use C4::Output; |
36 |
use C4::Output; |
| 37 |
use List::MoreUtils qw /any uniq/; |
37 |
use List::MoreUtils qw /any uniq/; |
|
|
38 |
use Koha::DateUtils qw( dt_from_string ); |
| 38 |
use Koha::List::Patron; |
39 |
use Koha::List::Patron; |
| 39 |
|
40 |
|
| 40 |
my $input = new CGI; |
41 |
my $input = new CGI; |
|
Lines 261-266
if ( $op eq 'do' ) {
Link Here
|
| 261 |
$infos->{$field} = "" if grep { /^$field$/ } @disabled; |
262 |
$infos->{$field} = "" if grep { /^$field$/ } @disabled; |
| 262 |
} |
263 |
} |
| 263 |
|
264 |
|
|
|
265 |
for my $field ( qw( dateenrolled dateexpiry ) ) { |
| 266 |
$infos->{$field} = dt_from_string($infos->{$field}); |
| 267 |
} |
| 268 |
|
| 264 |
my @attributes = $input->param('patron_attributes'); |
269 |
my @attributes = $input->param('patron_attributes'); |
| 265 |
my @attr_values = $input->param('patron_attributes_value'); |
270 |
my @attr_values = $input->param('patron_attributes_value'); |
| 266 |
|
271 |
|
| 267 |
- |
|
|