From e2b89187c23d32a83021a2e17ec0b02f71ce07ae Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 14 Sep 2004 03:11:59 +0000
Subject: sanitize capitale usage on buttons

---
 perl-install/standalone/drakTermServ | 4 ++--
 perl-install/standalone/drakbackup   | 3 +--
 perl-install/standalone/drakfont     | 2 +-
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index cc696b0fd..b5dce9d55 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -198,7 +198,7 @@ sub display_error {
 	    $error_box = gtkpack_(Gtk2::VBox->new(0,0),
 			1, Gtk2::Label->new($message),
 			0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
-				gtksignal_connect(Gtk2::Button->new(N("OK")), clicked => sub {
+				gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub {
 					destroy_widget();
 				}),
 			),
@@ -471,7 +471,7 @@ sub text_view {
 				),
 			),
 			0, gtkpack(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
-				gtksignal_connect(my $ok_button = Gtk2::Button->new(N("OK")), clicked => sub { 
+				gtksignal_connect(my $ok_button = Gtk2::Button->new(N("Ok")), clicked => sub { 
 					destroy_widget() if $option eq "close";
 					do_wizard() if $option eq "wizard"; 
 				}),
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 1c92f310d..9edfe6c13 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -2516,8 +2516,7 @@ sub system_state() {
 		}
 		
 		#- tape and CDRW share some features
-		my $erase_media = N("NO");
-		$erase_media = N("YES") if $conf{MEDIA_ERASE} && ($conf{USE_CD} || $conf{USE_TAPE}); 
+		my $erase_media = $conf{MEDIA_ERASE} && ($conf{USE_CD} || $conf{USE_TAPE}) ? N("Yes") : N("No");
 		$conf{USE_CD} and $system_state .= N("\n- Burn to CD");
 		$conf{USE_CD} and $conf{CDRW} and $system_state .= N("RW");
 		$conf{USE_CD} and $system_state .= N(" on device: %s", $conf{CD_DEVICE});
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 828a969ac..1bf891793 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -574,7 +574,7 @@ sub appli_choice() {
 	    ),
 	   ],
 	   [
-	    gtksignal_connect(Gtk2::Button->new(N("OK")),
+	    gtksignal_connect(Gtk2::Button->new(N("Ok")),
 			      clicked => \&exitdialog,
 			     ),
 	   ],
-- 
cgit v1.2.1