-#!/usr/bin/perl -w
+#!/usr/bin/perl
#-----------------------------------
# Copyright 2008 LibLime
#
use Getopt::Long;
my $lost; # key=lost value, value=num days.
-my ($charge, $verbose, $confirm);
+my ($charge, $verbose, $confirm, $quiet);
my $endrange = 366; # FIXME hardcoded - don't deal with anything overdue by more than this num days.
GetOptions(
'c|charge=s' => \$charge,
'confirm' => \$confirm,
'verbose' => \$verbose,
+ 'quiet' => \$quiet,
);
my $usage = << 'ENDUSAGE';
patrons for them!
WARNING: This script is known to be faulty. It is NOT recommended to use multiple --lost options.
- See http://bugs.koha.org/cgi-bin/bugzilla/show_bug.cgi?id=2881
+ See http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2883
ENDUSAGE
}
}
-print "\n### LONGOVERDUE SUMMARY ###";
-summarize (\@report, 1);
-print "\nTOTAL: $total items\n";
+if (!$quiet){
+ print "\n### LONGOVERDUE SUMMARY ###";
+ summarize (\@report, 1);
+ print "\nTOTAL: $total items\n";
+}