From a4b3998ec5d4abe0ed17ca7251dd3e6db6d321d3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 12 Nov 2002 14:34:34 +0000 Subject: update for new printerdrake --- perl-install/install_steps.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index c4f92b8bc..4b726729a 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -695,22 +695,22 @@ sub configurePrinter { $o->do_pkgs->install('foomatic', 'printer-utils','printer-testpages', if_($o->do_pkgs->is_installed('gimp'), 'gimpprint')); - require printer; - eval { add2hash($o->{printer} ||= {}, printer::getinfo($o->{prefix})) }; #- get existing configuration. + require printer::main; + eval { add2hash($o->{printer} ||= {}, printer::main::getinfo($o->{prefix})) }; #- get existing configuration. - require printerdrake; - printerdrake::install_spooler($o->{printer}, $o); #- not interactive... + require printer::printerdrake; + printer::printerdrake::install_spooler($o->{printer}, $o); #- not interactive... foreach (values %{$o->{printer}{configured} || {}}) { log::l("configuring printer queue " . $_->{queuedata}{queue} || $_->{QUEUE}); #- when copy is so adulée (sorry french taste :-) #- and when there are some configuration in one place and in another place... $o->{printer}{currentqueue} = {}; - printer::copy_printer_params($_->{queuedata}, $o->{printer}{currentqueue}); - printer::copy_printer_params($_, $o->{printer}); + printer::main::copy_printer_params($_->{queuedata}, $o->{printer}{currentqueue}); + printer::main::copy_printer_params($_, $o->{printer}); #- setup all configured queues, which is not the case interactively where #- only the working queue is setup on configuration. - printer::configure_queue($o->{printer}); + printer::main::configure_queue($o->{printer}); } } -- cgit v1.2.1