From 6377b7bff399b2114c54d36d44206a54766485d6 Mon Sep 17 00:00:00 2001 From: Cassidy Dingenskirchen Date: Fri, 2 May 2025 18:47:12 +0200 Subject: Journey: remove train number from train type if detected --- lib/Travel/Status/DE/DBRIS/Journey.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/Travel/Status/DE/DBRIS/Journey.pm b/lib/Travel/Status/DE/DBRIS/Journey.pm index ad3fad4..22cf7ff 100644 --- a/lib/Travel/Status/DE/DBRIS/Journey.pm +++ b/lib/Travel/Status/DE/DBRIS/Journey.pm @@ -42,6 +42,14 @@ sub new { ( $ref->{type}, $ref->{number} ) = split( qr{\s+}, $ref->{train} ); } + # For some trains, the train type also contains the train number like "MEX19161" + # If we can detect this, remove the number from the train type + if ( $ref->{train_no} and $ref->{type} + and $ref->{type} =~ qr{ (? [^\d]+ ) $ref->{train_no} $ }x ) + { + $ref->{type} = $+{actualtype}; + } + # The line number seems to be encoded in the trip ID if ( not defined $ref->{number} and $opt{id} =~ m{ [#] ZE [#] (? [^#]+ ) [#] ZB [#] }x ) -- cgit v1.2.3