View | Details | Raw Unified | Return to bug 36935
Collapse All | Expand All

(-)a/Koha/BackgroundJob/ImportKBARTFile.pm (-2 / +1 lines)
Lines 229-235 sub read_file { Link Here
229 
    my $delimiter    = $file->{filename} =~ /\.tsv$/    ? "\t"                                   : ",";
 229 
    my $delimiter    = $file->{filename} =~ /\.tsv$/    ? "\t"                                   : ",";
230 
    my $quote_char   = $file->{filename} =~ /\.tsv$/    ? "\""                                   : "\"";
 230 
    my $quote_char   = $file->{filename} =~ /\.tsv$/    ? "\""                                   : "\"";
231 

          231
          

        

          
            

              232
              
    open my $fh, "<", \$file_content or die;


              232
              
    open my $fh, "<", \$file_content or die "Could not open file $file->{filename}: $!";

            

        

          233
          
    my $csv = Text::CSV_XS->new(

          233
          
    my $csv = Text::CSV_XS->new(

        

        

          234
          
        {

          234
          
        {

        

        

          235
          
            sep_char           => $delimiter,

          235
          
            sep_char           => $delimiter,

        

            

              236
              
- 

              
              
            






  

  Return to bug 36935