63 lines
1.7 KiB
Perl
63 lines
1.7 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 $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;
|