summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm10
1 files changed, 6 insertions, 4 deletions
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";