From 8a43835230a4f6d0e28e48ab942bf790d8f79b86 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 12 Oct 2015 11:15:33 +0100 Subject: [PATCH] Bug 14292: QA fixes - wording and trailing whitespaces Signed-off-by: Barton Chittenden Signed-off-by: Jonathan Druart --- misc/cronjobs/longoverdue.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl index 7a44b1e..aa9fc13 100755 --- a/misc/cronjobs/longoverdue.pl +++ b/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 - ); + ); } } -- 2.1.0