View | Details | Raw Unified | Return to bug 15332
Collapse All | Expand All

(-)a/tools/modborrowers.pl (-1 / +5 lines)
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
- 

Return to bug 15332