[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/04 23:56:51

Modified files:
	installer      : install.pl 

Log message:
	getting rid of hardcoded language hash, using Languages.pm now

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

Patches:
Index: install.pl
===================================================================
RCS file: /sources/koha/koha/installer/Attic/install.pl,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -b -r1.1.2.7 -r1.1.2.8
--- install.pl	4 Mar 2007 21:48:49 -0000	1.1.2.7
+++ install.pl	4 Mar 2007 23:56:51 -0000	1.1.2.8
@@ -19,14 +19,7 @@
 my ($template, $loggedinuser, $cookie);
 
 
-my %language=(
-'en'=>'English',
-'zh'=>'Chinese',
-'pt'=>'Portuguese',
-'fr'=>'French',
-'sp'=>'Spanish',
-'pl'=>'Polish',
-'hu'=>'Hungarian');
+my $all_languages=getAllLanguages();
 
 if (defined($language) ){
   setlanguagecookie($query,$language,"install.pl?step=1");
@@ -240,7 +233,7 @@
     }
     my @list;
     map {push @list,{"level"=>$_,"fwklist"=>$hashlevel{$_}}} keys %hashlevel;
-    $template->param("fwklanguage"=>$language{$lang},
+    $template->param("fwklanguage"=>$all_languages->{'language_code'}->{$lang},
                      "list"=>\@list);
     $template->param("$op"=>1);
   } elsif ( $op && $op eq 'selectframeworks'){