Fix a warning in log

Using a hash as a reference is deprecated

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
index 84d4e8e..94c5814 100755 (executable)
--- a/acqui/basketgroup.pl
+++ b/acqui/basketgroup.pl
@@ -237,7 +237,7 @@ sub printbasketgrouppdf{
                 }
             }
         }
-        %orders->{$basket->{basketno}}=\@ba_orders;
+        $orders{$basket->{basketno}}=\@ba_orders;
     }
     print $input->header( -type => 'application/pdf', -attachment => $basketgroup->{name}.'.pdf' );
     my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} || C4::Context->preference("gist")) || die "pdf generation failed";