[-
use SQL;
sql_connect("dbi:Pg:");
$item = $fdat{item} || "Something";
$reserve = $fdat{reserve} || 10;
$owner = $fdat{owner} || "anon";
sql_begin;
sql_select(from => id_seq, ["nextval('id_seq')" => \$id]);
sql_fetch;
sql_insert(into => "items", *id, *owner, *item, *reserve);
sql_commit;
-]
New item entered for auction
New item entered for auction
Thankyou, [+ $owner +], for submitting item [+ $item +] for auction.
The lot number for that item is [+ $id +].