[Koha-cvs] koha/installer install.pl [rel_3_0]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Joshua Ferraro <kados>  07/03/05 00:23:09

Modified files:
        installer      : install.pl 

Log message:
        fixing language display for final step

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/installer/install.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.8&r2=1.1.2.9

Patches:
Index: install.pl
===================================================================
RCS file: /sources/koha/koha/installer/Attic/install.pl,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -b -r1.1.2.8 -r1.1.2.9
--- install.pl  4 Mar 2007 23:56:51 -0000       1.1.2.8
+++ install.pl  5 Mar 2007 00:23:09 -0000       1.1.2.9
@@ -233,7 +233,15 @@
     }
     my @list;
     map {push @list,{"level"=>$_,"fwklist"=>$hashlevel{$_}}} keys %hashlevel;
-    $template->param("fwklanguage"=>$all_languages->{'language_code'}->{$lang},
+    my $fwk_language;
+    for my $each_language(@$all_languages) {
+               warn "CODE".$each_language->{'language_code'};
+               warn "LANG:".$lang;
+               if ($lang eq $each_language->{'language_code'}) {
+                       $fwk_language = $each_language->{language_locale_name};
+               }
+    }
+    $template->param("fwklanguage"=>$fwk_language,
                      "list"=>address@hidden);
     $template->param("$op"=>1);
   } elsif ( $op && $op eq 'selectframeworks'){