$addcols->({},
qw( org_qty org_price dst_qty dst_price
Margin unitprofit MaxQty
- ));
-$addcols->({ Total => 1 }, qw(
MaxCapital MaxProfit
));
$addcols->({}, qw(
OptQty
));
-$addcols->({ Total => 1 }, qw(
+$addcols->({ Total => 0 }, qw(
OptCapital OptProfit
));
% foreach my $ci (0..$#cols) {
% my $col= $cols[$ci];
% my $v= $flow->{$col->{Name}};
+% $col->{Total} += $v if defined $col->{Total};
% $v='' if !$col->{Text} && !$v;
<td <% $col->{Text} ? '' : 'align=right' %>><% $v |h %>
% }
% }
+<tr>
+<th>
+<th colspan=2>Total
+% foreach my $ci (2..$#cols) {
+% my $col= $cols[$ci];
+<td align=right>
+% if (defined $col->{Total}) {
+<% $col->{Total} |h %>
+% }
+% }
</table>
<input type=submit name=update value="Update">