summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/Travelynx.pm30
1 files changed, 13 insertions, 17 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index ae50815..b8f778a 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -119,7 +119,6 @@ sub startup {
return {
checkin => 1,
checkout => 2,
- undo => 3,
cancelled_from => 4,
cancelled_to => 5,
};
@@ -307,7 +306,7 @@ sub startup {
my ($self) = @_;
# Note: Selecting on real_time would be more intuitive, but is not
- # possible at the moment -- non-realtime checkouts and undo actions
+ # possible at the moment -- non-realtime checkouts
# lack both sched_time and real_time.
return $self->app->dbh->prepare(
qq{
@@ -609,17 +608,18 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
$self->helper(
'undo' => sub {
- my ($self, $action_id) = @_;
+ my ( $self, $action_id ) = @_;
my $status = $self->get_user_status;
- if ($action_id < 1 or $status->{action_id} != $action_id) {
- return "Invalid action ID: $action_id != $status->{action_id}. Note that you can only undo your latest action.";
+ if ( $action_id < 1 or $status->{action_id} != $action_id ) {
+ return
+"Invalid action ID: $action_id != $status->{action_id}. Note that you can only undo your latest action.";
}
my $success = $self->app->undo_query->execute($action_id);
- if (defined $success) {
+ if ( defined $success ) {
return;
}
else {
@@ -914,7 +914,7 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
# journeys whose checkin lies outside the originally requested
# time range afterwards.
# For an additional twist, get_interval_actions_query filters based
- # on the action time, not actual departure, as undo and force
+ # on the action time, not actual departure, as force
# checkout actions lack sched_time and real_time data. By
# subtracting one day from "after" (i.e., moving it one day into
# the past), we make sure not to miss journeys where the real departure
@@ -950,10 +950,11 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
while ( my @row = $query->fetchrow_array ) {
my (
- $action_id, $action, $raw_ts, $ds100,
- $name, $train_type, $train_line,
- $train_no, $train_id, $raw_sched_ts,
- $raw_real_ts, $raw_route, $raw_messages
+ $action_id, $action, $raw_ts,
+ $ds100, $name, $train_type,
+ $train_line, $train_no, $train_id,
+ $raw_sched_ts, $raw_real_ts, $raw_route,
+ $raw_messages
) = @row;
if (
@@ -965,7 +966,7 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
push(
@travels,
{
- ids => [undef, $action_id],
+ ids => [ undef, $action_id ],
to_name => $name,
sched_arrival => epoch_to_dt($raw_sched_ts),
rt_arrival => epoch_to_dt($raw_real_ts),
@@ -1080,11 +1081,6 @@ qq{select * from pending_mails where email = ? and num_tries > 1;}
my $now = DateTime->now( time_zone => 'Europe/Berlin' );
my @cols = @{ $rows->[0] };
- if ( @{$rows} > 2
- and $rows->[0][1] == $self->app->action_type->{undo} )
- {
- @cols = @{ $rows->[2] };
- }
my $action_ts = epoch_to_dt( $cols[2] );
my $sched_ts = epoch_to_dt( $cols[9] );