|
Lines 96-103
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
| 96 |
my $recv = $data->{'quantityreceived'}; |
96 |
my $recv = $data->{'quantityreceived'}; |
| 97 |
if ( $recv > 0 ) { |
97 |
if ( $recv > 0 ) { |
| 98 |
my $rowtotal = $recv * $data->{'unitprice'}; |
98 |
my $rowtotal = $recv * $data->{'unitprice'}; |
| 99 |
$data->{'rowtotal'} = sprintf( "%.2f", $rowtotal ); |
99 |
$data->{'rowtotal'} = $rowtotal; |
| 100 |
$data->{'unitprice'} = sprintf( "%.2f", $data->{'unitprice'} ); |
|
|
| 101 |
$subtotal += $rowtotal; |
100 |
$subtotal += $rowtotal; |
| 102 |
push @spent, $data; |
101 |
push @spent, $data; |
| 103 |
} |
102 |
} |
|
Lines 115-121
$sth->execute($bookfund);
Link Here
|
| 115 |
my @shipmentcosts; |
114 |
my @shipmentcosts; |
| 116 |
while (my $data = $sth->fetchrow_hashref) { |
115 |
while (my $data = $sth->fetchrow_hashref) { |
| 117 |
push @shipmentcosts, { |
116 |
push @shipmentcosts, { |
| 118 |
shipmentcost => sprintf("%.2f", $data->{shipmentcost}), |
117 |
shipmentcost => $data->{shipmentcost}, |
| 119 |
invoicenumber => $data->{invoicenumber} |
118 |
invoicenumber => $data->{invoicenumber} |
| 120 |
}; |
119 |
}; |
| 121 |
$total += $data->{shipmentcost}; |
120 |
$total += $data->{shipmentcost}; |
|
Lines 127-134
while ( my $adj = $adjustments->next ){
Link Here
|
| 127 |
$total += $adj->adjustment; |
126 |
$total += $adj->adjustment; |
| 128 |
} |
127 |
} |
| 129 |
|
128 |
|
| 130 |
$total = sprintf( "%.2f", $total ); |
|
|
| 131 |
|
| 132 |
$template->param( |
129 |
$template->param( |
| 133 |
fund => $bookfund, |
130 |
fund => $bookfund, |
| 134 |
spent => \@spent, |
131 |
spent => \@spent, |