This repository has been archived on 2023-08-16. You can view files and clone it, but cannot push or open issues or pull requests.
Foodloop-Server/lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm

42 lines
852 B
Perl
Raw Normal View History

2019-07-02 14:21:01 +00:00
package Pear::LocalLoop::Import::LCCCsv::Suppliers;
use Moo;
extends qw/Pear::LocalLoop::Import::LCCCsv/;
2019-07-05 14:30:31 +00:00
has '+csv_required_columns' => (
builder => sub { return [ qw/
supplier_id
name
/ ]},
);
2019-07-04 13:16:49 +00:00
2019-07-05 14:30:31 +00:00
sub import_csv {
my ($self) = @_;
my $rows = $self->csv_data;
2019-07-08 15:41:59 +00:00
return $rows;
2019-07-02 14:21:01 +00:00
}
sub _row_to_result {
my ( $self, $row ) = @_;
my $addr2 = $row->{post_town};
my $address = ( defined $addr2 ? ( $row->{"address line 2"} . ' ' . $addr2) : $row->{"address line 2"} );
$self->external_result->find_or_create_related('organisations', {
external_id => $row->{supplier_id},
organisation => {
name => $row->{name},
street_name => $row->{"address line 1"},
town => $address,
postcode => $row->{post_code},
country => $row->{country_code},
entity => { type => 'organisation' },
}
});
2019-07-02 14:21:01 +00:00
}
2019-07-04 13:16:49 +00:00
1;