Lines 426-432
END_SQL
Link Here
|
426 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
426 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
427 |
|
427 |
|
428 |
my $borrower_sql = <<'END_SQL'; |
428 |
my $borrower_sql = <<'END_SQL'; |
429 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email, date_due |
429 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email |
430 |
FROM issues,borrowers,categories |
430 |
FROM issues,borrowers,categories |
431 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
431 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
432 |
AND borrowers.categorycode=categories.categorycode |
432 |
AND borrowers.categorycode=categories.categorycode |
Lines 442-451
END_SQL
Link Here
|
442 |
} |
442 |
} |
443 |
$borrower_sql .= ' AND categories.overduenoticerequired=1 '; |
443 |
$borrower_sql .= ' AND categories.overduenoticerequired=1 '; |
444 |
if($triggered) { |
444 |
if($triggered) { |
445 |
$borrower_sql .= ' HAVING TO_DAYS(NOW())-TO_DAYS(date_due) = ?'; |
445 |
$borrower_sql .= ' AND TO_DAYS(NOW())-TO_DAYS(date_due) = ?'; |
446 |
push @borrower_parameters, $mindays; |
446 |
push @borrower_parameters, $mindays; |
447 |
} else { |
447 |
} else { |
448 |
$borrower_sql .= ' HAVING TO_DAYS(NOW())-TO_DAYS(date_due) BETWEEN ? and ? ' ; |
448 |
$borrower_sql .= ' AND TO_DAYS(NOW())-TO_DAYS(date_due) BETWEEN ? and ? ' ; |
449 |
push @borrower_parameters, $mindays, $maxdays; |
449 |
push @borrower_parameters, $mindays, $maxdays; |
450 |
} |
450 |
} |
451 |
|
451 |
|
Lines 455-462
END_SQL
Link Here
|
455 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
455 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
456 |
|
456 |
|
457 |
while ( my ( $borrowernumber, $firstname, $lastname, |
457 |
while ( my ( $borrowernumber, $firstname, $lastname, |
458 |
$address1, $address2, $city, $postcode, $country, $email, |
458 |
$address1, $address2, $city, $postcode, $country, $email |
459 |
$date_due ) = $sth->fetchrow ) |
459 |
) = $sth->fetchrow ) |
460 |
{ |
460 |
{ |
461 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
461 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
462 |
|
462 |
|
463 |
- |
|
|