diff options
| author | pad <pad@mandriva.com> | 1999-09-03 18:45:13 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-03 18:45:13 +0000 |
| commit | 3a93e932ca7e557ba6f62f9764acde9fec97051d (patch) | |
| tree | 0cef54a8b755702a751627e3fd9dc5020f3d3ef1 /perl-install/printer.pm | |
| parent | cb44eccff1c9027ba26bd3a23a137ea6a083ae9d (diff) | |
| download | drakx-3a93e932ca7e557ba6f62f9764acde9fec97051d.tar drakx-3a93e932ca7e557ba6f62f9764acde9fec97051d.tar.gz drakx-3a93e932ca7e557ba6f62f9764acde9fec97051d.tar.bz2 drakx-3a93e932ca7e557ba6f62f9764acde9fec97051d.tar.xz drakx-3a93e932ca7e557ba6f62f9764acde9fec97051d.zip | |
printer is better
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 10 |
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"; |