# Find and correct pathological cases of LR

    # Find and correct pathalogical cases of L having been converted to W

    $sth = $dbh->prepare( "SELECT accountlines_id, issue_id, borrowernumber, itemnumber, amount, manager_id FROM accountlines WHERE accounttype = 'W' AND itemnumber IS NOT NULL" );

    $sth->execute();

    while ( my $row = $sth->fetchrow_hashref ) {

        my $amount = $row->{amount} * -1;

        $dbh->do(

"INSERT INTO accountlines (accounttype, status, issue_id, borrowernumber, itemnumber, amount, manager_id) VALUES ( ?, ?, ?, ?, ?, ? );",

            {},

            (

                'LOST', 'WAIVERED', $row->{issue_id}, $row->{borrowernumber},

                $row->{itemnumber}, $amount, $row->{manager_id}

            )

        );

        my $debit_id = $dbh->last_insert_id();

        $dbh->do("INSERT INTO account_offsets (credit_id, debit_id, type, amount) VALUES (?,?,?,?);",{},($row->{accountlines_id}, $debit_id, 'Lost Item Returned', $amount));

    }

    $dbh->do(qq{

        UPDATE

          accountlines

        SET

          accounttype = 'LOST',

          status = 'UNRETURNED'

        WHERE

          accounttype = 'L'

        AND

          amountoutstanding > 0;

    });

    $dbh->do(qq{

        UPDATE

          accountlines

        SET

          accounttype = 'LOST',

          status = 'PAID'

        WHERE

          accounttype = 'L'

        AND

          amountoutstanding = 0;

    });