From b55c137a2c9cd18c2218b4564ed8c3013444db3a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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