Lines 69-76
GetOptions(
Link Here
|
69 |
'category=s' => $borrower_category, |
69 |
'category=s' => $borrower_category, |
70 |
'skip-category=s' => $skip_borrower_category, |
70 |
'skip-category=s' => $skip_borrower_category, |
71 |
'list-categories' => \$list_categories, |
71 |
'list-categories' => \$list_categories, |
72 |
'itemtype=s' => $itemtype, |
72 |
'itemtype=s' => \$itemtype, |
73 |
'skip-itemtype=s' => $skip_itemtype, |
73 |
'skip-itemtype=s' => \$skip_itemtype, |
74 |
'list-itemtypes' => \$list_itemtypes, |
74 |
'list-itemtypes' => \$list_itemtypes, |
75 |
); |
75 |
); |
76 |
|
76 |
|
Lines 88-94
if ( $help ) {
Link Here
|
88 |
|
88 |
|
89 |
if ( scalar @$borrower_category && scalar @$skip_borrower_category) { |
89 |
if ( scalar @$borrower_category && scalar @$skip_borrower_category) { |
90 |
pod2usage( -verbose => 1, |
90 |
pod2usage( -verbose => 1, |
91 |
-message => "The options --category and --skip-category are mually exclusive.\n" |
91 |
-message => "The options --category and --skip-category are mutually exclusive.\n" |
92 |
. "Use one or the other.", |
92 |
. "Use one or the other.", |
93 |
-exitval => 1 |
93 |
-exitval => 1 |
94 |
); |
94 |
); |
95 |
- |
|
|