@@ -, +, @@ --- acqui/supplier.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/acqui/supplier.pl +++ a/acqui/supplier.pl @@ -67,7 +67,7 @@ my $booksellerid = $query->param('booksellerid'); my $supplier = {}; if ($booksellerid) { $supplier = GetBookSellerFromId($booksellerid); - foreach ( keys $supplier ) { + foreach ( keys %{$supplier} ) { $template->{'VARS'}->{$_} = $supplier->{$_}; } $template->{'VARS'}->{'booksellerid'} = $booksellerid; --