{

        {

            borrowernumber => $borrowernumber,

            borrowernumber => $borrowernumber,

            itemnumber     => $item,

            itemnumber     => $item,

        }

        }

    )->next();

    )->next();

    return 0 unless $accountline;    # no warning, there's just nothing to fix

    return 0 unless $accountline;    # no warning, there's just nothing to fix

    #   "A"   is Account Management Fee

    #   "A"   is Account Management Fee

    #   "N"   is New Card

    #   "N"   is New Card

    #   "M"   is Sundry

    #   "M"   is Sundry

    #   "F"   is Fine ??

    #   "F"   is Fine ??

    #   "FU"  is Fine UPDATE??

    #   "FU"  is Fine UPDATE??

    #   "Pay" is Payment

    #   "Pay" is Payment

    my $sth = $dbh->prepare(

    my $sth = $dbh->prepare(

        "SELECT * FROM accountlines

        "SELECT * FROM accountlines

        WHERE borrowernumber=? AND

        WHERE borrowernumber=? AND

           accounttype = 'FU' )"

           accounttype = 'FU' )"

    );

    );

    $sth->execute( $borrowernumber );

    $sth->execute( $borrowernumber );

  - processing

  - processing

  - rent

  - rent

  - reserve

  - reserve

  - manual

  - manual

=cut

=cut

    'processing'    => 'PF',

    'processing'    => 'PF',

    'rent'          => 'Rent',

    'rent'          => 'Rent',

    'reserve'       => 'Res',

    'reserve'       => 'Res',

    'manual_debit'  => 'M',

    'manual_debit'  => 'M',

    'hold_expired'  => 'HE'

    'hold_expired'  => 'HE'

};

};

my $sth = $dbh->prepare("

my $sth = $dbh->prepare("

SELECT accountlines_id, description

SELECT accountlines_id, description

  FROM accountlines

  FROM accountlines

;");

;");

$sth->execute();

$sth->execute();