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, |