remove code related to undo-as-database-entry concept

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] );