diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 14dd69f39..f8c51fccd 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1500,10 +1500,21 @@ sub restore_step_sys { sub restore_step2 { my $retore_step2; + my $restore_other_src;# = 0; gtkpack($advanced_box, $retore_step2 = gtkpack_(new Gtk::VBox(0,10), 1, new Gtk::VBox(0,10), + 1, new Gtk::VBox(0,10), + 0, gtkpack_(new Gtk::HBox(0,10), + 0, my $check_restore_other_src = new Gtk::CheckButton(_("select an other media to find backups")), + 1, new Gtk::HBox(0,10), + 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Other Media")), + clicked => sub { + ${$central_widget}->destroy(); +# advanced_where_hd(\&wizard_step2); + }), $restore_other_src ), + ), 0, my $check_restore_sys = new Gtk::CheckButton(_("Restore system")), 0, my $check_restore_user = new Gtk::CheckButton(_("Restore Users")), 0, my $check_restore_other = new Gtk::CheckButton(_("Restore Other")), @@ -1517,6 +1528,7 @@ sub restore_step2 { ); foreach ([$check_restore_sys, \$restore_sys], [$check_restore_user, \$restore_user], + [$check_restore_other_src, \$restore_other_src], [$check_restore_other, \$restore_other]) { my $ref = $_->[1]; gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { @@ -1530,10 +1542,14 @@ sub restore_step2 { } gtksignal_connect(gtkset_active($check_restore_other_path, $restore_other_path), toggled => sub { $restore_other_path = $restore_other_path ? 0 : 1; - ${$central_widget}->destroy(); $current_widget->(); }); +# gtksignal_connect(gtkset_active($check_restore_other_src, $restore_other_src), toggled => sub { +# $restore_other_src = $restore_other_src ? 0 : 1; +# ${$central_widget}->destroy(); +# $current_widget->(); +# }); if (!$restore_sys && !$restore_user && !$restore_other) { $next_widget = \&message_norestore_box; } elsif ($restore_sys && $backup_sys_versions) { $next_widget = \&restore_step_sys; } elsif ($restore_user) { $next_widget = \&restore_step_user;} @@ -1556,9 +1572,7 @@ sub restore_box { my $check_restore_other; find_backup_to_restore(); button_box_restore_main(); -# @user_list_to_restore = @user_backuped; - $DEBUG and print "other_backuped : $other_backuped \nsys_backuped : $sys_backuped \nuser_backuped : @user_backuped\n"; if ($other_backuped || $sys_backuped || @user_backuped) { gtkpack($advanced_box, $retore_box = gtkpack_(new Gtk::HBox(0,1), |