- translate error dialog titles

- make error messages use upcase as first letter

1 files changed, 4 insertions, 4 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index 95ea2aab..9c5cc6a2 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -66,7 +66,7 @@ require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm";
 my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]);
 if ($err) {
     $::Wizard_finished = 1;
-    $in->ask_okcancel("error", N($err));
+    $in->ask_okcancel(N("Error"), N($err));
     $in->exit;
 }
 wizard($wiz->{o});
@@ -85,7 +85,7 @@ sub wizard {
     if (defined $o->{init}) {
 	my ($res, $msg) = &{$o->{init}};
 	if (!$res) {
-	    $in->ask_okcancel("error", $msg);
+	    $in->ask_okcancel(N("Error"), $msg);
 	    exit if ! $::testing
 	}
     }
@@ -134,11 +134,11 @@ sub check_rpm {
     my ($rpms) = @_;
     foreach my $rpm (@$rpms) {
 	if (!$in->do_pkgs->is_installed($rpm)) {
-	    if ($in->ask_okcancel("error", N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) {
+	    if ($in->ask_okcancel(N("Error"), N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) {
 		$::testing and next;
 		if (!$in->do_pkgs->install($rpm)) {
 		    $::Wizard_finished = 1;
-		    $in->ask_okcancel("error", N("installation failed"));
+		    $in->ask_okcancel(N("Error"), N("Installation failed"));
 		    $in->exit;
 		}
 	    }