summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2020-12-25 20:22:42 +0100
committerDaniel Friesel <derf@finalrewind.org>2020-12-25 20:22:42 +0100
commit084fe3eb9603243753609c4c3742b01bf225e7b6 (patch)
tree01a7fca7ec8afe264e0f2a06e1946dc87bab8337 /lib
parent0f9dde3810a3b86e0769e6013a19ccf0faeba0a3 (diff)
add more wagon images
Diffstat (limited to 'lib')
-rw-r--r--lib/DBInfoscreen.pm14
1 files changed, 14 insertions, 0 deletions
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;
}