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 |
- |
|
|