From fdbe86a4640760cf9b7756c394fa082128c856c4 Mon Sep 17 00:00:00 2001
From: Finn <toyou1995@gmail.com>
Date: Wed, 11 Sep 2019 14:19:12 +0100
Subject: [PATCH] made changes to CSV import to improve memory usage

uses same mechanism as postcode import code change does
---
 lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm    | 4 ++--
 lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm b/lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm
index 678c6c5..c191534 100644
--- a/lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm
+++ b/lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm
@@ -13,9 +13,9 @@ has '+csv_required_columns' => (
 sub import_csv {
   my ($self) = @_;
 
-  my $rows = $self->csv_data;
+  $self->check_headers;
 
-  foreach my $row ( @{$rows} ) {
+  while ( my $row = $self->get_csv_line ) {
     $self->_row_to_result($row);
   }
 }
diff --git a/lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm b/lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm
index 026806e..34ba039 100644
--- a/lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm
+++ b/lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm
@@ -35,10 +35,10 @@ has '+csv_required_columns' => (
 sub import_csv {
   my ($self) = @_;
 
-  my $rows = $self->csv_data;
+  $self->check_headers;
   my $lcc_org = $self->target_entity;
 
-  foreach my $row (@{$rows}) {
+  while ( my $row = $self->get_csv_line ) {
     $self->_row_to_result($row, $lcc_org);
   }
 }