From 969618a2c3a52a5be1762e4459ad8d7b2b5e4778 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 25 Jan 2017 23:21:29 +0100 Subject: Really remove linemap workaround --- lib/Travel/Status/DE/IRIS/Result.pm | 96 ------------------------------------- 1 file changed, 96 deletions(-) (limited to 'lib') 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 ); } -- cgit v1.2.3