From 3a93e932ca7e557ba6f62f9764acde9fec97051d Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Fri, 3 Sep 1999 18:45:13 +0000
Subject: printer is better

---
 perl-install/printer.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index fc6fe1f73..a6aac75bf 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -3,7 +3,7 @@ package printer;
 use diagnostics;
 use strict;
 
-use vars qw(%thedb %printer_type %printer_type_inv);
+use vars qw(%thedb %printer_type %printer_type_inv @papersize_type);
 
 ########################################################################################
 # misc imports
@@ -133,7 +133,7 @@ my %ex_printcap_entry =
    RESOLUTION   => "NAxNA",                         #ghostscript resolution to use
    PAPERSIZE    => "letter",                        #Papersize
    BITSPERPIXEL => "necp2x6",                       #ghostscript color option                    
-   CRLF         => "YES" ,                            #Whether or not to do CR/LF xlation         
+   CRLF         => 1 ,                            #Whether or not to do CR/LF xlation         
 
    TYPE         => "LOCAL",
 
@@ -196,6 +196,8 @@ my $PRINTER_NCP    = "NCP";
 
 %printer_type_inv = reverse %printer_type;
 
+@papersize_type = qw(letter legal ledger a3 a4);
+
 
 ########################################################################################
 # GLOBALS
@@ -417,7 +419,7 @@ sub configure_queue($) {
     ($filein, $file) = &$get_name_file("textonly.cfg");
     %fieldname = ();
     $fieldname{textonlyoptions} = "";
-    $fieldname{crlftrans}       = $entry->{CRLF};
+    $fieldname{crlftrans}       = $entry->{CRLF} ? "YES" : "";
     $fieldname{textsendeof}     = "1";
     create_config_file($filein, $file, %fieldname);
 
@@ -464,7 +466,7 @@ sub configure_queue($) {
 	      "{}",
 		$dbentry->{ENTRY},
 		  $entry->{BITSPERPIXEL},
-		    ($entry->{CRLF} eq "YES") ? "1" : "";
+		    $entry->{CRLF} ? "1" : "";
 
 	
     print PRINTCAP "$entry->{QUEUE}:\\\n";
-- 
cgit v1.2.1