shorten_destination: add special case for Düsseldorf (prefix "D-", not "Düsseldorf")

1 files changed, 4 insertions, 0 deletions

diff --git a/index.pl b/index.pl
index afa3c27..4951878 100644
--- a/index.pl
+++ b/index.pl
@@ -207,6 +207,10 @@ sub shorten_destination {
 		$dest =~ s{ ^ $city \s }{}ix;
 	}
 
+	if ( $city =~ m{ ^ ( D | Duesseldorf | Düsseldorf ) $ }ix ) {
+		$dest =~ s{ ^ D - }{}ix;
+	}
+
 	if ( length($dest) > 20 ) {
 		     $dest =~ s{^Dortmund}{DO}
 		  or $dest =~ s{^Duisburg}{DU}