diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-11 00:44:22 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-11 00:44:22 +0100 |
| commit | 58fe3b8be3c434610354e9954e630da3146cc01a (patch) | |
| tree | 931f56226238f619da2a129818c48f9703a49fce /lib/Travel/Routing/DE/HAFAS/Connection.pm | |
| parent | 4520981dde8d12a18632b598f1c02a6649cde9f3 (diff) | |
expose transfer times between consecutive connection sections
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]; |