Only show latest travels on landing page
This commit is contained in:
parent
74fd97b4b8
commit
147e6ae849
2 changed files with 14 additions and 8 deletions
18
index.pl
18
index.pl
|
@ -131,7 +131,9 @@ app->attr(
|
|||
return $self->app->dbh->prepare(
|
||||
qq{
|
||||
select action_id, action_time, stations.ds100, stations.name,
|
||||
train_type, train_line, train_no, train_id, route
|
||||
train_type, train_line, train_no, train_id,
|
||||
sched_time, real_time,
|
||||
route, messages
|
||||
from user_actions
|
||||
join stations on station_id = stations.id
|
||||
where user_id = ?
|
||||
|
@ -441,14 +443,18 @@ helper 'get_user_id' => sub {
|
|||
};
|
||||
|
||||
helper 'get_user_travels' => sub {
|
||||
my ($self) = @_;
|
||||
my ( $self, $limit ) = @_;
|
||||
|
||||
my $uid = $self->get_user_id;
|
||||
$self->app->get_all_actions_query->execute($uid);
|
||||
my $uid = $self->get_user_id;
|
||||
my $query = $self->app->get_all_actions_query;
|
||||
if ($limit) {
|
||||
$query = $self->app->get_last_actions_query;
|
||||
}
|
||||
$query->execute($uid);
|
||||
|
||||
my @travels;
|
||||
|
||||
while ( my @row = $self->app->get_all_actions_query->fetchrow_array ) {
|
||||
while ( my @row = $query->fetchrow_array ) {
|
||||
my (
|
||||
$action, $raw_ts, $ds100, $name,
|
||||
$train_type, $train_line, $train_no, $train_id,
|
||||
|
@ -505,7 +511,7 @@ helper 'get_user_status' => sub {
|
|||
my $now = DateTime->now( time_zone => 'Europe/Berlin' );
|
||||
my $ts = epoch_to_dt( $rows->[0][1] );
|
||||
my $checkin_station_name = decode( 'UTF-8', $rows->[0][3] );
|
||||
my @route = split( qr{[|]}, decode( 'UTF-8', $rows->[0][8] // q{} ) );
|
||||
my @route = split( qr{[|]}, decode( 'UTF-8', $rows->[0][10] // q{} ) );
|
||||
my @route_after;
|
||||
my $is_after = 0;
|
||||
for my $station (@route) {
|
||||
|
|
|
@ -34,7 +34,7 @@
|
|||
% }
|
||||
</div>
|
||||
</div>
|
||||
<h1>Bisherige Fahrten</h1>
|
||||
<h1>Letzte Fahrten</h1>
|
||||
<div class="row">
|
||||
<table class="striped">
|
||||
<thead>
|
||||
|
@ -46,7 +46,7 @@
|
|||
</tr>
|
||||
</thead>
|
||||
<tbody>
|
||||
% for my $travel (get_user_travels()) {
|
||||
% for my $travel (get_user_travels(1)) {
|
||||
% if ($travel->{completed}) {
|
||||
<tr>
|
||||
<td><%= $travel->{sched_departure}->strftime('%d.%m.%Y') %></td>
|
||||
|
|
Loading…
Reference in a new issue