summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-12 12:04:33 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-12 12:04:33 +0000
commit4cadcc3088075d32740cc479035c3c744c96a2ae (patch)
tree11d534dd415385e6479663e4f7d0c5e810bad9b3 /perl-install
parentd9b7bf292746fb16468f7630e60e61dfa62c0def (diff)
downloaddrakx-4cadcc3088075d32740cc479035c3c744c96a2ae.tar
drakx-4cadcc3088075d32740cc479035c3c744c96a2ae.tar.gz
drakx-4cadcc3088075d32740cc479035c3c744c96a2ae.tar.bz2
drakx-4cadcc3088075d32740cc479035c3c744c96a2ae.tar.xz
drakx-4cadcc3088075d32740cc479035c3c744c96a2ae.zip
fixed ask to configure a printer.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index a9af38b9d..d133fca5d 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -335,12 +335,12 @@ Does it work properly?"), 1) ? 'done' : 'change';
}
#- Program entry point for configuration with lpr or cups (stored in $mode).
-sub main($$$;$) {
- my ($printer, $in, $install, $upNetwork) = @_;
+sub main($$$$;$) {
+ my ($printer, $in, $ask_multiple_printer, $install, $upNetwork) = @_;
my ($queue, $continue) = ('', 1);
while ($continue) {
- if (!$::isStandalone && (!$::expert || %{$printer->{configured} || {}} == ())) {
+ if (!$ask_multiple_printer && %{$printer->{configured} || {}} == ()) {
$queue = $printer->{want} || $in->ask_yesorno(_("Printer"),
_("Would you like to configure a printer?"), 0) ? 'lp' : 'Done';
} else {