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

Merge pull request #77 from Pear-Trading/TBSliver/Import-Fixes

Browse source 
Fix import screen
This commit is contained in:
Tom Bloor 2017-11-28 18:31:55 +00:00 committed by GitHub
parent d301d4a7c9 f6f50d4932
commit deb1b42823
3 changed files with 53 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG.md
View file

@ -2,6 +2,7 @@
# Next Release # Next Release
* **Admin Fix**: Fix error in Importing under Postgres
* **Admin Feature** Ability to add entity to LIS Added * **Admin Feature** Ability to add entity to LIS Added
* Added code endpoint for LIS organisations for web app use * Added code endpoint for LIS organisations for web app use
* Schema updated to account for these changes * Schema updated to account for these changes

54
lib/Pear/LocalLoop/Command/dev_data.pm
View file

@ -28,45 +28,57 @@ sub run {
$schema->resultset('User')->create({ $schema->resultset('User')->create({
email => 'test@example.com', email => 'test@example.com',
password => 'abc123', password => 'abc123',
customer => { entity => {
full_name => 'Test User', type => 'customer',
display_name => 'Test User', customer => {
year_of_birth => 2006, full_name => 'Test User',
postcode => 'LA1 1AA', display_name => 'Test User',
year_of_birth => 2006,
postcode => 'LA1 1AA',
}
}, },
administrator => {}, is_admin => 1,
}); });
$schema->resultset('User')->create({ $schema->resultset('User')->create({
email => 'test2@example.com', email => 'test2@example.com',
password => 'abc123', password => 'abc123',
customer => { entity => {
full_name => 'Test User 2', type => 'customer',
display_name => 'Test User 2', customer => {
year_of_birth => 2006, full_name => 'Test User 2',
postcode => 'LA1 1AA', display_name => 'Test User 2',
year_of_birth => 2006,
postcode => 'LA1 1AA',
},
}, },
}); });
$schema->resultset('User')->create({ $schema->resultset('User')->create({
email => 'test3@example.com', email => 'test3@example.com',
password => 'abc123', password => 'abc123',
customer => { entity => {
full_name => 'Test User 3', type => 'customer',
display_name => 'Test User 3', customer => {
year_of_birth => 2006, full_name => 'Test User 3',
postcode => 'LA1 1AA', display_name => 'Test User 3',
year_of_birth => 2006,
postcode => 'LA1 1AA',
},
}, },
}); });
$schema->resultset('User')->create({ $schema->resultset('User')->create({
email => 'testorg@example.com', email => 'testorg@example.com',
password => 'abc123', password => 'abc123',
organisation => { entity => {
name => 'Test Org', type => 'organisation',
street_name => 'Test Street', organisation => {
town => 'Lancaster', name => 'Test Org',
postcode => 'LA1 1AA', street_name => 'Test Street',
town => 'Lancaster',
postcode => 'LA1 1AA',
},
}, },
}); });
} }

21
lib/Pear/LocalLoop/Schema/ResultSet/ImportSet.pm
View file

@ -23,12 +23,28 @@ sub get_values {
); );
} }
sub _unordered_get_values {
my $self = shift;
my $id = shift;
my $include_ignored = shift;
my $include_imported = shift;
return $self->find($id)->search_related(
'values',
{
( $include_ignored ? () : ( ignore_value => 0 ) ),
( $include_imported ? () : ( transaction_id => undef ) ),
},
);
}
sub get_users { sub get_users {
my $self = shift; my $self = shift;
return $self->get_values(@_)->search({}, return $self->_unordered_get_values(@_)->search({},
{ {
group_by => 'user_name', group_by => 'user_name',
columns => [ qw/ user_name / ],
}, },
); );
} }
@ -36,9 +52,10 @@ sub get_users {
sub get_orgs { sub get_orgs {
my $self = shift; my $self = shift;
return $self->get_values(@_)->search({}, return $self->_unordered_get_values(@_)->search({},
{ {
group_by => 'org_name', group_by => 'org_name',
columns => [ qw/ org_name / ],
}, },
); );
} }