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

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

Return to bug 19532