Pear-Trading/Foodloop-Server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Added in importing Supplier CSV

Browse source
This commit is contained in:
Finn 2019-07-05 15:30:31 +01:00
parent 4b7550f569
commit bf4b092a12
No known key found for this signature in database
GPG key ID: 7455B4B17685B598
17 changed files with 4696 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/Pear/LocalLoop/Import/LCCCsv/Suppliers.pm
View file

@ -1,18 +1,44 @@
package Pear::LocalLoop::Import::LCCCsv::Suppliers;
use Moo;
use Devel::Dwarn;
extends qw/Pear::LocalLoop::Import::LCCCsv/;
sub import {
my $self = shift;
has '+csv_required_columns' => (
builder => sub { return [ qw/
supplier_id
name
/ ]},
);
$import = Pear::LocalLoop::Import::LCCCsv->new;
sub import_csv {
my ($self) = @_;
my $rows = $self->csv_data;
foreach my $row ( @{$rows} ) {
$self->_row_to_result($row);
}
return 1;
}
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' },
}
});
}
1;