|
Lines 119-125
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
| 119 |
|
119 |
|
| 120 |
my $total = $subtotal; |
120 |
my $total = $subtotal; |
| 121 |
$query = qq{ |
121 |
$query = qq{ |
| 122 |
SELECT invoicenumber, shipmentcost |
122 |
SELECT invoiceid, invoicenumber, shipmentcost |
| 123 |
FROM aqinvoices |
123 |
FROM aqinvoices |
| 124 |
WHERE shipmentcost_budgetid = ? |
124 |
WHERE shipmentcost_budgetid = ? |
| 125 |
}; |
125 |
}; |
|
Lines 129-135
my @shipmentcosts;
Link Here
|
| 129 |
while (my $data = $sth->fetchrow_hashref) { |
129 |
while (my $data = $sth->fetchrow_hashref) { |
| 130 |
push @shipmentcosts, { |
130 |
push @shipmentcosts, { |
| 131 |
shipmentcost => sprintf("%.2f", $data->{shipmentcost}), |
131 |
shipmentcost => sprintf("%.2f", $data->{shipmentcost}), |
| 132 |
invoicenumber => $data->{invoicenumber} |
132 |
invoiceid => $data->{invoiceid}, |
|
|
133 |
invoicenumber => $data->{invoicenumber} |
| 133 |
}; |
134 |
}; |
| 134 |
$total += $data->{shipmentcost}; |
135 |
$total += $data->{shipmentcost}; |
| 135 |
} |
136 |
} |