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 |
- |
|
|