add more wagon images

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;
 			}