|
Lines 177-183
sub notify_owner {
Link Here
|
| 177 |
); |
177 |
); |
| 178 |
|
178 |
|
| 179 |
#send letter to queue |
179 |
#send letter to queue |
| 180 |
C4::Letters::EnqueueLetter( |
180 |
my $message_id = C4::Letters::EnqueueLetter( |
| 181 |
{ |
181 |
{ |
| 182 |
letter => $letter, |
182 |
letter => $letter, |
| 183 |
message_transport_type => 'email', |
183 |
message_transport_type => 'email', |
|
Lines 185-190
sub notify_owner {
Link Here
|
| 185 |
to_address => $toaddr, |
185 |
to_address => $toaddr, |
| 186 |
} |
186 |
} |
| 187 |
); |
187 |
); |
|
|
188 |
C4::Letters::SendQueuedMessages({ message_id => $message_id }); |
| 188 |
} |
189 |
} |
| 189 |
|
190 |
|
| 190 |
sub process_addrlist { |
191 |
sub process_addrlist { |
|
Lines 246-252
sub send_invitekey {
Link Here
|
| 246 |
); |
247 |
); |
| 247 |
|
248 |
|
| 248 |
#send letter to queue |
249 |
#send letter to queue |
| 249 |
C4::Letters::EnqueueLetter( |
250 |
my $message_id = C4::Letters::EnqueueLetter( |
| 250 |
{ |
251 |
{ |
| 251 |
letter => $letter, |
252 |
letter => $letter, |
| 252 |
message_transport_type => 'email', |
253 |
message_transport_type => 'email', |
|
Lines 254-259
sub send_invitekey {
Link Here
|
| 254 |
to_address => $a, |
255 |
to_address => $a, |
| 255 |
} |
256 |
} |
| 256 |
); |
257 |
); |
|
|
258 |
C4::Letters::SendQueuedMessages({ message_id => $message_id }) |
| 257 |
} |
259 |
} |
| 258 |
$param->{appr_addr} = \@ok; |
260 |
$param->{appr_addr} = \@ok; |
| 259 |
} |
261 |
} |
| 260 |
- |
|
|