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

(-)a/misc/cronjobs/overdue_notices.pl (-2 / +11 lines)
Lines 44-49 use Koha::Calendar; Link Here
44
use Koha::Libraries;
44
use Koha::Libraries;
45
use Koha::Acquisition::Currencies;
45
use Koha::Acquisition::Currencies;
46
use Koha::Patrons;
46
use Koha::Patrons;
47
use Koha::Recalls;
47
48
48
=head1 NAME
49
=head1 NAME
49
50
Lines 404-409 if ( defined $csvfilename ) { Link Here
404
    } else {
405
    } else {
405
        open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!";
406
        open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!";
406
    }
407
    }
408
407
    if ( $csv->combine(qw(name surname address1 address2 zipcode city country email phone cardnumber itemcount itemsinfo branchname letternumber)) ) {
409
    if ( $csv->combine(qw(name surname address1 address2 zipcode city country email phone cardnumber itemcount itemsinfo branchname letternumber)) ) {
408
        print $csv_fh $csv->string, "\n";
410
        print $csv_fh $csv->string, "\n";
409
    } else {
411
    } else {
Lines 472-477 SELECT biblio.*, items.*, issues.*, biblioitems.itemtype, branchname Link Here
472
    AND TO_DAYS($date)-TO_DAYS(issues.date_due) >= 0
474
    AND TO_DAYS($date)-TO_DAYS(issues.date_due) >= 0
473
END_SQL
475
END_SQL
474
476
477
475
    my $query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = ? ";
478
    my $query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = ? ";
476
    $query .= " AND categorycode IN (".join( ',' , ('?') x @myborcat ).") " if (@myborcat);
479
    $query .= " AND categorycode IN (".join( ',' , ('?') x @myborcat ).") " if (@myborcat);
477
    $query .= " AND categorycode NOT IN (".join( ',' , ('?') x @myborcatout ).") " if (@myborcatout);
480
    $query .= " AND categorycode NOT IN (".join( ',' , ('?') x @myborcatout ).") " if (@myborcatout);
Lines 624-630 END_SQL Link Here
624
                my $itemcount = 0;
627
                my $itemcount = 0;
625
                my $titles = "";
628
                my $titles = "";
626
                my @items = ();
629
                my @items = ();
627
                
630
628
                my $j = 0;
631
                my $j = 0;
629
                my $exceededPrintNoticesMaxLines = 0;
632
                my $exceededPrintNoticesMaxLines = 0;
630
                while ( my $item_info = $sth2->fetchrow_hashref() ) {
633
                while ( my $item_info = $sth2->fetchrow_hashref() ) {
Lines 671-676 END_SQL Link Here
671
                }
674
                }
672
                $sth2->finish;
675
                $sth2->finish;
673
676
677
                foreach my $item (@items) {
678
                    my $recall = Koha::Recalls->find({ itemnumber => $item->{itemnumber} });
679
                    if (defined $recall){
680
                        $recall->update({ status => 'O' });
681
                    }
682
                }
683
674
                my @message_transport_types = @{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i) };
684
                my @message_transport_types = @{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i) };
675
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
685
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
676
                    unless @message_transport_types;
686
                    unless @message_transport_types;
677
- 

Return to bug 19532