diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-07 06:39:06 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-07 06:39:06 +0100 |
| commit | 607e692cb3d274924766113085caf388e22e3a99 (patch) | |
| tree | 1005377a585da33f184e7f1cbb09a3da482115bb | |
| parent | cbe7bc257ac2eb70fa6dc0d6f002abddb56c1feb (diff) | |
further shorten short codes
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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 ) { |