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/Controller/Api/External.pm

380 lines
9.8 KiB
Perl
Raw Normal View History

package Pear::LocalLoop::Controller::Api::External;
use Mojo::Base 'Mojolicious::Controller';
use Mojo::JSON;
sub post_lcc_transactions {
my $c = shift;
my $user = $c->stash->{api_user};
# TODO Check the user is lancaster city council
my $validation = $c->validation;
2019-07-15 03:45:57 +00:00
$validation->input($c->stash->{api_json});
$validation->optional('page')->number;
return $c->api_validation_error if $validation->has_error;
2019-07-10 16:23:27 +00:00
my $lcc_import_ext_ref = $c->schema->resultset('ExternalReference')->find({ name => 'LCC CSV' });
2019-07-10 16:23:27 +00:00
return 0 unless $lcc_import_ext_ref;
my $lcc_transactions = $lcc_import_ext_ref->transactions->search(
2019-07-15 03:45:57 +00:00
undef,
{
page => $validation->param('page') || 1,
rows => 10,
join => 'transaction',
order_by => { -desc => 'transaction.purchase_time' },
});
# purchase_time needs timezone attached to it
my @transaction_list = (
map {{
transaction_external_id => $_->external_id,
2019-07-15 03:45:57 +00:00
seller => $_->transaction->seller->name,
net_value => $_->transaction->meta->net_value,
gross_value => $_->transaction->meta->gross_value,
sales_tax_value => $_->transaction->meta->sales_tax_value,
purchase_time => $c->format_iso_datetime($_->transaction->purchase_time),
2019-07-10 16:23:27 +00:00
}} $lcc_transactions->all
);
2019-07-15 03:45:57 +00:00
return $c->render(json => {
success => Mojo::JSON->true,
transactions => \@transaction_list,
2019-07-15 03:45:57 +00:00
page_no => $lcc_transactions->pager->total_entries,
});
}
sub post_lcc_suppliers {
my $c = shift;
my $user = $c->stash->{api_user};
# TODO give an error if user is not of Lancashire County Council
2019-07-12 17:51:38 +00:00
# my $is_lcc = $user->entity->organisation->count({ name => "Lancashire County Council" });
2019-07-12 19:04:38 +00:00
my $v = $c->validation;
2019-07-15 03:45:57 +00:00
$v->input($c->stash->{api_json});
2019-07-12 19:04:38 +00:00
$v->optional('page')->number;
$v->optional('sort_by');
$v->optional('sort_dir');
2019-07-12 19:04:38 +00:00
my $order_by = [
{ -asc => 'organisation.name' },
];
2019-07-15 03:45:57 +00:00
if ($v->param('sort_by')) {
my %dirs = ('asc' => '-asc', 'desc' => '-desc');
2019-07-12 19:04:38 +00:00
my $dir = $dirs{$v->param('sort_dir')} // '-asc';
my %sorts = (
2019-07-15 03:45:57 +00:00
'name' => 'organisation.name',
2019-07-12 19:04:38 +00:00
'postcode' => 'organisation.postcode',
2019-07-15 03:45:57 +00:00
'spend' => 'total_spend',
2019-07-12 19:04:38 +00:00
);
my $sort = $sorts{$v->param('sort_by')} || 'organisation.name';
$order_by->[0] = { $dir => $sort };
}
return $c->api_validation_error if $v->has_error;
my $lcc_suppliers = $c->schema->resultset('Entity')->search(
{
'sales.buyer_id' => $user->entity->id,
},
{
2019-07-15 03:45:57 +00:00
join => [ 'sales', 'organisation' ],
group_by => [ 'me.id', 'organisation.id' ],
'+select' => [
{
'sum' => 'sales.value',
'-as' => 'total_spend',
}
],
2019-07-15 03:45:57 +00:00
'+as' => [ 'total_spend' ],
page => $v->param('page') || 1,
rows => 10,
order_by => $order_by,
}
);
my @supplier_list = (
map {{
2019-07-12 17:51:38 +00:00
entity_id => $_->id,
2019-07-15 03:45:57 +00:00
name => $_->name,
street => $_->organisation->street_name,
town => $_->organisation->town,
postcode => $_->organisation->postcode,
country => $_->organisation->country,
spend => ($_->get_column('total_spend') / 100000) // 0,
}} $lcc_suppliers->all
);
2019-07-15 03:45:57 +00:00
return $c->render(json => {
success => Mojo::JSON->true,
suppliers => \@supplier_list,
2019-07-15 03:45:57 +00:00
page_no => $lcc_suppliers->pager->total_entries,
});
}
2019-07-15 00:33:07 +00:00
sub post_year_spend {
my $c = shift;
my $user = $c->stash->{api_user};
# Temporary date lock for dev data
my $last = DateTime->new(
year => 2019,
month => 4,
day => 1
);
2019-07-15 03:45:57 +00:00
my $first = $last->clone->subtract(years => 1);
2019-07-15 00:33:07 +00:00
my $dtf = $c->schema->storage->datetime_parser;
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
my $spend_rs = $c->schema->resultset('ViewQuantisedTransaction' . $driver)->search(
{
purchase_time => {
-between => [
$dtf->format_datetime($first),
$dtf->format_datetime($last),
],
},
buyer_id => $user->entity->id,
},
{
columns => [
{
quantised => 'quantised_days',
count => \"COUNT(*)",
total_spend => { sum => 'value' },
}
],
group_by => 'quantised_days',
order_by => { '-asc' => 'quantised_days' },
}
);
my @graph_data = (
2019-07-15 03:45:57 +00:00
map {{
2019-07-15 00:33:07 +00:00
count => $_->get_column('count'),
2019-07-15 03:45:57 +00:00
value => ($_->get_column('total_spend') / 100000) // 0,
2019-07-15 00:55:02 +00:00
date => $_->get_column('quantised'),
2019-07-15 03:45:57 +00:00
}} $spend_rs->all,
2019-07-15 00:33:07 +00:00
);
2019-07-15 03:45:57 +00:00
return $c->render(json => {
2019-07-15 00:33:07 +00:00
success => Mojo::JSON->true,
data => \@graph_data,
});
}
2019-07-15 01:41:23 +00:00
sub post_supplier_count {
my $c = shift;
my $user = $c->stash->{api_user};
# Temporary date lock for dev data
my $last = DateTime->new(
year => 2019,
month => 4,
day => 1
);
2019-07-15 03:45:57 +00:00
my $first = $last->clone->subtract(years => 1);
2019-07-15 01:41:23 +00:00
my $dtf = $c->schema->storage->datetime_parser;
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
my $spend_rs = $c->schema->resultset('ViewQuantisedTransaction' . $driver)->search(
{
purchase_time => {
-between => [
$dtf->format_datetime($first),
$dtf->format_datetime($last),
],
},
buyer_id => $user->entity->id,
},
{
columns => [
'seller_id',
2019-07-15 01:41:23 +00:00
{
quantised => 'quantised_days',
count => \"COUNT(*)",
total_spend => { sum => 'value' },
}
],
group_by => [ 'quantised_days', 'seller_id' ],
order_by => { '-asc' => 'quantised_days' },
}
);
2019-07-15 02:45:42 +00:00
my $name_rs = $c->schema->resultset('Transaction')->search(
{
'me.buyer_id' => $user->entity->id,
},
{
join => { seller => 'organisation' },
2019-07-15 02:45:42 +00:00
}
);
my %name_map = (
map {
$_->seller->id => $_->seller->organisation->name,
2019-07-15 02:45:42 +00:00
} $name_rs->all
);
2019-07-15 01:41:23 +00:00
my @graph_data = (
2019-07-15 03:45:57 +00:00
map {{
2019-07-15 01:41:23 +00:00
count => $_->get_column('count'),
2019-07-15 03:28:44 +00:00
value => ($_->get_column('total_spend') / 100000) // 0,
2019-07-15 01:41:23 +00:00
date => $_->get_column('quantised'),
seller => $name_map{ $_->get_column('seller_id') },
2019-07-15 03:45:57 +00:00
}} $spend_rs->all,
2019-07-15 01:41:23 +00:00
);
2019-07-15 03:45:57 +00:00
return $c->render(json => {
2019-07-15 01:41:23 +00:00
success => Mojo::JSON->true,
data => \@graph_data,
});
}
2019-07-15 03:45:57 +00:00
sub post_supplier_history {
my $c = shift;
my $user = $c->stash->{api_user};
# Temporary date lock for dev data
my $last = DateTime->new(
year => 2019,
month => 4,
day => 1
);
my $first = $last->clone->subtract(years => 1);
my $second = $last->clone->subtract(months => 6);
my $third = $last->clone->subtract(months => 3);
my $dtf = $c->schema->storage->datetime_parser;
my $year_rs = $c->schema->resultset('Transaction')->search(
{
'me.purchase_time' => {
-between => [
$dtf->format_datetime($first),
$dtf->format_datetime($last),
],
},
'me.buyer_id' => $user->entity->id,
},
{
join => { seller => 'organisation' },
columns => [
{
id => 'me.seller_id',
name => 'organisation.name',
count => \"COUNT(*)",
total_spend => { sum => 'me.value' },
}
],
group_by => 'me.seller_id',
order_by => { '-asc' => 'organisation.name' },
}
);
my $half_year_rs = $c->schema->resultset('Transaction')->search(
{
'me.purchase_time' => {
-between => [
$dtf->format_datetime($second),
$dtf->format_datetime($last),
],
},
'me.buyer_id' => $user->entity->id,
},
{
join => { seller => 'organisation' },
columns => [
{
id => 'me.seller_id',
name => 'organisation.name',
count => \"COUNT(*)",
total_spend => { sum => 'me.value' },
}
],
group_by => 'me.seller_id',
order_by => { '-asc' => 'organisation.name' },
}
);
my $quarter_year_rs = $c->schema->resultset('Transaction')->search(
{
'me.purchase_time' => {
-between => [
$dtf->format_datetime($third),
$dtf->format_datetime($last),
],
},
'me.buyer_id' => $user->entity->id,
},
{
join => { seller => 'organisation' },
columns => [
{
id => 'me.seller_id',
name => 'organisation.name',
count => \"COUNT(*)",
total_spend => { sum => 'me.value' },
}
],
group_by => 'me.seller_id',
order_by => { '-asc' => 'organisation.name' },
}
);
my %data;
for my $row ($year_rs->all) {
$data{$row->get_column('id')} = {
id => $row->get_column('id'),
name => $row->get_column('name'),
quarter_count => 0,
quarter_total => 0,
half_count => 0,
half_total => 0,
year_count => $row->get_column('count'),
year_total => $row->get_column('total_spend'),
};
}
for my $row ($half_year_rs->all) {
$data{$row->get_column('id')} = {
id => $row->get_column('id'),
name => $row->get_column('name'),
quarter_count => 0,
quarter_total => 0,
half_count => $row->get_column('count'),
half_total => $row->get_column('total_spend'),
year_count => 0,
year_total => 0,
%{$data{$row->get_column('id')}},
};
}
for my $row ($quarter_year_rs->all) {
$data{$row->get_column('id')} = {
id => $row->get_column('id'),
name => $row->get_column('name'),
quarter_count => $row->get_column('count'),
quarter_total => $row->get_column('total_spend'),
half_count => 0,
half_total => 0,
year_count => 0,
year_total => 0,
%{$data{$row->get_column('id')}},
};
}
return $c->render(json => {
success => Mojo::JSON->true,
data => [ values %data ],
});
}
1;