|
Lines 204-215
sub getalert {
Link Here
|
| 204 |
|
204 |
|
| 205 |
=head2 findrelatedto($type, $externalid) |
205 |
=head2 findrelatedto($type, $externalid) |
| 206 |
|
206 |
|
| 207 |
parameters : |
207 |
parameters : |
| 208 |
- $type : the type of alert |
208 |
- $type : the type of alert |
| 209 |
- $externalid : the id of the "object" to query |
209 |
- $externalid : the id of the "object" to query |
| 210 |
|
210 |
|
| 211 |
In the table alert, a "id" is stored in the externalid field. This "id" is related to another table, depending on the type of the alert. |
211 |
In the table alert, a "id" is stored in the externalid field. This "id" is related to another table, depending on the type of the alert. |
| 212 |
When type=issue, the id is related to a subscriptionid and this sub returns the name of the biblio. |
212 |
When type=issue, the id is related to a subscriptionid and this sub returns the name of the biblio. |
| 213 |
|
213 |
|
| 214 |
=cut |
214 |
=cut |
| 215 |
|
215 |
|
|
Lines 266-272
sub SendAlerts {
Link Here
|
| 266 |
my $borinfo = C4::Members::GetMember('borrowernumber' => $_->{'borrowernumber'}); |
266 |
my $borinfo = C4::Members::GetMember('borrowernumber' => $_->{'borrowernumber'}); |
| 267 |
my $email = $borinfo->{email} or next; |
267 |
my $email = $borinfo->{email} or next; |
| 268 |
|
268 |
|
| 269 |
# warn "sending issues..."; |
269 |
# warn "sending issues..."; |
| 270 |
my $userenv = C4::Context->userenv; |
270 |
my $userenv = C4::Context->userenv; |
| 271 |
my $branchdetails = GetBranchDetail($_->{'branchcode'}); |
271 |
my $branchdetails = GetBranchDetail($_->{'branchcode'}); |
| 272 |
my $letter = GetPreparedLetter ( |
272 |
my $letter = GetPreparedLetter ( |
| 273 |
- |
|
|