From ed0debdeafe0aeec0c084226627bf67b90f80731 Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Thu, 4 May 2017 07:43:27 +0000 Subject: [PATCH] Bug 8612: QA folowup - fix regular expression to do what is described in the comment --- C4/Acquisition.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 7e04cff..754b156 100644 --- a/C4/Acquisition.pm +++ b/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) { -- 2.1.4