my $subtotal_for_funds;
for my $order ( @orders ) {
$order->{'unitprice'} += 0;
+ $order->{'booksellerid'} = $booksellerid; # required for basket group links
my $order_object = Koha::Acquisition::Orders->find($order->{ordernumber});
if ( $bookseller->invoiceincgst ) {
$order->{unitprice} = $order->{unitprice_tax_excluded};
}
- $order->{total} = $order->{unitprice} * $order->{quantity};
+ $order->{total} = get_rounded_price($order->{unitprice}) * $order->{quantity};
my %line = %{ $order };
$line{invoice} = $invoice->{invoicenumber};
- my @itemnumbers = $order_object->items->get_column('itemnumbers');
+ my @itemnumbers = $order_object->items->get_column('itemnumber');
my $biblio = Koha::Biblios->find( $line{biblionumber} );
$line{total_holds} = $biblio ? $biblio->holds->count : 0;
$line{item_holds} = $biblio ? $biblio->current_holds->search(
$line{tax_rate} = $line{tax_rate_on_receiving};
$foot{$line{tax_rate}}{tax_rate} = $line{tax_rate};
$foot{$line{tax_rate}}{tax_value} += $line{tax_value};
- $total_tax_excluded += $line{unitprice_tax_excluded} * $line{quantity};
- $total_tax_included += $line{unitprice_tax_included} * $line{quantity};
+ $total_tax_excluded += get_rounded_price($line{unitprice_tax_excluded}) * $line{quantity};
+ $total_tax_included += get_rounded_price($line{unitprice_tax_included}) * $line{quantity};
my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
$line{suggestionid} = $suggestion->{suggestionid};
my $budget_name = GetBudgetName( $line{budget_id} );
$line{budget_name} = $budget_name;
- $subtotal_for_funds->{ $line{budget_name} }{ecost} += $order->{ecost} * $order->{quantity};
+ $subtotal_for_funds->{ $line{budget_name} }{ecost} += get_rounded_price($order->{ecost}) * $order->{quantity};
$subtotal_for_funds->{ $line{budget_name} }{unitprice} += $order->{total};
push @loop_received, \%line;
} else {
$order->{ecost} = $order->{ecost_tax_excluded};
}
- $order->{total} = $order->{ecost} * $order->{quantity};
+ $order->{total} = get_rounded_price($order->{ecost}) * $order->{quantity};
my %line = %$order;
my $biblionumber = $line{'biblionumber'};
my $biblio = Koha::Biblios->find( $biblionumber );
+ if ( ! $biblio ) {
+ use Data::Dump qw(dump);
+ warn "FATAL ERROR: biblionumber $biblionumber not found in line: ",dump( \%line );
+ }
my $countbiblio = CountBiblioInOrders($biblionumber);
my $ordernumber = $line{'ordernumber'};
my $order_object = Koha::Acquisition::Orders->find($ordernumber);
my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0;
my $itemcount = $biblio ? $biblio->items->count : 0;
my $holds_count = $biblio ? $biblio->holds->count : 0;
- my @itemnumbers = $order_object->items->get_column('itemnumbers');
+ my @itemnumbers = $order_object->items->get_column('itemnumber');
my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@itemnumbers } })->count : 0;
my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});