|
Lines 27-33
use C4::Members qw(AddMember changepassword);
Link Here
|
| 27 |
use C4::Members::Attributes; |
27 |
use C4::Members::Attributes; |
| 28 |
use C4::Members::AttributeTypes; |
28 |
use C4::Members::AttributeTypes; |
| 29 |
use C4::Members::Messaging; |
29 |
use C4::Members::Messaging; |
| 30 |
use C4::Dates; |
|
|
| 31 |
use C4::Auth qw(checkpw_internal); |
30 |
use C4::Auth qw(checkpw_internal); |
| 32 |
use Koha::AuthUtils qw(hash_password); |
31 |
use Koha::AuthUtils qw(hash_password); |
| 33 |
use List::MoreUtils qw( any ); |
32 |
use List::MoreUtils qw( any ); |
|
Lines 266-276
sub ldap_entry_2_hash {
Link Here
|
| 266 |
. substr($borrower{ 'surname' },0,1) |
265 |
. substr($borrower{ 'surname' },0,1) |
| 267 |
. " "); |
266 |
. " "); |
| 268 |
|
267 |
|
| 269 |
# Date and categorycode conversions |
268 |
# categorycode conversions |
| 270 |
$borrower{'dateexpiry'} = C4::Dates->new($borrower{'dateexpiry'},'sql')->output('iso') if $borrower{'dateexpiry'}; |
|
|
| 271 |
$borrower{'dateofbirth'} = C4::Dates->new($borrower{'dateofbirth'},'sql')->output('iso') if $borrower{'dateofbirth'}; |
| 272 |
$borrower{'dateenrolled'} = C4::Dates->new($borrower{'dateenrolled'},'sql')->output('iso') if $borrower{'dateenrolled'}; |
| 273 |
|
| 274 |
if(defined $categorycode_conversions{$borrower{categorycode}}) { |
269 |
if(defined $categorycode_conversions{$borrower{categorycode}}) { |
| 275 |
$borrower{categorycode} = $categorycode_conversions{$borrower{categorycode}}; |
270 |
$borrower{categorycode} = $categorycode_conversions{$borrower{categorycode}}; |
| 276 |
} |
271 |
} |
| 277 |
- |
|
|