# updates take place here

    # updates take place here

    if ( $fee > 0 ) {

    if ( $fee > 0 ) {

        my $nextacctno = &getnextacctno( $borrowernumber );

        my $nextacctno = &getnextacctno( $borrowernumber );

        INSERT INTO accountlines

        INSERT INTO accountlines

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

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

        VALUES

        VALUES

            (?,?,now(),?,?,'Res',?)

            (?,?,now(),?,?,'Res',?)

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

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

        $usth->execute( $borrowernumber, $nextacctno, $fee,

        $usth->execute( $borrowernumber, $nextacctno, $fee,

            "Reserve Charge - $title", $fee );

            "Reserve Charge - $title", $fee );

    }

    }

    #if ($const eq 'a'){

    #if ($const eq 'a'){

        INSERT INTO reserves

        INSERT INTO reserves

            (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,

            (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,

            priority,reservenotes,itemnumber,found,waitingdate,expirationdate)

            priority,reservenotes,itemnumber,found,waitingdate,expirationdate)

        VALUES

        VALUES

             (?,?,?,?,?,

             (?,?,?,?,?,

             ?,?,?,?,?,?)

             ?,?,?,?,?,?)

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

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

    $sth->execute(

    $sth->execute(

        $borrowernumber, $biblionumber, $resdate, $branch,

        $borrowernumber, $biblionumber, $resdate, $branch,

    #}

    #}

    ($const eq "o" || $const eq "e") or return;   # FIXME: why not have a useful return value?

    ($const eq "o" || $const eq "e") or return;   # FIXME: why not have a useful return value?

        INSERT INTO reserveconstraints

        INSERT INTO reserveconstraints

            (borrowernumber,biblionumber,reservedate,biblioitemnumber)

            (borrowernumber,biblionumber,reservedate,biblioitemnumber)

        VALUES

        VALUES

            (?,?,?,?)

            (?,?,?,?)

    $sth = $dbh->prepare($query);    # keep prepare outside the loop!

    $sth = $dbh->prepare($query);    # keep prepare outside the loop!

    foreach (@$bibitems) {

    foreach (@$bibitems) {

        $sth->execute($borrowernumber, $biblionumber, $resdate, $_);

        $sth->execute($borrowernumber, $biblionumber, $resdate, $_);

    #check for issues;

    #check for issues;

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

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

    my $const = lc substr( $constraint, 0, 1 );

    my $const = lc substr( $constraint, 0, 1 );

      SELECT * FROM borrowers

      SELECT * FROM borrowers

    LEFT JOIN categories ON borrowers.categorycode = categories.categorycode

    LEFT JOIN categories ON borrowers.categorycode = categories.categorycode

    WHERE borrowernumber = ?

    WHERE borrowernumber = ?

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

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

    $sth->execute($borrowernumber);

    $sth->execute($borrowernumber);

    my $data = $sth->fetchrow_hashref;

    my $data = $sth->fetchrow_hashref;

    # TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.

    # TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.

    # check for exact targetted match

    # check for exact targetted match

        SELECT reserves.biblionumber        AS biblionumber,

        SELECT reserves.biblionumber        AS biblionumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.reservedate         AS reservedate,

               reserves.reservedate         AS reservedate,

        AND reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

        AND reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

        AND suspend = 0

        AND suspend = 0

        ORDER BY priority

        ORDER BY priority

    my $sth = $dbh->prepare($item_level_target_query);

    my $sth = $dbh->prepare($item_level_target_query);

    $sth->execute($itemnumber, $lookahead||0);

    $sth->execute($itemnumber, $lookahead||0);

    my @results;

    my @results;

    return @results if @results;

    return @results if @results;

    # check for title-level targetted match

    # check for title-level targetted match

        SELECT reserves.biblionumber        AS biblionumber,

        SELECT reserves.biblionumber        AS biblionumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.reservedate         AS reservedate,

               reserves.reservedate         AS reservedate,

        AND reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

        AND reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

        AND suspend = 0

        AND suspend = 0

        ORDER BY priority

        ORDER BY priority

    $sth = $dbh->prepare($title_level_target_query);

    $sth = $dbh->prepare($title_level_target_query);

    $sth->execute($itemnumber, $lookahead||0);

    $sth->execute($itemnumber, $lookahead||0);

    @results = ();

    @results = ();

    }

    }

    return @results if @results;

    return @results if @results;

        SELECT reserves.biblionumber               AS biblionumber,

        SELECT reserves.biblionumber               AS biblionumber,

               reserves.borrowernumber             AS borrowernumber,

               reserves.borrowernumber             AS borrowernumber,

               reserves.reservedate                AS reservedate,

               reserves.reservedate                AS reservedate,

          AND reserves.reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

          AND reserves.reservedate <= DATE_ADD(NOW(),INTERVAL ? DAY)

          AND suspend = 0

          AND suspend = 0

          ORDER BY priority

          ORDER BY priority

    $sth = $dbh->prepare($query);

    $sth = $dbh->prepare($query);

    $sth->execute( $biblio, $bibitem, $itemnumber, $lookahead||0);

    $sth->execute( $biblio, $bibitem, $itemnumber, $lookahead||0);

    @results = ();

    @results = ();