View | Details | Raw Unified | Return to bug 9530
Collapse All | Expand All

(-)a/C4/Letters.pm (-8 / +7 lines)
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
- 

Return to bug 9530