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