summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-08-28 19:46:37 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-08-28 19:46:37 +0000
commitb6c65f31df94644fc38abadb11234082c821adff (patch)
tree95b883c107b44daa19b6b374c898bb163378f648 /perl-install
parent05170b4e2f949dc0190029815b98672a8896f940 (diff)
downloaddrakx-b6c65f31df94644fc38abadb11234082c821adff.tar
drakx-b6c65f31df94644fc38abadb11234082c821adff.tar.gz
drakx-b6c65f31df94644fc38abadb11234082c821adff.tar.bz2
drakx-b6c65f31df94644fc38abadb11234082c821adff.tar.xz
drakx-b6c65f31df94644fc38abadb11234082c821adff.zip
Moved some stuff from mainwindow_interactive() to main() and init() as
it has nothing to do with the main window.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm26
1 files changed, 13 insertions, 13 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 42730f259..daad043e0 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -3538,6 +3538,13 @@ sub main {
# clicked on the "Configure" button in the "Summary" step. We do not
# call it during the preparation of the "Summary" screen.
if (!$::isInstall || $install_step == 1) {
+ # Ask for a spooler when none is defined yet
+ $printer->{SPOOLER} ||=
+ setup_default_spooler($printer, $in, $upNetwork) || return;
+
+ # Save the default spooler
+ printer::default::set_spooler($printer);
+
mainwindow_interactive($printer, $in, $upNetwork);
}
# In the installation we call the clean-up manually when we leave
@@ -3615,6 +3622,12 @@ sub init {
printer::main::configureapplications($printer);
undef $w;
+ # Turn on printer autodetection by default
+ $printer->{AUTODETECT} = 1;
+ $printer->{AUTODETECTLOCAL} = 1;
+ $printer->{AUTODETECTNETWORK} = 1;
+ $printer->{AUTODETECTSMB} = 1;
+
# Mark this part as done, it should not be done a second time.
if ($::isInstall) {
$::printerdrake_initialized = 1;
@@ -3627,19 +3640,6 @@ sub mainwindow_interactive {
my ($printer, $in, $upNetwork) = @_;
- # Ask for a spooler when none is defined yet
- $printer->{SPOOLER} ||=
- setup_default_spooler($printer, $in, $upNetwork) || return;
-
- # Save the default spooler
- printer::default::set_spooler($printer);
-
- # Turn on printer autodetection by default
- $printer->{AUTODETECT} = 1;
- $printer->{AUTODETECTLOCAL} = 1;
- $printer->{AUTODETECTNETWORK} = 1;
- $printer->{AUTODETECTSMB} = 1;
-
# Control variables for the main loop
my ($menuchoice, $cursorpos) = ('', '::');