From 1286644ded181eb6452b840d700420003b9aa444 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Tue, 10 Feb 2004 00:43:21 +0000
Subject: [PATCH] This allows the user to type zh_TW and still get Chinese from
 the zh-TW directory.

---
 C4/Output.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/C4/Output.pm b/C4/Output.pm
index a01ab51c94..2380af9586 100644
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -129,10 +129,14 @@ sub themelanguage {
   THEME:
   foreach my $th (@themes) {
     foreach my $la (@languages) {
-	if (-e "$htdocs/$th/$la/$tmpl") {
-	    $theme = $th;
-	    $lang = $la;
-	    last THEME;
+	for (my $pass = 1; $pass <= 2; $pass += 1) {
+	  $la =~ s/([-_])/ $1 eq '-'? '_': '-' /eg if $pass == 2;
+	  if (-e "$htdocs/$th/$la/$tmpl") {
+	      $theme = $th;
+	      $lang = $la;
+	      last THEME;
+	  }
+	last unless $la =~ /[-_]/;
 	}
     }
   }
-- 
2.39.5