perform stationinfo requests for hafas checkins

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/Travelynx/Command/work.pm b/lib/Travelynx/Command/work.pm
index 5787c47..ac47085 100644
--- a/lib/Travelynx/Command/work.pm
+++ b/lib/Travelynx/Command/work.pm
@@ -73,6 +73,8 @@ sub run {
 						{
 							$self->app->add_wagonorder( $uid, 1, $train_id,
 								$found_dep->sched_dep, $journey->number );
+							$self->app->add_stationinfo( $uid, 1, $journey->id,
+								$found_dep->loc->eva );
 						}
 					}
 
@@ -89,6 +91,8 @@ sub run {
 						{
 							$self->app->add_wagonorder( $uid, 0, $train_id,
 								$found_dep->sched_dep, $journey->number );
+							$self->app->add_stationinfo( $uid, 0, $journey->id,
+								$found_dep->loc->eva, $found_arr->loc->eva );
 						}
 					}
 				}
@@ -185,6 +189,8 @@ sub run {
 					$self->app->add_route_timestamps( $uid, $train, 1 );
 					$self->app->add_wagonorder( $uid, 1, $train->train_id,
 						$train->sched_departure, $train->train_no );
+					$self->app->add_stationinfo( $uid, 1, $train->train_id,
+						$dep, $arr );
 				}
 			}
 		};
@@ -259,6 +265,8 @@ sub run {
 					);
 					$self->app->add_wagonorder( $uid, 0, $train->train_id,
 						$train->sched_departure, $train->train_no );
+					$self->app->add_stationinfo( $uid, 0, $train->train_id,
+						$dep, $arr );
 				}
 			}
 			elsif ( $entry->{real_arr_ts} ) {