revamped transaction list view
This commit is contained in:
parent
b233acfd64
commit
b157ba0843
2 changed files with 159 additions and 0 deletions
|
@ -1,11 +1,67 @@
|
||||||
package Pear::LocalLoop::Controller::Admin::Transactions;
|
package Pear::LocalLoop::Controller::Admin::Transactions;
|
||||||
use Mojo::Base 'Mojolicious::Controller';
|
use Mojo::Base 'Mojolicious::Controller';
|
||||||
|
|
||||||
|
use List::Util qw/ max sum /;
|
||||||
|
|
||||||
has result_set => sub {
|
has result_set => sub {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
return $c->schema->resultset('Transaction');
|
return $c->schema->resultset('Transaction');
|
||||||
};
|
};
|
||||||
|
|
||||||
|
sub index {
|
||||||
|
my $c = shift;
|
||||||
|
|
||||||
|
my $pending_transaction_rs = $c->schema->resultset('Organisation')->search({ pending => 1 })->entity->sales;
|
||||||
|
|
||||||
|
my $driver = $c->schema->storage->dbh->{Driver}->{Name};
|
||||||
|
my $week_transaction_rs = $c->schema->resultset('ViewQuantisedTransaction' . $driver)->search(
|
||||||
|
{},
|
||||||
|
{
|
||||||
|
columns => [
|
||||||
|
{
|
||||||
|
quantised => 'quantised_weeks',
|
||||||
|
count => \"COUNT(*)",
|
||||||
|
sum_value => $c->pg_or_sqlite(
|
||||||
|
'SUM("me"."value")',
|
||||||
|
'SUM("me"."value")',
|
||||||
|
),
|
||||||
|
}
|
||||||
|
],
|
||||||
|
group_by => 'quantised_weeks',
|
||||||
|
order_by => { '-asc' => 'quantised_weeks' },
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
my @all_weeks = $week_transaction_rs->all;
|
||||||
|
my $first_week_count = $all_weeks[0]->get_column('count') || 0;
|
||||||
|
my $first_week_value = $all_weeks[0]->get_column('sum_value') / 100000 || 0;
|
||||||
|
my $second_week_count = defined $all_weeks[1] ? $all_weeks[1]->get_column('count') || 0 : 0;
|
||||||
|
my $second_week_value = defined $all_weeks[1] ? $all_weeks[1]->get_column('sum_value') / 100000 || 0 : 0;
|
||||||
|
|
||||||
|
my $transaction_rs = $c->schema->resultset('Transaction');
|
||||||
|
my $value_rs_col = $transaction_rs->get_column('value');
|
||||||
|
my $max_value = $value_rs_col->max / 100000 || 0;
|
||||||
|
my $avg_value = sprintf( '%.2f', $value_rs_col->func('AVG') / 100000) || 0;
|
||||||
|
my $sum_value = $value_rs_col->sum / 100000 || 0;
|
||||||
|
my $count = $transaction_rs->count || 0;
|
||||||
|
|
||||||
|
my $placeholder = 'Placeholder';
|
||||||
|
$c->stash(
|
||||||
|
placeholder => $placeholder,
|
||||||
|
pending_trans => $pending_transaction_rs->count,
|
||||||
|
weeks => {
|
||||||
|
first_count => $first_week_count,
|
||||||
|
second_count => $second_week_count,
|
||||||
|
first_value => $first_week_value,
|
||||||
|
second_value => $second_week_value,
|
||||||
|
max => $max_value,
|
||||||
|
avg => $avg_value,
|
||||||
|
sum => $sum_value,
|
||||||
|
count => $count,
|
||||||
|
},
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
sub read {
|
sub read {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
|
|
||||||
|
@ -51,4 +107,19 @@ if ( my $transaction = $c->result_set->find($id) ) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
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;
|
1;
|
||||||
|
|
|
@ -11,3 +11,91 @@
|
||||||
<strong>Success!</strong> <%= $success %>
|
<strong>Success!</strong> <%= $success %>
|
||||||
</div>
|
</div>
|
||||||
% }
|
% }
|
||||||
|
<div class="card-deck">
|
||||||
|
<div class="card mb-3 text-center text-white bg-primary">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Number of Transactions
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= $weeks->{count}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card mb-3 text-center text-white bg-success">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Sum of all Transaction Value
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= '£' . $weeks->{sum}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card-deck">
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
No. Transactions This Week
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= $weeks->{first_count}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
No. Transactions Last Week
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= $weeks->{second_count}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card-deck">
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Sum of Transactions This Week
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= $weeks->{first_value}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Sum of Transactions Last Week
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= $weeks->{second_value}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card-deck">
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Maximum Transaction Value
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= '£' . $weeks->{max}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="card mb-3 text-center text-white bg-danger">
|
||||||
|
<div class="card-header card-inverse">
|
||||||
|
Average Transaction Value
|
||||||
|
</div>
|
||||||
|
<div class="card-body">
|
||||||
|
<h2 class="card-title">
|
||||||
|
%= '£' . $weeks->{avg}
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
Reference in a new issue