summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup23
1 files changed, 19 insertions, 4 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index b2705d599..303f4b1da 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -171,6 +171,7 @@ my $custom_help;
my $button_box;
my $button_box_tmp;
my $next_widget;
+my $sav_next_widget;
my $system_state;
my $restore_state;
my $save_path_entry;
@@ -1446,8 +1447,8 @@ sub wizard_step3 {
),
),
);
- button_box_wizard_end();
fonction_env(\$box2, \&wizard_step3, \&wizard_step2, "");
+ button_box_wizard_end();
$up_box->show_all();
}
@@ -1466,7 +1467,9 @@ sub wizard_step2 {
0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure")),
clicked => sub {
${$central_widget}->destroy();
+ to_ok();
advanced_where_hd(\&wizard_step2);
+ to_normal();
}), $where_hd ),
),
0, gtkpack_(new Gtk::HBox(0, 15),
@@ -1475,7 +1478,9 @@ sub wizard_step2 {
0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure")),
clicked => sub {
${$central_widget}->destroy();
+ to_ok();
advanced_where_net(\&wizard_step2);
+ to_normal();
}), $where_net ),
),
# 0, gtkpack_(new Gtk::HBox(0, 15),
@@ -1502,7 +1507,6 @@ sub wizard_step2 {
),
);
$where_net = $where_net_ssh || $where_net_ftp;
- button_box_wizard();
foreach ([$check_wizard_hd, \$where_hd],
# [$check_wizard_cd, \$where_cd],
# [$check_wizard_tape, \$where_tape],
@@ -1521,6 +1525,7 @@ sub wizard_step2 {
}
if (!$where_hd && !$where_cd && !$where_net) { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&message_noselect_box)}
else { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&wizard_step3)}
+ button_box_wizard();
$up_box->show_all();
}
@@ -1574,7 +1579,7 @@ sub find_backup_to_restore {
my @user_backuped_tmp;
@user_backuped = ();
- -d $path_to_find_restore and my @list_backup_tmp2 = all($path_to_find_restore);
+ -d $path_to_find_restore and @list_backup_tmp2 = all($path_to_find_restore);
foreach (@list_backup_tmp2) {
s/\_base//gi;
s/\_incr//gi;
@@ -1715,7 +1720,7 @@ sub select_sys_data_to_restore {
my @list_tmp = ();
@sys_list_to_restore = ();
- -d $path_to_find_restore and my @list_tmp = grep /^backup/, all($path_to_find_restore);
+ -d $path_to_find_restore and @list_tmp = grep /^backup/, all($path_to_find_restore);
my @more_recent = split( ' ', $restore_step_sys_date);
my $more_recent = pop @more_recent;
foreach my $var_exist (grep /\_sys\_/, sort @list_tmp) {
@@ -3345,3 +3350,13 @@ Restore Step:
$central_widget = \$advanced_box_help;
$up_box->show_all();
}
+
+sub to_ok {
+ $sav_next_widget = $next_widget;
+ $next_widget = undef;
+ button_box_wizard();
+}
+
+sub to_normal {
+ $next_widget = $sav_next_widget;
+}