summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/IRIS')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm96
1 files changed, 0 insertions, 96 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 719bc31..6b146d0 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -98,97 +98,6 @@ my %translation = (
900 => 'Anschlussbus wartet(?)',
);
-my %linemap = (
-
- #ABR => {
- # 200 => 19, # RE
- # # 893, 894, 895 do not uniquely identify a line
- #},
- #ERB => {
- # 200 => 13, # RE
- # 898 => 3, # RE
- # 899 => 3, # RE
- # 903 => 59, # RB
- #},
- #NWB => {
- # 750 => 10, # RE
- # 753 => 14, # RE
- #},
- RB => {
- 103 => 33,
- 118 => 38,
- 144 => 43,
- 146 => 53,
- 147 => 51,
- },
- RE => {
- 100 => 11,
- 101 => 1,
- 102 => 2,
- 104 => 4,
- 105 => 5,
- 106 => 6,
- 107 => 57,
- 108 => 8,
- 109 => 9,
- 112 => 42,
- 113 => 22,
- 325 => 7,
- },
- S => {
- 301 => 1,
- 302 => 2,
- 303 => 3,
- 304 => 4,
- 306 => 6,
- 308 => 8,
- 309 => 9,
- 311 => 1,
- 312 => 2,
- 313 => 3,
- 315 => 5,
- 316 => 6,
- 318 => 8,
- 319 => 9,
- 321 => 11,
- 331 => 11,
- 370 => 1,
- 371 => 1,
- 372 => 1,
- 373 => 1,
- 374 => 1,
- 375 => 1,
- 376 => 1,
- 430 => 3,
- 431 => 3,
- 432 => 3,
- 433 => 3,
- 460 => 31,
- 461 => 31,
- 462 => 31,
- 463 => 31,
- 464 => 31,
- 465 => 31,
- 466 => 31,
- 469 => 31,
- 470 => 1,
- 471 => 1,
- 472 => 1,
- 473 => 1,
- 474 => 1,
- 475 => 1,
- 476 => 1,
- 481 => 21,
- 482 => 21,
- 483 => 21,
- 484 => 21,
- 485 => 21,
- 486 => 21,
- 907 => 28,
- 908 => 28,
- },
-);
-
Travel::Status::DE::IRIS::Result->mk_ro_accessors(
qw(arrival date datetime delay departure is_cancelled is_transfer
is_unscheduled is_wing line_no old_train_id old_train_no platform raw_id
@@ -269,11 +178,6 @@ sub new {
$ref->{is_cancelled} = 0;
- if ( not defined $ref->{line_no} and length( $ref->{train_no} ) > 2 ) {
- my $train_prefix = substr( $ref->{train_no}, -5, 3 );
- $ref->{line_no} = $linemap{ $ref->{type} }{$train_prefix};
- }
-
return bless( $ref, $obj );
}