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

(-)a/misc/cronjobs/overdue_notices.pl (-4 / +3 lines)
Lines 350-356 if ( defined $csvfilename ) { Link Here
350
    } else {
350
    } else {
351
        open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!";
351
        open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!";
352
    }
352
    }
353
    if ( $csv->combine(qw(name surname address1 address2 zipcode city country email itemcount itemsinfo)) ) {
353
    if ( $csv->combine(qw(name surname address1 address2 zipcode city email itemcount itemsinfo)) ) {
354
        print $csv_fh $csv->string, "\n";
354
        print $csv_fh $csv->string, "\n";
355
    } else {
355
    } else {
356
        $verbose and warn 'combine failed on argument: ' . $csv->error_input;
356
        $verbose and warn 'combine failed on argument: ' . $csv->error_input;
Lines 445-451 END_SQL Link Here
445
            # <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode>
445
            # <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode>
446
446
447
            my $borrower_sql = <<'END_SQL';
447
            my $borrower_sql = <<'END_SQL';
448
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email
448
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, email
449
FROM   issues,borrowers,categories
449
FROM   issues,borrowers,categories
450
WHERE  issues.borrowernumber=borrowers.borrowernumber
450
WHERE  issues.borrowernumber=borrowers.borrowernumber
451
AND    borrowers.categorycode=categories.categorycode
451
AND    borrowers.categorycode=categories.categorycode
Lines 474-480 END_SQL Link Here
474
            $verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows";
474
            $verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows";
475
475
476
            while ( my ( $borrowernumber, $firstname, $lastname,
476
            while ( my ( $borrowernumber, $firstname, $lastname,
477
                    $address1, $address2, $city, $postcode, $country, $email
477
                    $address1, $address2, $city, $postcode, $email
478
                    ) = $sth->fetchrow )
478
                    ) = $sth->fetchrow )
479
            {
479
            {
480
                $verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i.";
480
                $verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i.";
481
- 

Return to bug 9104