[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 =~ /[-_]/;
        }
      }