[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"=>\@list);
     $template->param("$op"=>1);
   } elsif ( $op && $op eq 'selectframeworks'){