summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-02-23 23:16:09 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-02-23 23:16:09 +0000
commit47be67609da1955b24b40645f90a90653be26834 (patch)
treedbd98014e6a25ad0777b3887d6ca3156493f89c5 /perl-install/printerdrake.pm
parent7527d552a544aed46aa197ac7243793257cf63e5 (diff)
downloaddrakx-47be67609da1955b24b40645f90a90653be26834.tar
drakx-47be67609da1955b24b40645f90a90653be26834.tar.gz
drakx-47be67609da1955b24b40645f90a90653be26834.tar.bz2
drakx-47be67609da1955b24b40645f90a90653be26834.tar.xz
drakx-47be67609da1955b24b40645f90a90653be26834.zip
Added automatic configuration of printers in Star Office and Open Office.
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 5cd012081..04d5a4e5e 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -2291,6 +2291,13 @@ sub main {
$printer->{DEFAULT} = '';
}
}
+
+ # Configure the current printer queues in applications
+ {
+ my $w = $in->wait_message('', _("Configuring applications..."));
+ printer::configureapplications($printer);
+ }
+
if ($editqueue) {
# The user was either in the printer modification dialog and did
# not close it or he had set up a new queue and said that the test
@@ -2799,6 +2806,14 @@ What do you want to modify on this printer?",
$menushown ||
$in->ask_yesorno('',_("Do you want to configure another printer?")));
}
+
+ # Configure the current printer queue in applications when main menu
+ # will not be shown (During installation in "Recommended" mode)
+ if ($::isInstall && !$::expert && !$menushown && !$continue) {
+ my $w = $in->wait_message('', _("Configuring applications..."));
+ printer::configureapplications($printer);
+ }
+
# Delete some variables
$printer->{OLD_QUEUE} = "";
$printer->{QUEUE} = "";