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

(-)a/C4/Overdues.pm (-2 / +2 lines)
Lines 109-122 sub Getoverdues { Link Here
109
    my $statement;
109
    my $statement;
110
    if ( C4::Context->preference('item-level_itypes') ) {
110
    if ( C4::Context->preference('item-level_itypes') ) {
111
        $statement = "
111
        $statement = "
112
   SELECT issues.*, items.itype as itemtype, items.homebranch, items.barcode
112
   SELECT issues.*, items.itype as itemtype, items.homebranch, items.barcode, items.itemlost
113
     FROM issues 
113
     FROM issues 
114
LEFT JOIN items       USING (itemnumber)
114
LEFT JOIN items       USING (itemnumber)
115
    WHERE date_due < NOW()
115
    WHERE date_due < NOW()
116
";
116
";
117
    } else {
117
    } else {
118
        $statement = "
118
        $statement = "
119
   SELECT issues.*, biblioitems.itemtype, items.itype, items.homebranch, items.barcode
119
   SELECT issues.*, biblioitems.itemtype, items.itype, items.homebranch, items.barcode, items.itemlost
120
     FROM issues 
120
     FROM issues 
121
LEFT JOIN items       USING (itemnumber)
121
LEFT JOIN items       USING (itemnumber)
122
LEFT JOIN biblioitems USING (biblioitemnumber)
122
LEFT JOIN biblioitems USING (biblioitemnumber)
(-)a/misc/cronjobs/fines.pl (+2 lines)
Lines 95-100 if ($filename) { Link Here
95
my $counted = 0;
95
my $counted = 0;
96
my $overdues = Getoverdues();
96
my $overdues = Getoverdues();
97
for my $overdue ( @{$overdues} ) {
97
for my $overdue ( @{$overdues} ) {
98
    next if $overdue->{itemlost};
99
98
    if ( !defined $overdue->{borrowernumber} ) {
100
    if ( !defined $overdue->{borrowernumber} ) {
99
        carp
101
        carp
100
"ERROR in Getoverdues : issues.borrowernumber IS NULL.  Repair 'issues' table now!  Skipping record.\n";
102
"ERROR in Getoverdues : issues.borrowernumber IS NULL.  Repair 'issues' table now!  Skipping record.\n";
(-)a/misc/cronjobs/staticfines.pl (-1 / +1 lines)
Lines 138-143 my ($tyear, $tmonth, $tday) = split( /-/, $today_iso ); Link Here
138
$today_days = Date_to_Days( $tyear, $tmonth, $tday );
138
$today_days = Date_to_Days( $tyear, $tmonth, $tday );
139
139
140
for ( my $i = 0 ; $i < scalar(@$data) ; $i++ ) {
140
for ( my $i = 0 ; $i < scalar(@$data) ; $i++ ) {
141
    next if $data->[$i]->{'itemlost'};
141
    my $datedue;
142
    my $datedue;
142
    my $datedue_days;
143
    my $datedue_days;
143
    eval {
144
    eval {
144
- 

Return to bug 11872