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

Initial pass of Transaction reports

Browse source
This commit is contained in:
Tom Bloor 2017-09-29 14:45:44 +01:00
parent 2486c701a5
commit cf2c7dcc4b
6 changed files with 214 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Pear/LocalLoop/Controller/Admin.pm
View file

@ -7,7 +7,7 @@ sub under {
if ( $c->is_user_authenticated ) {
return 1 if $c->current_user->is_admin;
}
$c->redirect_to('/');
$c->redirect_to('/admin');
return 0;
}

62
lib/Pear/LocalLoop/Controller/Admin/Reports.pm Normal file
View file

@ -0,0 +1,62 @@
package Pear::LocalLoop::Controller::Admin::Reports;
use Mojo::Base 'Mojolicious::Controller';
use Mojo::JSON qw/ encode_json /;
sub transaction_data {
my $c = shift;
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
my $transaction_rs = $c->schema->resultset('ViewQuantisedTransaction' . $driver)->search(
{},
{
columns => [
'quantised_hours',
{
count => \"COUNT(*)",
sum_distance => $c->pg_or_sqlite(
'',
'SUM("me"."distance")',
),
average_distance => $c->pg_or_sqlite(
'',
'AVG("me"."distance")',
),
sum_value => $c->pg_or_sqlite(
'',
'SUM("me"."value")',
),
average_value => $c->pg_or_sqlite(
'',
'AVG("me"."value")',
),
}
],
group_by => 'quantised_hours',
order_by => { '-asc' => 'quantised_hours' },
}
);
$transaction_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
$c->stash(
transaction_rs => encode_json( [$transaction_rs->all] ),
);
}
sub pg_or_sqlite {
my ( $c, $pg_sql, $sqlite_sql ) = @_;
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
if ( $driver eq 'Pg' ) {
return \$pg_sql;
} elsif ( $driver eq 'SQLite' ) {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
}
}
1;