From 98e2833b08e13cc9a6d0169caf0a3910b3dba126 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 19 Feb 2002 15:44:45 +0000
Subject: Assured that the default page size is "Letter" for US/Canada and "A4"
 for the rest of the world. The "Description" field of a printer queue is
 filled in with printer manufacturer and model by default. Removed unused
 varaiables in /usr/sbin/printerdrake.

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

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

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index e7483cffe..e735e3a78 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -584,9 +584,10 @@ _(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1
     }
 
     #- Search the database entry which matches the detected printer best
+    my $descr = "";
     foreach (@parport) {
 	$device eq $_->{port} or next;
-	my $descr = $_->{val}{DESCRIPTION};
+	$descr = $_->{val}{DESCRIPTION};
 	# Clean up the description from noise which makes the best match
 	# difficult
 	$descr =~ s/\s+Inc\.//;
@@ -609,6 +610,9 @@ _(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1
              ($descr !~ /Hewlett[\s-]+Packard/i)))
             {$printer->{DBENTRY} = ""};
     }
+    if ((!$printer->{currentqueue}{'desc'}) && ($descr)) {
+	$printer->{currentqueue}{'desc'} = $descr;
+    }
     1;
 }
 
@@ -1165,12 +1169,14 @@ sub get_printer_info {
 		if ($printer->{PAPERSIZE}) {
 		    $printer->{SPECIAL_OPTIONS} .= 
 			" -o PageSize=$printer->{PAPERSIZE}";
-		} elsif (($in->{lang}) ||
+		} elsif (($pagesize = $in->{lang}) ||
 			 ($pagesize = $ENV{'LC_PAPER'}) ||
 			 ($pagesize = $ENV{'LANG'}) ||
 			 ($pagesize = $ENV{'LANGUAGE'}) ||
 			 ($pagesize = $ENV{'LC_ALL'})) {
-		    if (($pagesize eq 'en') || ($pagesize eq 'en_US')) {
+		    if (($pagesize =~ /^en_CA/) ||
+			($pagesize =~ /^fr_CA/) || 
+			($pagesize =~ /^en_US/)) {
 			$pagesize = "Letter";
 		    } else {
 			$pagesize = "A4";
@@ -2329,7 +2335,7 @@ sub main {
 		    my @printerlist = 
 			( (sort((map {$printer->{configured}{$_}{'queuedata'}{'menuentry'} 
 				      . ($_ eq $printer->{DEFAULT} ?
-					 _(" (Default)") : ())}
+					 _(" (Default)") : (""))}
 				 keys(%{$printer->{configured}
 					|| {}})),
 				($printer->{SPOOLER} eq "cups" ?
-- 
cgit v1.2.1