From 5d6c00b5f678512bfb8e34eabff16c4338dfd34e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Feb 2003 19:38:51 +0000
Subject: - fix calling configureTimezone - have country before timezone (gc
 wants it that way...)

---
 perl-install/install_steps_interactive.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 9f3ba1674..b2e6e8902 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -857,13 +857,7 @@ sub summary {
 	      clicked => sub { $o->selectMouse(1); mouse::write($o, $o->{mouse}) },
 	     };
 
-    my $timezone_manually_set;
-    push @l, { 
-	      label => N("Timezone"),
-	      val => sub { $o->{timezone}{timezone} },
-	      clicked => sub { $timezone_manually_set ||= $o->configureTimezone(1) },
-	     };
-    
+    my $timezone_manually_set;  
     push @l, { 
 	      label => N("Country"),
 	      val => sub { lang::c2name($o->{locale}{country}) },
@@ -876,6 +870,11 @@ sub summary {
 		  }
 	      },
 	     };
+    push @l, { 
+	      label => N("Timezone"),
+	      val => sub { $o->{timezone}{timezone} },
+	      clicked => sub { $timezone_manually_set = $o->configureTimezone(1) || $timezone_manually_set },
+	     };
 
     push @l, {
 	      label => N("Printer"),
-- 
cgit v1.2.1