diff options
| -rwxr-xr-x | perl-install/standalone/drakbackup | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 2b217215e..3adffdd64 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -123,6 +123,7 @@ my $daemon_media = ''; my $hd_quota = 0; my $where_net = 0; my $where_hd = 1; +my $use_hd = 1; my $del_hd_files = 0; my $where_cd = 0; my $where_tape = 0; @@ -706,7 +707,8 @@ sub read_conf_file() { $backup_user_versions = 1; } # deal with users that may have been deleted from the system - check_valid_users() if $cfg_file_exist; + check_valid_users() if $cfg_file_exist; + $use_hd = !($where_cd || $where_tape || $where_net); } sub verify_mail_setup() { @@ -2688,7 +2690,7 @@ sub wizard_step2() { 0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub { destroy_widget(); advanced_where_hd(\&wizard_step2); - }), $where_hd), + }), $use_hd), ), 0, gtkpack_(new Gtk2::HBox(0, 15), 0, my $check_wizard_net = new Gtk2::CheckButton(N("Across Network")), @@ -2734,23 +2736,13 @@ sub wizard_step2() { if ($where_tape) { $where_cd = 0; $where_net = 0 }; refresh_wizard_step2(); }); - if (!$where_hd && !$where_cd && !$where_net) { - $in->ask_warn(N("Error"), N("Please select media for backup...")); - fonction_env(\$box2, \&wizard_step2, \&wizard, \&wizard_step2); - } else { - fonction_env(\$box2, \&wizard_step2, \&wizard, undef); - } + fonction_env(\$box2, \&wizard_step2, \&wizard, undef); button_box_wizard(); $up_box->show_all; } sub refresh_wizard_step2() { - $where_hd = 1; - if (!$where_hd && !$where_cd && !$where_net) { - $next_widget = \&wizard_step2 - } else { - $next_widget = \&wizard_step3 - } + $use_hd = !($where_tape || $where_cd || $where_net); destroy_widget(); wizard_step2(); } |