From 7484c79bb36e5d23bf639ca1eb8ad551245d9cf2 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Wed, 18 Feb 2004 23:46:47 +0000
Subject: QA - Encourage user to finish configuring media before leaving
 wizard.

---
 perl-install/standalone/drakbackup | 46 ++++++++++++++++----------------------
 1 file changed, 19 insertions(+), 27 deletions(-)

(limited to 'perl-install/standalone/drakbackup')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 4979d4aa1..0bf02270b 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -54,7 +54,6 @@ my @other_list_to_restore;
 my $button_box;
 my $button_box_tmp;
 my $next_widget;
-my $sav_next_widget;
 my $system_state;
 my $restore_state;
 my $save_path_entry;
@@ -2068,8 +2067,9 @@ sub advanced_where_net_types {
 	set_help_tip($check_use_expect, 'use_expect');
 	set_help_tip($check_remember_pass, 'remember_pass');
 	set_help_tip($host_path_entry, 'dir_or_module');
-    if ($previous_function) { 
-		fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function);
+    if ($previous_function) {
+		fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function, \&wizard_step3);
+		button_box_wizard();
     } else { 
 		fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where);
 	}
@@ -2197,7 +2197,8 @@ sub advanced_where_cd {
 	set_help_tip($combo_where_cdrecord_device, 'cdrecord_device');
 	
     if ($previous_function) { 
-		fonction_env(\$box_where_cd, \&advanced_where_cd, \&$previous_function); 
+		fonction_env(\$box_where_cd, \&advanced_where_cd, \&$previous_function, \&wizard_step3); 
+		button_box_wizard();
 	} else { 
 		fonction_env(\$box_where_cd, \&advanced_where_cd, \&advanced_where); 
 	}
@@ -2291,7 +2292,8 @@ sub advanced_where_tape {
 		$tape_device = $combo_where_tape_device->entry->get_text;
 	}); 
     if ($previous_function) { 
-		fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function); 
+		fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function, \&wizard_step3); 
+		button_box_wizard();
 	} else { 
 		fonction_env(\$box_where_tape, \&advanced_where_tape, \&advanced_where); 
 	}
@@ -2345,7 +2347,8 @@ sub advanced_where_hd {
 		}
 	});
     if ($previous_function) { 
-		fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function); 
+		fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, \&wizard_step3); 
+		button_box_wizard();
 	} else { 
 		fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where); 
 	}
@@ -2643,7 +2646,14 @@ sub advanced_box() {
 ################################################  WIZARD  ################################################  
 
 sub wizard_step3() {
-    my $box2;    
+	my $no_device = 1 if $where_cd && $cd_device eq '' || $where_tape && $tape_device eq '' || $where_net && $net_proto eq '';
+	if ($no_device) {
+		show_warning("f", N("Backup destination not configured..."));
+		destroy_widget();
+    	wizard_step2();
+		return;
+	}
+	my $box2;    
     my $text = new Gtk2::TextView;
 	save_conf_file();
     read_conf_file();
@@ -2677,9 +2687,7 @@ sub wizard_step2() {
 					1, new Gtk2::VBox(0, 5),
 					0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
 						destroy_widget();
-						to_ok();
 						advanced_where_hd(\&wizard_step2);
-						to_normal();
 					}), $where_hd),
 				),
 				0, gtkpack_(new Gtk2::HBox(0, 15),
@@ -2687,9 +2695,7 @@ sub wizard_step2() {
 					1, new Gtk2::VBox(0, 5),
 					0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
 						destroy_widget();
-						to_ok();
 						advanced_where_net_types(\&wizard_step2);
-						to_normal();
 					}), $where_net),
 				),
  				0, gtkpack_(new Gtk2::HBox(0, 15),	      
@@ -2697,9 +2703,7 @@ sub wizard_step2() {
  					1, new Gtk2::VBox(0, 5),	
  					0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
  						destroy_widget();
-						to_ok();
  						advanced_where_cd(\&wizard_step2);
-						to_normal();
  					}), $where_cd),
  				),
  				0, gtkpack_(new Gtk2::HBox(0, 15),	      
@@ -2707,9 +2711,7 @@ sub wizard_step2() {
  					1, new Gtk2::VBox(0, 5),
  					0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
  						destroy_widget();
-						to_ok();
  						advanced_where_tape(\&wizard_step2);
-						to_normal();
  					}), $where_tape),
  				),
 				1, new Gtk2::VBox(0, 5),
@@ -2736,7 +2738,7 @@ sub wizard_step2() {
 	    $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, \&wizard_step3); 
+		fonction_env(\$box2, \&wizard_step2, \&wizard, undef); 
 	}
     button_box_wizard();
     $up_box->show_all;
@@ -4558,7 +4560,7 @@ sub button_box_wizard() {
 				interactive_mode_box() 
 			}),
 			1, new Gtk2::HBox(0, 0),
-			0, gtksignal_connect(Gtk2::Button->new($next_widget ? N("Previous") : N("Ok")), clicked => sub { 
+			0, gtksignal_connect(Gtk2::Button->new($previous_widget ? N("Previous") : N("Ok")), clicked => sub { 
 				destroy_widget();
 				$previous_widget ? $previous_widget->() : $next_widget->();
 			}),
@@ -4910,16 +4912,6 @@ sub adv_help() {
 	exec("drakhelp --id drakbackup") unless fork();
 }
 
-sub to_ok() {
-    $sav_next_widget = $next_widget;
-    $next_widget = undef;
-    button_box_wizard();
-}
-
-sub to_normal() {
-    $next_widget = $sav_next_widget;
-}
-
 sub destroy_widget() {
 	if ($central_widget ne '') {
 		$$central_widget->destroy;
-- 
cgit v1.2.1