<h1>Commodity enquiry</h1>
% $prselector->('BuySell');
+% $prselector->('ShowBlank');
%#---------- textbox, user enters route as string ----------
% if (!$qa->{Dropdowns}) {
my ($ascdesc) = ($bs eq 'buy')
? ('DESC')
: ('ASC');
-#INNER JOIN
+ my $joinkind= $ARGS{ShowBlank} eq 'show'
+ ? 'LEFT OUTER JOIN' : 'INNER JOIN';
my $islands= $dbh->prepare(
"SELECT islands.islandid AS islandid, archipelago, islandname,
sum(qty) as tqty
- FROM islands LEFT OUTER JOIN $bs offers
+ FROM islands $joinkind $bs offers
ON islands.islandid == offers.islandid AND commodid == ?
GROUP BY islands.islandid,
ORDER BY archipelago, islandname"