[tuxdroid-svn] r5411 - software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-09-16 11:47:42 +0200 (Wed, 16 Sep 2009)
New Revision: 5411

Modified:
   software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/TuxUtils.pas
   software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Unit1.pas
Log:
* Fixed a bug playing en_US attitune.


Modified: software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/TuxUtils.pas
===================================================================
--- software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/TuxUtils.pas	2009-09-16 09:30:49 UTC (rev 5410)
+++ software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/TuxUtils.pas	2009-09-16 09:47:42 UTC (rev 5411)
@@ -523,6 +523,7 @@
         if ( result <> 'en' )and (result <> 'fr') and (result <> 'no') and (result <> 'pt' )
          and(result <> 'nl') and (result <> 'nl_BE') and (result <> 'it') and (result <> 'es')
          and(result <> 'de') and (result <> 'ar') and (result <> 'da') and (result <> 'sv')
+         and(result <> 'en_US') and ( result <> 'en_GB' )
          then result := 'en';
 
         CloseKey;
@@ -530,6 +531,7 @@
     finally
       Free;
     end;
+    Result := Result[1] + Result[2];
 end;
 
 end.

Modified: software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Unit1.pas
===================================================================
--- software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Unit1.pas	2009-09-16 09:30:49 UTC (rev 5410)
+++ software_suite_v3/software/tool/tool-second-installer/trunk/tool-second-installer/Unit1.pas	2009-09-16 09:47:42 UTC (rev 5411)
@@ -894,4 +894,6 @@
   Form4.Visible := false;
 end;
 
+
+//
 end.