From 558c2f8009b6ae2a8082b67a6474de38d866bb57 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Mon, 28 Feb 2005 01:56:13 +0000
Subject: - Let country and not language decide about default paper size

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

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

diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index d9e1183ae..5bbcaa4b3 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -3057,14 +3057,14 @@ sub get_printer_info {
 	    if ($printer->{PAPERSIZE}) {
 		$printer->{SPECIAL_OPTIONS} .= 
 		    " -o PageSize=$printer->{PAPERSIZE}";
-	    } elsif (($pagesize = $in->{lang}) ||
+	    } elsif (($pagesize = $in->{locale}{country}) ||
 		     ($pagesize = $ENV{LC_PAPER}) ||
+		     ($pagesize = $in->{locale}{lang}) ||
 		     ($pagesize = $ENV{LANG}) ||
 		     ($pagesize = $ENV{LANGUAGE}) ||
 		     ($pagesize = $ENV{LC_ALL})) {
-		if ($pagesize =~ /^en_CA/ ||
-		    $pagesize =~ /^fr_CA/ || 
-		    $pagesize =~ /^en_US/) {
+		if ($pagesize =~ /US/ ||
+		    $pagesize =~ /CA/) {
 		    $pagesize = "Letter";
 		} else {
 		    $pagesize = "A4";
-- 
cgit v1.2.1