summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-09-16 10:49:50 +0000
committerFrancois Pons <fpons@mandriva.com>2003-09-16 10:49:50 +0000
commite285ee8f5334033063745a132bd3016f1f6ddca1 (patch)
tree1fd4859a79fd6a9acd5a6723e28c404a885bfb3e /perl-install/install_steps_interactive.pm
parentca4c1827f078272cd43611abd3d641db8f2ad90a (diff)
downloaddrakx-e285ee8f5334033063745a132bd3016f1f6ddca1.tar
drakx-e285ee8f5334033063745a132bd3016f1f6ddca1.tar.gz
drakx-e285ee8f5334033063745a132bd3016f1f6ddca1.tar.bz2
drakx-e285ee8f5334033063745a132bd3016f1f6ddca1.tar.xz
drakx-e285ee8f5334033063745a132bd3016f1f6ddca1.zip
added question to ask for recovering the system in recover mode.
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 41a386759..f57c78c6b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -81,13 +81,15 @@ sub acceptLicense {
my $r = 'Refuse';
- $o->ask_from_({ title => N("License agreement"),
- cancel => N("Quit"),
- messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
- interactive_help_id => 'acceptLicense',
- callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
- },
- [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ])
+ ($::recovery ?
+ $o->ask_yesorno('', N("Do you want to recover your system?"), 0) :
+ $o->ask_from_({ title => N("License agreement"),
+ cancel => N("Quit"),
+ messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
+ interactive_help_id => 'acceptLicense',
+ callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
+ },
+ [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]))
or do {
install_any::ejectCdrom();
$o->exit;