sub check_user_categories {

my $dbh = C4::Context->dbh;

my @available_categories = map { uc $_->[0] } @{ $dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) };

    my $categories      = shift;

my %category_to_process;

    my $test_categories = shift;

for my $cat ( @$borrower_category ) {

    my $category_label  = shift;

    unless ( grep { /^$cat$/ } @available_categories ) {

    my %good            = map { $_ => 1 } @$categories;

        pod2usage(

    my @bad_categories  = grep { ! $good{ uc $_ } } @$test_categories;

            '-exitval' => 1,

            '-message' => "The category $cat does not exist in the database",

    if ( scalar @bad_categories ) {

        );

        my $error = "$category_label: category/categories '"

                    . join( ' ',  @bad_categories )

                    . "' not in the available borrower cateogories: [ "

                    . join( ' ', @$categories )

                    . " ]";

        pod2usage(  '-verbose' => 1

                  , '-exitval' => 1

                  , '-message' => $error

                 );

if ( @$skip_borrower_category ) {

# returns a hash of borrower category codes to test for long-overdue-ness.

    for my $cat ( @$skip_borrower_category ) {

# The key is the borrower category, upper case. The value is 1. This

        unless ( grep { /^$cat$/ } @available_categories ) {

# will make a fast look-up of valid borrower category codes.

            pod2usage(

sub get_borrower_categories {

                '-exitval' => 1,

    my ( $borrower_category, $skip_borrower_category ) = ( @_ );

                '-message' => "The category $cat does not exist in the database",

            );

    return () unless ( scalar @$borrower_category || scalar @$skip_borrower_category );

        }

    my $dbh = C4::Context->dbh;

    my @categories = map { uc $_->[0] } @{ $dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) };

    if( @$borrower_category ) {

        check_user_categories( \@categories, $borrower_category, "--category" );

        my %borcat  = map { ( uc($_) => 1 ) } @$borrower_category;

        @categories = grep { $borcat{$_} } @categories;

    }

    if( @$skip_borrower_category ) {

        check_user_categories( \@categories, $skip_borrower_category, "--skip-category" );

        my %skip_borcat  = map { ( uc($_) => 1 ) } @$skip_borrower_category;

        @categories = grep { ! $skip_borcat{$_} } @categories;

    return map { $_ => 1 } @categories;

    %category_to_process = map { $_ => 1 } @available_categories;

    %category_to_process = ( %category_to_process, map { $_ => 0 } @$skip_borrower_category );