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

(-)a/C4/Accounts.pm (-1 / +1 lines)
Lines 316-322 sub chargelostitem{ Link Here
316
        # FIXME: Log this ?
316
        # FIXME: Log this ?
317
        }
317
        }
318
        #FIXME : Should probably have a way to distinguish this from an item that really was returned.
318
        #FIXME : Should probably have a way to distinguish this from an item that really was returned.
319
        warn " $issues->{'borrowernumber'}  /  $itemnumber ";
319
        #warn " $issues->{'borrowernumber'}  /  $itemnumber ";
320
        C4::Circulation::MarkIssueReturned($issues->{borrowernumber},$itemnumber);
320
        C4::Circulation::MarkIssueReturned($issues->{borrowernumber},$itemnumber);
321
	#  Shouldn't MarkIssueReturned do this?
321
	#  Shouldn't MarkIssueReturned do this?
322
        C4::Items::ModItem({ onloan => undef }, undef, $itemnumber);
322
        C4::Items::ModItem({ onloan => undef }, undef, $itemnumber);
(-)a/misc/cronjobs/longoverdue.pl (-5 / +7 lines)
Lines 39-45 use C4::Accounts; Link Here
39
use Getopt::Long;
39
use Getopt::Long;
40
40
41
my  $lost;  #  key=lost value,  value=num days.
41
my  $lost;  #  key=lost value,  value=num days.
42
my ($charge, $verbose, $confirm);
42
my ($charge, $verbose, $confirm, $quiet);
43
my $endrange = 366;  # FIXME hardcoded - don't deal with anything overdue by more than this num days.
43
my $endrange = 366;  # FIXME hardcoded - don't deal with anything overdue by more than this num days.
44
44
45
GetOptions( 
45
GetOptions( 
Lines 47-52 GetOptions( Link Here
47
    'c|charge=s' => \$charge,
47
    'c|charge=s' => \$charge,
48
    'confirm'    => \$confirm,
48
    'confirm'    => \$confirm,
49
    'verbose'    => \$verbose,
49
    'verbose'    => \$verbose,
50
    'quiet'      => \$quiet,
50
);
51
);
51
52
52
my $usage = << 'ENDUSAGE';
53
my $usage = << 'ENDUSAGE';
Lines 184-189 sub summarize ($$) { Link Here
184
    }
185
    }
185
}
186
}
186
187
187
print "\n### LONGOVERDUE SUMMARY ###";
188
if (!$quiet){
188
summarize (\@report, 1);
189
    print "\n### LONGOVERDUE SUMMARY ###";
189
print "\nTOTAL: $total items\n";
190
    summarize (\@report, 1);
191
    print "\nTOTAL: $total items\n";
192
}
190
- 

Return to bug 5857