summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-15 09:59:37 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-15 09:59:37 +0000
commit97e0799a702ca8ffbb4ee610112744e662bd2236 (patch)
treee85f3e24b002b902962c72ea249d7ee4674dced0 /perl-install/standalone/drakbackup
parent84a2b110659c0d45545c070eddc49758f604787d (diff)
downloaddrakx-backup-do-not-use-97e0799a702ca8ffbb4ee610112744e662bd2236.tar
drakx-backup-do-not-use-97e0799a702ca8ffbb4ee610112744e662bd2236.tar.gz
drakx-backup-do-not-use-97e0799a702ca8ffbb4ee610112744e662bd2236.tar.bz2
drakx-backup-do-not-use-97e0799a702ca8ffbb4ee610112744e662bd2236.tar.xz
drakx-backup-do-not-use-97e0799a702ca8ffbb4ee610112744e662bd2236.zip
(interactive_mode_box) better make parameter optionnal
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 1673be673..01dc959e7 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -1100,7 +1100,7 @@ sub build_backup_files() {
my $msg = N("No changes to backup!");
show_warning("w", $msg);
$interactive and gtkset_mousecursor_normal();
- $interactive and interactive_mode_box(undef);
+ $interactive and interactive_mode_box();
results_to_logfile();
return 1;
}
@@ -3364,7 +3364,7 @@ sub catalog_restore {
my $media_check = restore_catalog_entry($cat_entry, ());
if (! $media_check) {
destroy_widget();
- interactive_mode_box(undef);
+ interactive_mode_box();
}
}
}),
@@ -3376,7 +3376,7 @@ sub catalog_restore {
my $media_check = restore_catalog_entry($cat_entry, @passed_files);
if (! $media_check) {
destroy_widget();
- interactive_mode_box(undef);
+ interactive_mode_box();
}
}
}),
@@ -3991,7 +3991,7 @@ sub button_box_wizard_end() {
pbutton(),
0, gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => sub {
save_conf_file();
- interactive_mode_box(undef);
+ interactive_mode_box();
}),
),
);
@@ -4286,8 +4286,8 @@ sub build_backup_box() {
sub interactive_mode_box {
- my ($mode) = @_;
- if ($mode eq "restore") {
+ my ($o_mode) = @_;
+ if ($o_mode eq "restore") {
$central_widget = \$box2;
restore_box();
return 0;
@@ -4367,7 +4367,7 @@ sub interactive_mode() {
),
);
setup_tooltips();
- interactive_mode_box(undef);
+ interactive_mode_box();
button_box_main();
$central_widget = \$box2;
$window1->realize;