Bug 7180: (follow-up) remove useless rrp variable

[koha-ffzg.git] / acqui / invoice.pl

diff --git a/acqui/invoice.pl b/acqui/invoice.pl
index 1306363..95065c9 100755 (executable)
--- a/acqui/invoice.pl
+++ b/acqui/invoice.pl
@@ -100,7 +100,7 @@ elsif ( $op && $op eq 'delete' ) {
 
 
 my $details = GetInvoiceDetails($invoiceid);
-my ($bookseller) = GetBookSellerFromId($details->{supplierid});
+my $bookseller = GetBookSellerFromId($details->{booksellerid});
 my @orders_loop = ();
 my $orders = $details->{'orders'};
 my $qty_total;
@@ -123,9 +123,8 @@ foreach my $order (@$orders) {
     $foot{$$line{gstgsti}}{totalgsti} += $$line{totalgsti};
     $total_gsti += $$line{totalgsti};
 
-    my %row = %{ $order, $line };
-    $row{'orderline'} = $row{'parent_ordernumber'};
-    push @orders_loop, \%row;
+    $line->{orderline} = $line->{parent_ordernumber};
+    push @orders_loop, $line;
 }
 
 push @foot_loop, map {$_} values %foot;