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

(-)a/misc/cronjobs/overdue_notices.pl (-6 / +10 lines)
Lines 466-471 foreach my $branchcode (@branches) { Link Here
466
      || $library->inbound_email_address;
466
      || $library->inbound_email_address;
467
    my @output_chunks;    # may be sent to mail or stdout or csv file.
467
    my @output_chunks;    # may be sent to mail or stdout or csv file.
468
468
469
    $verbose and print "======================================\n";
469
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $branch_email_address;
470
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $branch_email_address;
470
471
471
    my $sql2 = <<"END_SQL";
472
    my $sql2 = <<"END_SQL";
Lines 520-528 END_SQL Link Here
520
            next unless defined $mindays;
521
            next unless defined $mindays;
521
522
522
            if ( !$overdue_rules->{"letter$i"} ) {
523
            if ( !$overdue_rules->{"letter$i"} ) {
523
                $verbose and warn "No letter$i code for branch '$branchcode'";
524
                $verbose and warn sprintf "No letter code found for pass %s\n", $i;
524
                next PERIOD;
525
                next PERIOD;
525
            }
526
            }
527
            $verbose and warn sprintf "Using letter code '%s' for pass %s\n", $overdue_rules->{"letter$i"}, $i;
526
528
527
            # $letter->{'content'} is the text of the mail that is sent.
529
            # $letter->{'content'} is the text of the mail that is sent.
528
            # this text contains fields that are replaced by their value. Those fields must be written between brackets
530
            # this text contains fields that are replaced by their value. Those fields must be written between brackets
Lines 558-564 END_SQL Link Here
558
            my $sth = $dbh->prepare($borrower_sql);
560
            my $sth = $dbh->prepare($borrower_sql);
559
            $sth->execute(@borrower_parameters);
561
            $sth->execute(@borrower_parameters);
560
562
561
            $verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays, ".  $date_to_run->datetime() .")\nreturns " . $sth->rows . " rows";
563
            if ( $verbose > 1 ){
564
                warn sprintf "--------Borrower SQL------\n";
565
                warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays, ".  $date_to_run->datetime() .")\n";
566
                warn sprintf "--------------------------\n";
567
            }
568
            $verbose and warn sprintf "Found %s borrowers with overdues\n", $sth->rows;
562
            my $borrowernumber;
569
            my $borrowernumber;
563
            while ( my $data = $sth->fetchrow_hashref ) {
570
            while ( my $data = $sth->fetchrow_hashref ) {
564
571
Lines 598-605 END_SQL Link Here
598
                    $data->{'firstname'} && $data->{'surname'} ? ', ' : '',
605
                    $data->{'firstname'} && $data->{'surname'} ? ', ' : '',
599
                    $data->{'firstname'} || '',
606
                    $data->{'firstname'} || '',
600
                    $borrowernumber );
607
                    $borrowernumber );
601
                $verbose
608
                $verbose and warn "borrower $borr has items triggering level $i.\n";
602
                  and warn "borrower $borr has items triggering level $i.";
603
609
604
                my $patron = Koha::Patrons->find( $borrowernumber );
610
                my $patron = Koha::Patrons->find( $borrowernumber );
605
                @emails_to_use = ();
611
                @emails_to_use = ();
Lines 645-651 END_SQL Link Here
645
                    $verbose and warn "debarring $borr\n";
651
                    $verbose and warn "debarring $borr\n";
646
                }
652
                }
647
                my @params = ($borrowernumber,$branchcode);
653
                my @params = ($borrowernumber,$branchcode);
648
                $verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber";
649
654
650
                $sth2->execute(@params);
655
                $sth2->execute(@params);
651
                my $itemcount = 0;
656
                my $itemcount = 0;
652
- 

Return to bug 28555