From 607e692cb3d274924766113085caf388e22e3a99 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Thu, 7 Mar 2024 06:39:06 +0100
Subject: further shorten short codes

---
 lib/Travel/Status/DE/DBWagenreihung.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/Travel/Status')

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index 6f9440c..787f020 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -432,6 +432,8 @@ sub wagongroup_description {
 		}
 		$ret .= " $power_desc{$powertype}";
 		$short //= $ret;
+		$short =~ s{elektrischer }{E-};
+		$short =~ s{[Ll]\Kokomotive}{ok};
 	}
 
 	if ( @model > 1 ) {
-- 
cgit v1.2.3