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

Added category all time purchase list

This commit is contained in:
Finn 2018-05-22 12:23:17 +01:00
parent 174ce1f105
commit 779a6e77ff
1 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lib/Pear/LocalLoop/Controller/Api/Stats.pm
View File

@ -63,6 +63,8 @@ sub post_customer {
my $entity = $c->stash->{api_user}->entity;
my $purchase_rs = $entity->purchases;
my $duration_weeks = DateTime::Duration->new( weeks => 7 );
my $end = DateTime->today;
my $start_weeks = $end->clone->subtract_duration( $duration_weeks );
@ -108,7 +110,7 @@ sub post_customer {
my $sectors = { sectors => [], purchases => [] };
my $sector_purchase_rs = $entity->purchases->search({},
my $sector_purchase_rs = $purchase_rs->search({},
{
join => { 'seller' => 'organisation' },
columns => {
@ -125,9 +127,32 @@ sub post_customer {
push @{ $sectors->{ purchases } }, ($_->get_column('count') || 0);
}
my $data = { cat_total => {}, categories => {}, essentials => {} };
my $data = { cat_total => {}, categories => {}, essentials => {}, cat_list => {} };
my $purchase_rs = $entity->purchases;
my $category_list = $c->schema->resultset('Category')->as_hash;
my $category_purchase_rs = $purchase_rs->search({},
{
join => 'category',
columns => {
category_id => "category.category_id",
value => { sum => 'value' },
},
group_by => "category.category_id",
}
);
my %cat_total_list;
for ( $category_purchase_rs->all ) {
my $category = $_->get_column('category_id') || 0;
my $value = ($_->get_column('value') || 0) / 100000;
$cat_total_list{$category_list->{$category}} += $value;
}
my @cat_lists = map { { category => $_, value => $cat_total_list{$_} } } sort keys %cat_total_list;
$data->{cat_list} = [ sort { $b->{value} <=> $a->{value} } @cat_lists ];
my $purchase_no_essential_rs = $purchase_rs->search({
"me.essential" => 1,
@ -163,8 +188,6 @@ sub post_customer {
}
);
my $category_list = $c->schema->resultset('Category')->as_hash;
for my $cat_trans ( $month_transaction_category_rs->all ) {
my $quantised = $c->db_datetime_parser->parse_datetime($cat_trans->get_column('quantised'));
my $days = $c->format_iso_date( $quantised ) || 0;