[-
use SQL;
sql_connect("dbi:Pg:");
$target = $fdat{id};
sql_select(*bidder, *id, *amount,
from => "bids",
"amount = (select max(amount) from bids where id = $target)",
"and amount > (select reserve from items where id = $target)");
-]
Successful bidder(s) for lot [+ $target +]
Successful bidder(s) for lot [+ $target +]
| Bidder | Amount |
|---|
[$ while sql_fetch $]
| [+ $bidder +] | [+ $amount +] |
[$ endwhile $]
[$ if $fdat{remove} $]
[-
sql_delete(from => "bids", id => $target);
sql_delete(from => "items", id => $target);
-]
The item has been removed from the list.
[$ else $]
(The item has been left in the list.)
[$ endif $]