diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-09-16 10:49:50 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-09-16 10:49:50 +0000 |
| commit | e285ee8f5334033063745a132bd3016f1f6ddca1 (patch) | |
| tree | 1fd4859a79fd6a9acd5a6723e28c404a885bfb3e /perl-install/install_steps_interactive.pm | |
| parent | ca4c1827f078272cd43611abd3d641db8f2ad90a (diff) | |
| download | drakx-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.pm | 16 |
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; |