diff options
Diffstat (limited to 'lib/Travel/Routing/DE/HAFAS/Connection.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/HAFAS/Connection.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Travel/Routing/DE/HAFAS/Connection.pm b/lib/Travel/Routing/DE/HAFAS/Connection.pm index 1eee1bd..9a9e28b 100644 --- a/lib/Travel/Routing/DE/HAFAS/Connection.pm +++ b/lib/Travel/Routing/DE/HAFAS/Connection.pm @@ -89,6 +89,16 @@ sub new { ); } + my $prev; + for my $sec (@sections) { + if ( $sec->type eq 'JNY' ) { + if ($prev) { + $sec->set_transfer_from_previous_section($prev); + } + $prev = $sec; + } + } + my $tco = {}; for my $tco_id ( @{ $connection->{dTrnCmpSX}{tcocX} // [] } ) { my $tco_kv = $opt{common}{tcocL}[$tco_id]; |