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

Add more stats to default stat set

Browse source
This commit is contained in:
Tom Bloor 2017-05-16 22:45:49 +01:00
parent a680d7b9df
commit 9586d1a637
4 changed files with 95 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Pear/LocalLoop.pm
View file

@ -147,7 +147,7 @@ sub startup {
$api->post('/edit')->to('api-api#post_edit');
$api->post('/fetchuser')->to('api-api#post_fetchuser');
$api->post('/user-history')->to('api-user#post_user_history');
$api->post('/stats')->to('api-stats#post_today');
$api->post('/stats')->to('api-stats#post_index');
my $api_admin = $api->under('/')->to('api-admin#auth');

27
lib/Pear/LocalLoop/Controller/Api/Stats.pm
View file

@ -1,7 +1,7 @@
package Pear::LocalLoop::Controller::Api::Stats;
use Mojo::Base 'Mojolicious::Controller';
sub post_today {
sub post_index {
my $c = shift;
my $user = $c->stash->{api_user};
@ -10,12 +10,35 @@ sub post_today {
my $today_sum = $today_rs->get_column('value')->sum;
my $today_count = $today_rs->count;
my $week_rs = $user->transactions->week_rs;
my $week_sum = $week_rs->get_column('value')->sum;
my $week_count = $week_rs->count;
my $month_rs = $user->transactions->month_rs;
my $month_sum = $month_rs->get_column('value')->sum;
my $month_count = $month_rs->count;
my $user_rs = $user->transactions;
my $user_sum = $user_rs->get_column('value')->sum;
my $user_count = $user_rs->count;
my $global_rs = $c->schema->resultset('Transaction');
my $global_sum = $global_rs->get_column('value')->sum;
my $global_count = $global_rs->count;
return $c->render( json => {
success => Mojo::JSON->true,
today_sum => $today_sum,
today_count => $today_count,
week_sum => $week_sum,
week_count => $week_count,
month_sum => $month_sum,
month_count => $month_count,
user_sum => $user_sum,
user_count => $user_count,
global_sum => $global_sum,
global_count => $global_count,
});
}
1;

30
lib/Pear/LocalLoop/Schema/ResultSet/Transaction.pm
View file

@ -7,23 +7,39 @@ use base 'DBIx::Class::ResultSet';
use DateTime;
sub today_rs {
my ( $self ) = @_;
sub search_between {
my ( $self, $from, $to ) = @_;
my $dtf = $self->result_source->schema->storage->datetime_parser;
return $self->search({
submitted_at => {
-between => [
$dtf->format_datetime(DateTime->today()),
$dtf->format_datetime(DateTime->today()->add( days => 1 )),
$dtf->format_datetime($from),
$dtf->format_datetime($to),
],
},
});
}
sub today_for_user {
my ( $self, $user ) = @_;
return $self->search({ buyer_id => $user->id })->today_rs;
sub today_rs {
my ( $self ) = @_;
my $today = DateTime->today();
return $self->search_between( $today, $today->clone->add( days => 1 ) );
}
sub week_rs {
my ( $self ) = @_;
my $today = DateTime->today();
return $self->search_between( $today->clone->subtract( days => 7 ), $today );
}
sub month_rs {
my ( $self ) = @_;
my $today = DateTime->today();
return $self->search_between( $today->clone->subtract( days => 30 ), $today );
}
1;