Lines 208-220
for (my $i = 0 ; $i < $countpendings ; $i++) {
Link Here
|
208 |
$totalPqtyrcvd +=$line{quantityreceived}; |
208 |
$totalPqtyrcvd +=$line{quantityreceived}; |
209 |
$totalPecost += $line{ecost}; |
209 |
$totalPecost += $line{ecost}; |
210 |
$line{ecost} = sprintf("%.2f",$line{ecost}); |
210 |
$line{ecost} = sprintf("%.2f",$line{ecost}); |
211 |
$line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity}); |
211 |
$line{ordertotal} = PlaceCurrencySymbol(sprintf("%.2f",$line{ecost}*$line{quantity})); |
212 |
$line{unitprice} = sprintf("%.2f",$line{unitprice}); |
212 |
$line{unitprice} = PlaceCurrencySymbol(sprintf("%.2f",$line{unitprice})); |
213 |
$line{invoice} = $invoice; |
213 |
$line{invoice} = $invoice; |
214 |
$line{gst} = $gst; |
214 |
$line{gst} = $gst; |
215 |
$line{total} = $total; |
215 |
$line{total} = $total; |
216 |
$line{supplierid} = $supplierid; |
216 |
$line{supplierid} = $supplierid; |
217 |
$ordergrandtotal += $line{ecost} * $line{quantity}; |
217 |
$ordergrandtotal += $line{ecost} * $line{quantity}; |
|
|
218 |
$line{ecost} = PlaceCurrencySymbol($line{ecost}); |
218 |
|
219 |
|
219 |
my $biblionumber = $line{'biblionumber'}; |
220 |
my $biblionumber = $line{'biblionumber'}; |
220 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
221 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
Lines 299-315
$template->param(
Link Here
|
299 |
loop_received => \@loop_received, |
300 |
loop_received => \@loop_received, |
300 |
countpending => $countpendings, |
301 |
countpending => $countpendings, |
301 |
loop_orders => \@loop_orders, |
302 |
loop_orders => \@loop_orders, |
302 |
totalprice => sprintf($cfstr, $totalprice), |
303 |
totalprice => PlaceCurrencySymbol(sprintf($cfstr, $totalprice)), |
303 |
totalfreight => $totalfreight, |
304 |
totalfreight => $totalfreight, |
304 |
totalquantity => $totalquantity, |
305 |
totalquantity => $totalquantity, |
305 |
tototal => sprintf($cfstr, $tototal), |
306 |
tototal => PlaceCurrencySymbol(sprintf($cfstr, $tototal)), |
306 |
ordergrandtotal => sprintf($cfstr, $ordergrandtotal), |
307 |
ordergrandtotal => PlaceCurrencySymbol(sprintf($cfstr, $ordergrandtotal)), |
307 |
gst => $gst, |
308 |
gst => $gst, |
308 |
grandtot => sprintf($cfstr, $tototal + $gst), |
309 |
grandtot => PlaceCurrencySymbol(sprintf($cfstr, $tototal + $gst)), |
309 |
totalPunitprice => sprintf("%.2f", $totalPunitprice), |
310 |
totalPunitprice => PlaceCurrencySymbol(sprintf("%.2f", $totalPunitprice)), |
310 |
totalPquantity => $totalPquantity, |
311 |
totalPquantity => $totalPquantity, |
311 |
totalPqtyrcvd => $totalPqtyrcvd, |
312 |
totalPqtyrcvd => $totalPqtyrcvd, |
312 |
totalPecost => sprintf("%.2f", $totalPecost), |
313 |
totalPecost => PlaceCurrencySymbol(sprintf("%.2f", $totalPecost)), |
313 |
resultsperpage => $resultsperpage, |
314 |
resultsperpage => $resultsperpage, |
314 |
); |
315 |
); |
315 |
output_html_with_http_headers $input, $cookie, $template->output; |
316 |
output_html_with_http_headers $input, $cookie, $template->output; |