Unverified Commit 607e692c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

further shorten short codes

parent cbe7bc25

lib/Travel/Status/DE/DBWagenreihung.pm

+2 −0
Original line number Diff line number Diff line
@@ -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 ) {