my $sth4 = $dbh->prepare(

        if ( $amount ) { # Don't add new fines with an amount of 0

            "SELECT title FROM biblio LEFT JOIN items ON biblio.biblionumber=items.biblionumber WHERE items.itemnumber=?"

            my $sth4 = $dbh->prepare(

        );

                "SELECT title FROM biblio LEFT JOIN items ON biblio.biblionumber=items.biblionumber WHERE items.itemnumber=?"

        $sth4->execute($itemnum);

            );

        my $title = $sth4->fetchrow;

            $sth4->execute($itemnum);

            my $title = $sth4->fetchrow;

#         #   print "not in account";

#         my $sth3 = $dbh->prepare("Select max(accountno) from accountlines");

            my $nextaccntno = C4::Accounts::getnextacctno($borrowernumber);

#         $sth3->execute;

# 

            my $desc = ( $type ? "$type " : '' ) . "$title $due";    # FIXEDME, avoid whitespace prefix on empty $type

#         # FIXME - Make $accountno a scalar.

#         my @accountno = $sth3->fetchrow_array;

            my $query = "INSERT INTO accountlines

#         $sth3->finish;

                         (borrowernumber,itemnumber,date,amount,description,accounttype,amountoutstanding,lastincrement,accountno)

#         $accountno[0]++;

                         VALUES (?,?,now(),?,?,'FU',?,?,?)";

# begin transaction

            my $sth2 = $dbh->prepare($query);

		my $nextaccntno = C4::Accounts::getnextacctno($borrowernumber);

            $debug and print STDERR "UpdateFine query: $query\nw/ args: $borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno\n";

		my $desc = ($type ? "$type " : '') . "$title $due";	# FIXEDME, avoid whitespace prefix on empty $type

            $sth2->execute( $borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno );

		my $query = "INSERT INTO accountlines

        }

		    (borrowernumber,itemnumber,date,amount,description,accounttype,amountoutstanding,lastincrement,accountno)

			    VALUES (?,?,now(),?,?,'FU',?,?,?)";

		my $sth2 = $dbh->prepare($query);

		$debug and print STDERR "UpdateFine query: $query\nw/ args: $borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno\n";

        $sth2->execute($borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno);