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