summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-12 14:45:29 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-12 14:45:29 +0000
commit8654b7eecff3391632803f1c835de299730a7ef6 (patch)
tree4ec517921c8d0717ee13f0fe07192bb19dcc6b9a /perl-install/install_steps_interactive.pm
parenta4b3998ec5d4abe0ed17ca7251dd3e6db6d321d3 (diff)
downloaddrakx-backup-do-not-use-8654b7eecff3391632803f1c835de299730a7ef6.tar
drakx-backup-do-not-use-8654b7eecff3391632803f1c835de299730a7ef6.tar.gz
drakx-backup-do-not-use-8654b7eecff3391632803f1c835de299730a7ef6.tar.bz2
drakx-backup-do-not-use-8654b7eecff3391632803f1c835de299730a7ef6.tar.xz
drakx-backup-do-not-use-8654b7eecff3391632803f1c835de299730a7ef6.zip
resync with latest printerdrake
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e18fccb2c..03d9f262d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1057,12 +1057,13 @@ sub configurePrinter {
my ($o, $clicked) = @_;
$::corporate && !$clicked and return;
- require printer;
- require printerdrake;
+ require printer::main;
+ require printer::printerdrake;
+ require printer::detect;
#- try to determine if a question should be asked to the user or
#- if he is autorized to configure multiple queues.
- my $ask_multiple_printer = ($::expert || $clicked) && 2 || scalar(printerdrake::auto_detect($o));
+ my $ask_multiple_printer = ($::expert || $clicked) && 2 || ($o && printer::detect::local_detect());
$ask_multiple_printer-- or return;
#- install packages needed for printer::getinfo()
@@ -1071,12 +1072,12 @@ sub configurePrinter {
#- take default configuration, this include choosing the right system
#- currently used by the system.
my $printer = $o->{printer} ||= {};
- eval { add2hash($printer, printer::getinfo($o->{prefix})) };
+ eval { add2hash($printer, printer::main::getinfo($o->{prefix})) };
$printer->{PAPERSIZE} = (($o->{lang} =~ /^en_US/) ||
($o->{lang} =~ /^en_CA/) ||
($o->{lang} =~ /^fr_CA/)) ? 'Letter' : 'A4';
- printerdrake::main($printer, $o, $ask_multiple_printer, sub { install_interactive::upNetwork($o, 'pppAvoided') });
+ printer::printerdrake::main($printer, $o, $ask_multiple_printer, sub { install_interactive::upNetwork($o, 'pppAvoided') });
}