From 6dd0175109f9233b78b15ef1c0b7d10e4346ba3c Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Sat, 31 Aug 2002 19:59:54 +0000
Subject: - privacy text fix (choose good Language)

---
 mdkonline | 37 +++++++++++++++----------------------
 1 file changed, 15 insertions(+), 22 deletions(-)

diff --git a/mdkonline b/mdkonline
index de13e549..0eec764f 100755
--- a/mdkonline
+++ b/mdkonline
@@ -261,12 +261,12 @@ sub subscribe_mdkonline() {
     my $user_current=$ENV{'USER'};
     
     if (!$browser) {splash_warning( " ". _("Warning: No browser specified") ." "); return;}
-#    if ($initial_user ne "root" && $initial_user ne undef) {
-#	system("su -m -l $initial_user -c \"$browser $link_to_mdkonline &\"");
-#    } else {
-	system("$browser $link_to_mdkonline &");
-	
- #   }
+    #    if ($initial_user ne "root" && $initial_user ne undef) {
+    #	system("su -m -l $initial_user -c \"$browser $link_to_mdkonline &\"");
+    #    } else {
+    system("$browser $link_to_mdkonline &");
+   
+    #   }
     $check_subs->set_active(0);$Button_Next->set_sensitive(1); $button_subs->set_sensitive(0);
 }
 
@@ -594,6 +594,7 @@ sub get_on_privacy {
     my $table=new Gtk::Table( 1, 2, $false );
     my $text=new Gtk::Text(undef,undef);
     $text->set_editable($false);
+    my $translated = 1;
     $table->attach( $text, 0, 1, 0, 1,
                        [ 'expand', 'shrink', 'fill' ],
                        [ 'expand', 'shrink', 'fill' ],
@@ -601,24 +602,16 @@ sub get_on_privacy {
     my $vscrollbar = new Gtk::VScrollbar( $text->vadj );
     $table->attach( $vscrollbar, 1, 2, 0, 1, 'fill',
                        [ 'expand', 'shrink', 'fill' ], 0, 0 );
-    if ($ENV{LANG} eq "de") {
-	load_text($text,"$sharepath/privacy-de.txt");
-    }elsif ($ENV{LANG} eq "es") {
-	load_text($text,"$sharepath/privacy-es.txt");
-    }elsif ($ENV{LANG} eq "eu") {
-	load_text($text,"$sharepath/privacy-eu.txt");
-    }elsif ($ENV{LANG} eq "fr") {
-	load_text($text,"$sharepath/privacy-fr.txt");
-    }elsif ($ENV{LANG} eq "ro") {
-	load_text($text,"$sharepath/privacy-ro.txt");
-    }elsif ($ENV{LANG} eq "sv") {
-	load_text($text,"$sharepath/privacy-sv.txt");
-    }else {
-	load_text($text,"$sharepath/privacy.txt");
+
+    my @lang = qw(de es eu fr pl ro sv);
+    foreach $l (@lang) {
+	next if $ENV{LANG} !~ /$l/;
+	load_text($text,"$sharepath/privacy-$l.txt");
+	$translated = 0;
     }
+    $translated and load_text($text,"$sharepath/privacy.txt");
     $vbox->pack_start( $table, $true, $true, 0 );
-    
-}    
+ }    
 
 sub writ_on_pixmaps {
     my ($vbox, $pix_name, $step_label, $width, $height)=@_;
-- 
cgit v1.2.1