|
Lines 72-77
use Modern::Perl;
Link Here
|
| 72 |
use C4::Context; |
72 |
use C4::Context; |
| 73 |
use C4::Members; |
73 |
use C4::Members; |
| 74 |
use C4::Members::AttributeTypes; |
74 |
use C4::Members::AttributeTypes; |
|
|
75 |
use C4::Members::Messaging; |
| 75 |
use C4::Output::XMLStream; |
76 |
use C4::Output::XMLStream; |
| 76 |
use C4::Service; |
77 |
use C4::Service; |
| 77 |
|
78 |
|
|
Lines 313-317
sub create_borrower {
Link Here
|
| 313 |
$dbh->rollback; |
314 |
$dbh->rollback; |
| 314 |
die "Failed to create borrower record: $@\n"; |
315 |
die "Failed to create borrower record: $@\n"; |
| 315 |
} |
316 |
} |
|
|
317 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
| 318 |
{ |
| 319 |
borrowernumber => $borr_num, |
| 320 |
categorycode => $borr_fields->{categorycode} |
| 321 |
} |
| 322 |
); |
| 316 |
return $borr_num; |
323 |
return $borr_num; |
| 317 |
} |
324 |
} |
| 318 |
- |
|
|