|
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 =~ / |