From 084fe3eb9603243753609c4c3742b01bf225e7b6 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 25 Dec 2020 20:22:42 +0100 Subject: add more wagon images --- lib/DBInfoscreen.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'lib') diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm index a0e027d..915b9fd 100644 --- a/lib/DBInfoscreen.pm +++ b/lib/DBInfoscreen.pm @@ -188,9 +188,23 @@ sub startup { elsif ( $train_type =~ m{ICE [12]} and $wagon_type !~ m{^I} ) { $ret = substr( $uic, 5, 4 ); } + elsif ( $train_type =~ m{ICE 3 Redesign} ) { + $ret = '3r_' . substr( $uic, 5, 4 ); + } + elsif ( $train_type =~ m{ICE 3} and substr( $uic, 5, 3 ) eq '406' ) + { + $ret = '3_' . substr( $uic, 5, 4 ); + } + elsif ( $train_type eq 'ICE 3 Velaro' ) { + $ret = substr( $uic, 5, 4 ); + } elsif ( $train_type =~ m{ICE 4} ) { $ret = substr( $uic, 4, 5 ); } + elsif ( $train_type =~ m{ICE T} and substr( $uic, 5, 3 ) eq '415' ) + { + $ret = substr( $uic, 5, 4 ); + } if ( $ret and $self->app->dbdb_wagon->{$ret} ) { return $ret; } -- cgit v1.2.3