From 6efb7889ca0660159cf33371ce023ff78e23e057 Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Fri, 5 May 2017 08:46:34 +0000 Subject: [PATCH] Bug 8612: QA followup - stip white chars from csv profile definition --- C4/Acquisition.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 7a70852..0b1229f 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -293,6 +293,7 @@ sub GetBasketAsCSV { my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1}); my $csv_profile_content = $csv_profile->content; + $csv_profile_content =~ s/[\s]*//g; my ( @headers, @fields ); while ( $csv_profile_content =~ / ([^=\|]+) # header -- 2.1.4