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

(-)a/C4/ImportExportFramework.pm (-1 / +1 lines)
Lines 965-971 sub _import_table_csv Link Here
965 
    shift @fieldsPK;
 965 
    shift @fieldsPK;
966 
    my $ok = 0;
 966 
    my $ok = 0;
967 
    my $pos = 0;
 967 
    my $pos = 0;
968 
    my $csv = Text::CSV_XS->new( { binary => 1, formula => "empty" } );
 968 
    my $csv = Text::CSV_XS->new( { binary => 1 } );
969 
    while ( my $row = $csv->getline($dom) ) {
 969 
    while ( my $row = $csv->getline($dom) ) {
970 
        my @fields = @$row;
 970 
        my @fields = @$row;
971 
        @arrData = @fields;
 971 
        @arrData = @fields;
(-)a/Koha/ERM/EUsage/SushiCounter.pm (-1 / +1 lines)
Lines 86-92 sub _build_COUNTER_report_file { Link Here
86 
    my @report = ( @{$header}, @{$column_headings}, @{$body} );
 86 
    my @report = ( @{$header}, @{$column_headings}, @{$body} );
87 

          87
          

        

        

          88
          
    #TODO: change this to tab instead of comma

          88
          
    #TODO: change this to tab instead of comma

        

          
            

              89
              
    csv( in => \@report, out => \my $counter_file, encoding => "utf-8" );


              89
              
    csv( in => \@report, out => \my $counter_file, encoding => "utf-8", formula => 'empty' );

            

        

          90
          

          90
          

        

        

          91
          
    return $counter_file;

          91
          
    return $counter_file;

        

        

          92
          

          92
          

        



(-)a/Koha/Patrons/Import.pm
      (-2 / +1 lines)




  

    
      
            Lines 627-633
          sub generate_patron_attributes {
      
      
        Link Here
      
    
  

        

          627
          
    push (@$feedback, { feedback => 1, name => 'attribute string', value => $string });

          627
          
    push (@$feedback, { feedback => 1, name => 'attribute string', value => $string });

        

        

          628
          
    return [] unless $string; # Unit tests want the feedback, is it really needed?

          628
          
    return [] unless $string; # Unit tests want the feedback, is it really needed?

        

        

          629
          

          629
          

        

          
            

              630
              
    my $csv = Text::CSV->new( { binary => 1, formula => "empty" } );    # binary needed for non-ASCII Unicode


              630
              
    my $csv = Text::CSV->new( { binary => 1 } );    # binary needed for non-ASCII Unicode

            

        

          631
          
    my $ok   = $csv->parse($string);  # parse field again to get subfields!

          631
          
    my $ok   = $csv->parse($string);  # parse field again to get subfields!

        

        

          632
          
    my @list = $csv->fields();

          632
          
    my @list = $csv->fields();

        

        

          633
          
    my @patron_attributes =

          633
          
    my @patron_attributes =

        

            

              634
              
- 

              
              
            






  

  Return to bug 33339