|
Lines 23-28
use C4::Context;
Link Here
|
| 23 |
use Koha::AuthUtils qw( get_script_name ); |
23 |
use Koha::AuthUtils qw( get_script_name ); |
| 24 |
use Koha::Database; |
24 |
use Koha::Database; |
| 25 |
use Koha::Patrons; |
25 |
use Koha::Patrons; |
|
|
26 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter ); |
| 26 |
use C4::Members::Messaging; |
27 |
use C4::Members::Messaging; |
| 27 |
use Carp qw( carp ); |
28 |
use Carp qw( carp ); |
| 28 |
use List::MoreUtils qw( any ); |
29 |
use List::MoreUtils qw( any ); |
|
Lines 134-141
sub _autocreate {
Link Here
|
| 134 |
} |
135 |
} |
| 135 |
|
136 |
|
| 136 |
my $patron = Koha::Patron->new( \%borrower )->store; |
137 |
my $patron = Koha::Patron->new( \%borrower )->store; |
| 137 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $patron->borrowernumber, categorycode => $patron->categorycode } ); |
138 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
| 138 |
|
139 |
{ |
|
|
140 |
borrowernumber => $patron->borrowernumber, |
| 141 |
categorycode => $patron->categorycode |
| 142 |
} |
| 143 |
); |
| 144 |
|
| 145 |
# Send welcome email if enabled |
| 146 |
if ( $config->{welcome} ) { |
| 147 |
my $emailaddr = $patron->notice_email_address; |
| 148 |
|
| 149 |
# if we manage to find a valid email address, send notice |
| 150 |
if ($emailaddr) { |
| 151 |
eval { |
| 152 |
my $letter = GetPreparedLetter( |
| 153 |
module => 'members', |
| 154 |
letter_code => 'WELCOME', |
| 155 |
branchcode => $patron->branchcode, |
| 156 |
, |
| 157 |
lang => $patron->lang || 'default', |
| 158 |
tables => { |
| 159 |
'branches' => $patron->branchcode, |
| 160 |
'borrowers' => $patron->borrowernumber, |
| 161 |
}, |
| 162 |
want_librarian => 1, |
| 163 |
) or return; |
| 164 |
|
| 165 |
my $message_id = EnqueueLetter( |
| 166 |
{ |
| 167 |
letter => $letter, |
| 168 |
borrowernumber => $patron->id, |
| 169 |
to_address => $emailaddr, |
| 170 |
message_transport_type => 'email' |
| 171 |
} |
| 172 |
); |
| 173 |
}; |
| 174 |
} |
| 175 |
} |
| 139 |
return ( 1, $patron->cardnumber, $patron->userid ); |
176 |
return ( 1, $patron->cardnumber, $patron->userid ); |
| 140 |
} |
177 |
} |
| 141 |
|
178 |
|
| 142 |
- |
|
|