diff options
| author | Birte Kristina Friesel <birte.friesel@uos.de> | 2025-01-30 22:26:41 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <birte.friesel@uos.de> | 2025-01-30 22:26:41 +0100 |
| commit | d896bdcddc4e6e0161a3cab449ef4b11963543ab (patch) | |
| tree | 995bfe799da169e8629d2835c1820f7787231061 /lib/Travel/Routing/DE/DBRIS/Connection.pm | |
| parent | 99852d760a18a9d87acc832fd0557f630f5e69eb (diff) | |
annotate cancelled and unlikely / infeasible connections
Diffstat (limited to 'lib/Travel/Routing/DE/DBRIS/Connection.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/DBRIS/Connection.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lib/Travel/Routing/DE/DBRIS/Connection.pm b/lib/Travel/Routing/DE/DBRIS/Connection.pm index d7c74f0..6ff4507 100644 --- a/lib/Travel/Routing/DE/DBRIS/Connection.pm +++ b/lib/Travel/Routing/DE/DBRIS/Connection.pm @@ -13,7 +13,7 @@ use Travel::Routing::DE::DBRIS::Connection::Segment; our $VERSION = '0.02'; Travel::Routing::DE::DBRIS::Connection->mk_ro_accessors( - qw(changes + qw(changes feasibility is_cancelled is_unscheduled is_unlikely duration sched_duration rt_duration sched_dep rt_dep dep sched_arr rt_arr arr @@ -30,11 +30,14 @@ sub new { my $strptime = $opt{strptime_obj}; my $ref = { - changes => $json->{umstiegsAnzahl}, - id => $json->{tripId}, - price => $json->{angebotsPreis}{betrag}, - price_unit => $json->{angebotsPreis}{waehrung}, - strptime_obj => $strptime, + changes => $json->{umstiegsAnzahl}, + feasibility => $json->{ereignisZusammenfassung}{anschlussBewertungCode} + // -1, + is_unscheduled => $json->{isAlternativeVerbindung}, + id => $json->{tripId}, + price => $json->{angebotsPreis}{betrag}, + price_unit => $json->{angebotsPreis}{waehrung}, + strptime_obj => $strptime, }; if ( $ref->{price_unit} and $ref->{price_unit} eq 'EUR' ) { |