|
Lines 307-313
sub SendAlerts {
Link Here
|
| 307 |
# search the biblionumber |
307 |
# search the biblionumber |
| 308 |
my $strsth = $type eq 'claimacquisition' |
308 |
my $strsth = $type eq 'claimacquisition' |
| 309 |
? qq{ |
309 |
? qq{ |
| 310 |
SELECT aqorders.*,aqbasket.*,biblio.*,biblioitems.*,aqbooksellers.* |
310 |
SELECT aqorders.*,aqbasket.*,biblio.*,biblioitems.*,aqbooksellers.*, |
|
|
311 |
aqbooksellers.id AS booksellerid |
| 311 |
FROM aqorders |
312 |
FROM aqorders |
| 312 |
LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno |
313 |
LEFT JOIN aqbasket ON aqbasket.basketno=aqorders.basketno |
| 313 |
LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber |
314 |
LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber |
|
Lines 316-322
sub SendAlerts {
Link Here
|
| 316 |
WHERE aqorders.ordernumber IN ( |
317 |
WHERE aqorders.ordernumber IN ( |
| 317 |
} |
318 |
} |
| 318 |
: qq{ |
319 |
: qq{ |
| 319 |
SELECT serial.*,subscription.*, biblio.*, aqbooksellers.* |
320 |
SELECT serial.*,subscription.*, biblio.*, aqbooksellers.*, |
|
|
321 |
aqbooksellers.id AS booksellerid |
| 320 |
FROM serial |
322 |
FROM serial |
| 321 |
LEFT JOIN subscription ON serial.subscriptionid=subscription.subscriptionid |
323 |
LEFT JOIN subscription ON serial.subscriptionid=subscription.subscriptionid |
| 322 |
LEFT JOIN biblio ON serial.biblionumber=biblio.biblionumber |
324 |
LEFT JOIN biblio ON serial.biblionumber=biblio.biblionumber |
|
Lines 356-362
sub SendAlerts {
Link Here
|
| 356 |
|
358 |
|
| 357 |
# ... then send mail |
359 |
# ... then send mail |
| 358 |
my %mail = ( |
360 |
my %mail = ( |
| 359 |
To => join( ','. @email), |
361 |
To => join( ',', @email), |
| 360 |
From => $userenv->{emailaddress}, |
362 |
From => $userenv->{emailaddress}, |
| 361 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
363 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
| 362 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |
364 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |