From 5ae172cbc043276f1ae6e2ec4a843b53df6ad3bb Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Thu, 12 Sep 2002 18:42:18 +0000 Subject: utf8 fix --- drakwizard.pl | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'drakwizard.pl') diff --git a/drakwizard.pl b/drakwizard.pl index 45fffcac..4df0ab72 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -83,15 +83,6 @@ else { $in->exit; - -#sub _ { -# my ($format, @params) = @_; -# -# !$format and return; -# sprintf(Locale::gettext::gettext($format), @params);} -#} - - sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } sub get_parameter { @@ -107,7 +98,7 @@ sub get_parameter { ($Wizard_title, $lib_script, $perl_module, $rpm, $Wizard_pix_up) = @{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)}; if ($rpm) { if (!$in->do_pkgs->is_installed($rpm)) { - $in->ask_okcancel("error", _("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", $rpm)) and + $in->ask_okcancel("error", _("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm))) and $in->do_pkgs->install($rpm) or $in->exit; } -- cgit v1.2.1