summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-02-08 17:51:07 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-02-08 17:51:07 +0100
commit92bb44d33958777a502001d54e32d20a17db71ee (patch)
tree8c90ea6453c60ee890a1454084d8f6a6723aef0d /lib/Travel/Status/DE/IRIS
parent5dbf2a7accb7e5c09173cad500e75e75fad014ff (diff)
Save old train IDs in case of a transfer
Diffstat (limited to 'lib/Travel/Status/DE/IRIS')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm43
1 files changed, 37 insertions, 6 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 296bd5c..951e390 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -16,10 +16,11 @@ use List::MoreUtils qw(none uniq firstval);
our $VERSION = '0.02';
Travel::Status::DE::IRIS::Result->mk_ro_accessors(
- qw(arrival classes date datetime delay departure is_cancelled line_no
- platform raw_id realtime_xml route_start route_end sched_arrival
- sched_departure sched_route_start sched_route_end start stop_no time
- train_id train_no transfer type unknown_t unknown_o)
+ qw(arrival classes date datetime delay departure is_cancelled is_transfer
+ line_no old_train_id old_train_no platform raw_id realtime_xml
+ route_start route_end sched_arrival sched_departure sched_route_start
+ sched_route_end start stop_no time train_id train_no transfer type
+ unknown_t unknown_o)
);
sub new {
@@ -171,12 +172,17 @@ sub merge_with_departure {
# result must be departure-only
+ $self->{is_transfer} = 1;
+
+ $self->{old_train_id} = $self->{train_id};
+ $self->{old_train_no} = $self->{train_no};
+
# departure is preferred over arrival, so overwrite default values
$self->{date} = $result->{date};
$self->{time} = $result->{time};
$self->{datetime} = $result->{datetime};
- $self->{train_id} = $result->{train_id}; # TODO save old value
- $self->{train_no} = $result->{train_no}; # TODO save old value
+ $self->{train_id} = $result->{train_id};
+ $self->{train_no} = $result->{train_no};
$self->{departure} = $result->{departure};
$self->{departure_wings} = $result->{departure_wings};
@@ -571,6 +577,19 @@ broken toilets.
True if the train was cancelled, false otherwise. Note that this does not
contain information about replacement trains or route diversions.
+=item $result->is_transfer
+
+True if the train changes its ID at the current station, false otherwise.
+
+An ID change means: There are two results in the system (e.g. RE 10228
+ME<uuml>nster -> Duisburg, RE 30028 Duisburg -> DE<uuml>sseldorf), but they are
+the same train (RE line 2 from ME<uuml>nster to DE<uuml>sseldorf in this case)
+and should be treated as such. In this case, Travel::Status::DE::IRIS merges
+the results and indicates it by setting B<is_transfer> to a true value.
+
+In case of a transfer, B<train_id> and B<train_no> are set to the "new"
+value, the old ones are available in B<old_train_id> and B<old_train_no>.
+
=item $result->line
Train type with line (such as C<< S 1 >>) if available, type with number
@@ -593,6 +612,18 @@ DateTime(3pm) object corresponding to the point in time when the message was
entered, the string is the message. Note that neither duplicates nor superseded
messages are filtered from this list.
+=item $result->old_train_id
+
+Numeric ID of the pre-transfer train. Seems to be unique for a year and
+trackable across stations. Only defined if a transfer took place,
+see also B<is_transfer>.
+
+=item $result->old_train_no
+
+Number of the pre-tarnsfer train, unique per day. E.g. C<< 2225 >> for
+C<< IC 2225 >>. See also B<is_transfer>. Only defined if a transfer took
+place, see also B<is_transfer>.
+
=item $result->origin
Alias for route_start.