[Koha-cvs] CVS: koha/C4 Output.pm,1.45,1.46

[Ambrose Li]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4553

Modified Files:
	Output.pm 
Log Message:
This allows the user to type zh_TW and still get Chinese from the zh-TW
directory.


Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -r1.45 -r1.46
*** Output.pm	2 Dec 2003 22:13:25 -0000	1.45
--- Output.pm	10 Feb 2004 00:43:21 -0000	1.46
***************
*** 130,137 ****
    foreach my $th (@themes) {
      foreach my $la (@languages) {
! 	if (-e "$htdocs/$th/$la/$tmpl") {
! 	    $theme = $th;
! 	    $lang = $la;
! 	    last THEME;
  	}
      }
--- 130,141 ----
    foreach my $th (@themes) {
      foreach my $la (@languages) {
! 	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 =~ /[-_]/;
  	}
      }