From b55c137a2c9cd18c2218b4564ed8c3013444db3a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 7 Jan 2003 12:55:44 +0000 Subject: printerdrake is back alive --- perl-install/printer/main.pm | 4 ++++ perl-install/printer/printerdrake.pm | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) (limited to 'perl-install/printer') diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index 3e8788d1f..fe7c03cfa 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -15,6 +15,10 @@ use printer::office; use printer::detect; use services; +use vars qw(@ISA @EXPORT); + +@ISA = qw(Exporter); +@EXPORT = qw(%printer_type %printer_type_inv); #-location of the printer database in an installed system my $PRINTER_DB_FILE = "/usr/share/foomatic/db/compiled/overview.xml"; diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 7da47c1a9..55e44ffed 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -20,7 +20,7 @@ use printer::data; sub choose_printer_type { my ($printer, $in) = @_; $in->set_help('configurePrinterConnected') if $::isInstall; - $printer->{str_type} = $printer::printer_type_inv{$printer->{TYPE}}; + $printer->{str_type} = $printer_type_inv{$printer->{TYPE}}; my $autodetect = 0; $autodetect = 1 if $printer->{AUTODETECT}; my @printertypes = printer::main::printer_type($printer); @@ -41,7 +41,7 @@ Printers on remote CUPS servers you do not have to configure here; these printer ] ) or return 0; $printer->{AUTODETECT} = $autodetect ? 1 : undef; - $printer->{TYPE} = $printer::printer_type{$printer->{str_type}}; + $printer->{TYPE} = $printer_type{$printer->{str_type}}; 1; } @@ -2682,7 +2682,7 @@ sub setup_default_spooler { [ printer::main::spooler() ], $spoolers{$printer->{SPOOLER}}, ) or return; - $printer->{SPOOLER} = $printer::spooler{$str_spooler}; + $printer->{SPOOLER} = $spoolers{$str_spooler}; # Install the spooler if not done yet if (!install_spooler($printer, $in, $upNetwork)) { $printer->{SPOOLER} = $oldspooler; @@ -3027,7 +3027,7 @@ sub main { if ($newqueue) { $printer->{NEW} = 1; #- Set default values for a new queue - $printer::printer_type_inv{$printer->{TYPE}} or + $printer_type_inv{$printer->{TYPE}} or $printer->{TYPE} = printer::default::printer_type($printer); $printer->{currentqueue} = { queue => $queue, foomatic => 0, -- cgit v1.2.1