@@ -, +, @@ --- misc/cronjobs/longoverdue.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) --- a/misc/cronjobs/longoverdue.pl +++ a/misc/cronjobs/longoverdue.pl @@ -67,7 +67,7 @@ GetOptions( ); if ( $man ) { - pod2usage( -verbose => 2 + pod2usage( -verbose => 2 -exitval => 0 ); } @@ -79,16 +79,16 @@ if ( $help ) { } if ( scalar @$borrower_category && scalar @$skip_borrower_category) { - pod2usage( -verbose => 1, - -message => "The options --category and --skip-category are muually exclusive.\n" - . "Use one or the other.", + pod2usage( -verbose => 1, + -message => "The options --category and --skip-category are mually exclusive.\n" + . "Use one or the other.", -exitval => 1 ); } if ( $list_categories ) { my @categories = sort map { uc $_->[0] } @{ C4::Context->dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) }; - print "\nBorrowrer Categories: " . join( " ", @categories ) . "\n\n"; + print "\nBorrowrer Categories: " . join( " ", @categories ) . "\n\n"; exit 0; } @@ -97,7 +97,7 @@ if ( $list_categories ) { longoverdue.pl [ --help | -h | --man | --list-categories ] longoverdue.pl --lost | -l DAYS=LOST_CODE [ --charge | -c CHARGE_CODE ] [ --verbose | -v ] [ --quiet ] [ --maxdays MAX_DAYS ] [ --mark-returned ] [ --category BORROWER_CATEGORY ] ... - [ --skip-category BORROWER_CATEGOERY ] ... + [ --skip-category BORROWER_CATEGORY ] ... [ --commit ] @@ -145,13 +145,13 @@ When an item is marked lost, remove it from the borrowers issued items. =item B<--category> -Act on the listed borrower category code (borrowers.categorycode). +Act on the listed borrower category code (borrowers.categorycode). Exclude all others. This may be specified multiple times to include multiple categories. May not be used with B<--skip-category> =item B<--skip-category> -Act on all available borrower category codes, except those listed. +Act on all available borrower category codes, except those listed. This may be specified multiple times, to exclude multiple categories. May not be used with B<--category> @@ -268,7 +268,7 @@ sub check_user_categories { pod2usage( '-verbose' => 1 , '-exitval' => 1 , '-message' => $error - ); + ); } } --