summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-20 13:13:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-20 13:13:42 +0000
commit48795c4189fd844cd6b41793a0b2ef36edafb2c6 (patch)
treec63e3e01223ad3931abd6f694748cf1037425260 /perl-install
parent56e71f5e6b85f7ebc4c275ed2017ee30b97dc441 (diff)
downloaddrakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar
drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.gz
drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.bz2
drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.tar.xz
drakx-48795c4189fd844cd6b41793a0b2ef36edafb2c6.zip
(loadSavePackagesOnFloppy): add a "Cancel" button
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 3f4831ed4..28a6446d6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -563,7 +563,7 @@ sub loadSavePackagesOnFloppy {
my $choice = $o->ask_from_listf('',
_("Please choose load or save package selection on floppy.
The format is the same as auto_install generated floppies."),
- sub { translate($_[0]{text}) },
+ sub { $_[0]{text} },
[ { text => _("Load from floppy"), code => sub {
while (1) {
my $w = $o->wait_message(_("Package selection"), _("Loading from floppy"));
@@ -587,6 +587,7 @@ The format is the same as auto_install generated floppies."),
log::l("save package selection to floppy");
install_any::g_default_packages($o, 'quiet');
} },
+ { text => _("Cancel") },
]);
$choice->{code} and $choice->{code}();
}