Lines 254-260
sub GetBasketAsCSV {
Link Here
|
254 |
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); |
254 |
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); |
255 |
Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile; |
255 |
Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile; |
256 |
|
256 |
|
257 |
my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1}); |
257 |
my $delimiter = $csv_profile->csv_separator; |
|
|
258 |
$delimiter = "\t" if $delimiter eq "\\t"; |
259 |
my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$delimiter,'binary'=>1}); |
258 |
my $csv_profile_content = $csv_profile->content; |
260 |
my $csv_profile_content = $csv_profile->content; |
259 |
my ( @headers, @fields ); |
261 |
my ( @headers, @fields ); |
260 |
while ( $csv_profile_content =~ / |
262 |
while ( $csv_profile_content =~ / |