From d938cd0659d6187c829c89cc58a4130fc7241d2f Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Fri, 21 Sep 2001 19:48:40 +0000
Subject: When one changes the driver of a freshly added printer, the cursor
 was not pointed to the old driver, fixed. Fixed paper size not set according
 to chosen language during installation.

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

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

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index f51940e78..d913553a6 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -705,10 +705,10 @@ sub get_db_entry {
 	if ($printer->{configured}{$queue}{'queuedata'}{'foomatic'}) {
 	    # The queue was configured with Foomatic
 	    my $driverstr;
-	    if ($printer->{configured}{$queue}{'driver'} eq "Postscript") {
+	    if ($printer->{configured}{$queue}{'queuedata'}{'driver'} eq "Postscript") {
 		$driverstr = "PostScript";
 	    } else {
-		$driverstr = "GhostScript + $printer->{configured}{$queue}{'driver'}";
+		$driverstr = "GhostScript + $printer->{configured}{$queue}{'queuedata'}{'driver'}";
 	    }
 	    my $make = uc($printer->{configured}{$queue}{'queuedata'}{'make'});
 	    my $model =	$printer->{configured}{$queue}{'queuedata'}{'model'};
@@ -766,7 +766,7 @@ sub get_db_entry {
 	    $printer->{OLD_CHOICE} = "XXX";
 	}
     } else {
-	if (($::expert) && ($printer->{DBENTRY} !~ (recommended))) {
+	if (($::expert) && ($printer->{DBENTRY} !~ /(recommended)/)) {
 	    my ($make, $model) = $printer->{DBENTRY} =~ /^([^\|]+)\|([^\|]+)\|/;
 	    for my $key (keys %printer::thedb) {
 		if ($key =~ /^$make\|$model\|.*\(recommended\)$/) {
@@ -847,8 +847,10 @@ sub get_printer_info {
 		if ($printer->{PAPERSIZE}) {
 		    $printer->{SPECIAL_OPTIONS} .= 
 			" -o PageSize=$printer->{PAPERSIZE}";
-		} elsif (($pagesize = $ENV{'LC_PAPER'}) ||
+		} elsif (($in->{lang}) ||
+			 ($pagesize = $ENV{'LC_PAPER'}) ||
 			 ($pagesize = $ENV{'LANG'}) ||
+			 ($pagesize = $ENV{'LANGUAGE'}) ||
 			 ($pagesize = $ENV{'LC_ALL'})) {
 		    if (($pagesize eq 'en') || ($pagesize eq 'en_US')) {
 			$pagesize = "Letter";
-- 
cgit v1.2.1