summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-05-01 12:37:20 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-05-01 12:37:20 +0200
commit6e1412916122065df4d09d22997d3f16a532ebed (patch)
tree2da0e1566424b14b393baf972913f73827c384a1 /lib/Travel
parent6af45f1429d38c9759a28fbdb00154eaa4561b33 (diff)
IRIS/Result: Remove set_tl logic -- turns out it's not required
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm16
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm10
2 files changed, 6 insertions, 20 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 1178c4f..7cd8aec 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -224,7 +224,6 @@ sub get_realtime {
for my $s ( $xml->findnodes('/timetable/s') ) {
my $id = $s->getAttribute('id');
- my $e_tl = ( $s->findnodes('./tl') )[0];
my $e_ar = ( $s->findnodes('./ar') )[0];
my $e_dp = ( $s->findnodes('./dp') )[0];
my @e_refs = $s->findnodes('./ref/tl');
@@ -263,16 +262,11 @@ sub get_realtime {
$result->set_messages(%messages);
- if ($e_tl) {
- $result->set_tl(
- class => $e_tl->getAttribute('f'), # D N S F
- unknown_t => $e_tl->getAttribute('t'), # p
- train_no => $e_tl->getAttribute('n'), # dep number
- type => $e_tl->getAttribute('c'), # S/ICE/ERB/...
- line_no => $e_tl->getAttribute('l'), # 1 -> S1, ...
- unknown_o => $e_tl->getAttribute('o'), # owner: 03/80/R2/...
- );
- }
+ # note: A departure may also have a ./tl attribute. However, we do
+ # not need to process it because it only matters for departures which
+ # are not planned (or not in the plans we requested). However, in
+ # those cases we already called add_result earlier, which reads ./tl
+ # by itself.
for my $e_ref (@e_refs) {
$result->add_raw_ref(
class => $e_ref->getAttribute('f'), # D N S F
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index bc3a61d..8d4d1c4 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -317,14 +317,6 @@ sub add_raw_ref {
return $self;
}
-sub set_tl {
- my ( $self, %attrib ) = @_;
-
- # TODO
-
- return $self;
-}
-
sub set_unscheduled {
my ( $self, $unscheduled ) = @_;
@@ -732,7 +724,7 @@ sub TO_JSON {
delete $copy{replaced_by};
delete $copy{replacement_for};
- return { %copy };
+ return {%copy};
}
1;