@@ -, +, @@ described in the comment --- C4/Acquisition.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -302,7 +302,7 @@ sub GetBasketAsCSV { ) { push @headers, $1; my $field = $2; - $field =~ s/[^\.]*\.?//; # Remove the table name if exists. + $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists. push @fields, $field; } for my $order (@orders) { --