|
Lines 123-131
foreach my $order (@$orders) {
Link Here
|
| 123 |
$foot{$$line{gstgsti}}{totalgsti} += $$line{totalgsti}; |
123 |
$foot{$$line{gstgsti}}{totalgsti} += $$line{totalgsti}; |
| 124 |
$total_gsti += $$line{totalgsti}; |
124 |
$total_gsti += $$line{totalgsti}; |
| 125 |
|
125 |
|
| 126 |
my %row = %{ $order, $line }; |
126 |
$line->{orderline} = $line->{parent_ordernumber}; |
| 127 |
$row{'orderline'} = $row{'parent_ordernumber'}; |
127 |
push @orders_loop, $line; |
| 128 |
push @orders_loop, \%row; |
|
|
| 129 |
} |
128 |
} |
| 130 |
|
129 |
|
| 131 |
push @foot_loop, map {$_} values %foot; |
130 |
push @foot_loop, map {$_} values %foot; |
| 132 |
- |
|
|