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

filter everything by date

Browse source
This commit is contained in:
Thomas Bloor 2019-09-09 19:32:14 +01:00
parent 653f495a70
commit 103cf61ec6
No known key found for this signature in database
GPG key ID: 4657C7EBE42CC5CC
1 changed files with 80 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

131
lib/Pear/LocalLoop/Controller/Api/External.pm
View file

@ -86,12 +86,12 @@ sub post_lcc_suppliers {
my $lcc_suppliers = $c->schema->resultset('Entity')->search( my $lcc_suppliers = $c->schema->resultset('Entity')->search(
{ {
'sales.buyer_id' => $user->entity->id, 'sales.buyer_id' => $user->entity->id,
( $v->param('search') ? ( ($v->param('search') ? (
'-or' => [ '-or' => [
{ 'organisation.name' => { 'like' => $v->param('search') . '%' } }, { 'organisation.name' => { 'like' => $v->param('search') . '%' } },
{ 'organisation.postcode' => { 'like' => $v->param('search') . '%' } }, { 'organisation.postcode' => { 'like' => $v->param('search') . '%' } },
] ]
) : () ), ) : ()),
}, },
{ {
join => [ 'sales', 'organisation' ], join => [ 'sales', 'organisation' ],
@ -133,13 +133,15 @@ sub post_year_spend {
my $user = $c->stash->{api_user}; my $user = $c->stash->{api_user};
# Temporary date lock for dev data my $v = $c->validation;
my $last = DateTime->new( $v->input($c->stash->{api_json});
year => 2019, $v->required('from');
month => 4, $v->required('to');
day => 1
); return $c->api_validation_error if $v->has_error;
my $first = $last->clone->subtract(years => 1);
my $last = $c->parse_iso_datetime($v->param('to'));
my $first = $c->parse_iso_datetime($v->param('from'));
my $dtf = $c->schema->storage->datetime_parser; my $dtf = $c->schema->storage->datetime_parser;
my $driver = $c->schema->storage->dbh->{Driver}->{Name}; my $driver = $c->schema->storage->dbh->{Driver}->{Name};
@ -185,13 +187,15 @@ sub post_supplier_count {
my $user = $c->stash->{api_user}; my $user = $c->stash->{api_user};
# Temporary date lock for dev data my $v = $c->validation;
my $last = DateTime->new( $v->input($c->stash->{api_json});
year => 2019, $v->required('from');
month => 4, $v->required('to');
day => 1
); return $c->api_validation_error if $v->has_error;
my $first = $last->clone->subtract(years => 1);
my $last = $c->parse_iso_datetime($v->param('to'));
my $first = $c->parse_iso_datetime($v->param('from'));
my $dtf = $c->schema->storage->datetime_parser; my $dtf = $c->schema->storage->datetime_parser;
my $driver = $c->schema->storage->dbh->{Driver}->{Name}; my $driver = $c->schema->storage->dbh->{Driver}->{Name};
@ -206,15 +210,15 @@ sub post_supplier_count {
buyer_id => $user->entity->id, buyer_id => $user->entity->id,
}, },
{ {
join => { 'seller' => 'organisation' }, join => { 'seller' => 'organisation' },
select => [ select => [
{ count => 'me.value', '-as' => 'count' }, { count => 'me.value', '-as' => 'count' },
{ sum => 'me.value', '-as' => 'total_spend' }, { sum => 'me.value', '-as' => 'total_spend' },
'organisation.name', 'organisation.name',
'me.quantised_days', 'me.quantised_days',
], ],
as => [ qw/ count total_spend name quantised_days / ], as => [ qw/count total_spend name quantised_days/ ],
group_by => [ qw/ me.quantised_days seller.id organisation.id / ], group_by => [ qw/me.quantised_days seller.id organisation.id/ ],
order_by => { '-asc' => 'me.quantised_days' }, order_by => { '-asc' => 'me.quantised_days' },
} }
); );
@ -374,37 +378,56 @@ sub post_supplier_history {
sub post_lcc_table_summary { sub post_lcc_table_summary {
my $c = shift; my $c = shift;
my $validation = $c->validation; my $user = $c->stash->{api_user};
$validation->input($c->stash->{api_json});
my $v = $c->validation;
$v->input($c->stash->{api_json});
$v->required('from');
$v->required('to');
return $c->api_validation_error if $v->has_error;
my $last = $c->parse_iso_datetime($v->param('to'));
my $first = $c->parse_iso_datetime($v->param('from'));
my $transaction_rs = $c->schema->resultset('Transaction'); my $transaction_rs = $c->schema->resultset('Transaction');
my $ward_transactions_rs = $transaction_rs->search({}, my $dtf = $c->schema->storage->datetime_parser;
my $ward_transactions_rs = $transaction_rs->search(
{ {
join => { seller => { postcode => { gb_postcode => 'ward' } } }, purchase_time => {
-between => [
$dtf->format_datetime($first),
$dtf->format_datetime($last),
],
buyer_id => $user->entity->id,
},
},
{
join => { seller => { postcode => { gb_postcode => 'ward' } } },
group_by => 'ward.id', group_by => 'ward.id',
select => [ select => [
{ count => 'me.id', '-as' => 'count' }, { count => 'me.id', '-as' => 'count' },
{ sum => 'me.value', '-as' => 'sum' }, { sum => 'me.value', '-as' => 'sum' },
'ward.ward' 'ward.ward'
], ],
as => [ qw/ count sum ward_name /], as => [ qw/count sum ward_name/ ],
} }
); );
my $transaction_type_data = {}; my $transaction_type_data = {};
my %meta_names = ( my %meta_names = (
local_service => "Local Services", local_service => "Local Services",
regional_service => "Regional Services", regional_service => "Regional Services",
national_service => "National Services", national_service => "National Services",
private_household_rebate => "Private Household Rebates etc", private_household_rebate => "Private Household Rebates etc",
business_tax_and_rebate => "Business Tax & Service Rebates", business_tax_and_rebate => "Business Tax & Service Rebates",
stat_loc_gov => "Statutory Loc Gov", stat_loc_gov => "Statutory Loc Gov",
central_loc_gov => "Central Gov HMRC", central_loc_gov => "Central Gov HMRC",
); );
for my $meta ( qw/ for my $meta (qw/
local_service local_service
regional_service regional_service
national_service national_service
@ -412,48 +435,54 @@ sub post_lcc_table_summary {
business_tax_and_rebate business_tax_and_rebate
stat_loc_gov stat_loc_gov
central_loc_gov central_loc_gov
/ ) { /) {
my $transaction_type_rs = $transaction_rs->search( my $transaction_type_rs = $transaction_rs->search(
{ {
'meta.'.$meta => 1, 'me.purchase_time' => {
-between => [
$dtf->format_datetime($first),
$dtf->format_datetime($last),
],
},
'me.buyer_id' => $user->entity->id,
'meta.' . $meta => 1,
}, },
{ {
join => 'meta', join => 'meta',
group_by => 'meta.' . $meta, group_by => 'meta.' . $meta,
select => [ select => [
{ count => 'me.id', '-as' => 'count' }, { count => 'me.id', '-as' => 'count' },
{ sum => 'me.value', '-as' => 'sum' }, { sum => 'me.value', '-as' => 'sum' },
], ],
as => [ qw/ count sum /], as => [ qw/count sum/ ],
} }
)->first; )->first;
$transaction_type_data->{$meta} = { $transaction_type_data->{$meta} = {
( $transaction_type_rs ? ( ($transaction_type_rs ? (
count => $transaction_type_rs->get_column('count'), count => $transaction_type_rs->get_column('count'),
sum => $transaction_type_rs->get_column('sum'), sum => $transaction_type_rs->get_column('sum'),
type => $meta_names{$meta}, type => $meta_names{$meta},
) : ( ) : (
count => 0, count => 0,
sum => 0, sum => 0,
type => $meta_names{$meta}, type => $meta_names{$meta},
) ), )),
} }
} }
my @ward_transaction_list = ( my @ward_transaction_list = (
map {{ map {{
ward => $_->get_column('ward_name') || "N/A", ward => $_->get_column('ward_name') || "N/A",
sum => $_->get_column('sum') / 100000, sum => $_->get_column('sum') / 100000,
count => $_->get_column('count'), count => $_->get_column('count'),
}} $ward_transactions_rs->all }} $ward_transactions_rs->all
); );
return $c->render( json => { return $c->render(json => {
success => Mojo::JSON->true, success => Mojo::JSON->true,
wards => \@ward_transaction_list, wards => \@ward_transaction_list,
types => $transaction_type_data, types => $transaction_type_data,
}); });
} }