68 lines
1.9 KiB
Perl
68 lines
1.9 KiB
Perl
package Pear::LocalLoop::Controller::Admin::Reports;
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
use Mojo::JSON qw/ encode_json /;
|
|
|
|
sub transaction_data {
|
|
my $c = shift;
|
|
|
|
my $quantised_column = 'quantised_hours';
|
|
if ( defined $c->param('scale') && $c->param('scale') eq 'days' ) {
|
|
$quantised_column = 'quantised_days';
|
|
}
|
|
|
|
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
|
|
my $transaction_rs = $c->schema->resultset('ViewQuantisedTransaction' . $driver)->search(
|
|
{},
|
|
{
|
|
columns => [
|
|
{
|
|
quantised => $quantised_column,
|
|
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_column,
|
|
order_by => { '-asc' => $quantised_column },
|
|
}
|
|
);
|
|
|
|
$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;
|