Lines 276-282
sub GetBasketAsCSV {
Link Here
|
276 |
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); |
276 |
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id ); |
277 |
Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile; |
277 |
Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile; |
278 |
|
278 |
|
279 |
my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1}); |
279 |
my $delimiter = $csv_profile->csv_separator; |
|
|
280 |
$delimiter = "\t" if $delimiter eq "\\t"; |
281 |
my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$delimiter,'binary'=>1}); |
280 |
my $csv_profile_content = $csv_profile->content; |
282 |
my $csv_profile_content = $csv_profile->content; |
281 |
my ( @headers, @fields ); |
283 |
my ( @headers, @fields ); |
282 |
while ( $csv_profile_content =~ / |
284 |
while ( $csv_profile_content =~ / |