% }
% {
-<& dumptable:start, sth => $sth &>
+<& dumptable:start, qa => $qa, sth => $sth &>
% my $flow;
% while ($flow= $sth->fetchrow_hashref()) {
% $flow->{Ix}= @flows;
% $flow->{Var}= "f$flow->{Ix}";
% push @flows, $flow;
-<& dumptable:row, sth => $sth, row => $flow &>
+<& dumptable:row, qa => $qa, sth => $sth, row => $flow &>
% }
-<& dumptable:end &>
+<& dumptable:end, qa => $qa &>
% }
% my $optimise= $specific && !$confusing && @islandids>1;