<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
-return unless defined $cmid;
+print("</div>"), return
+ unless defined $cmid;
$someresults->();
#---------- actually compute the results and print them ----------
my $offers= $dbh->prepare(
"SELECT stallname, price, qty
- FROM $bs NATURAL JOIN stalls
+ FROM $bs JOIN stalls USING (stallid, islandid)
WHERE commodid = ? AND islandid = ?
ORDER BY price $ascdesc"
);
<%perl>
}
</%perl>
+</div>