summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-09-21 19:48:40 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-09-21 19:48:40 +0000
commitd938cd0659d6187c829c89cc58a4130fc7241d2f (patch)
tree4dbad0a7a4509edc217cdba58e6570a0d9257cdb /perl-install/printerdrake.pm
parentc7ce24b63f1d762d33e8960271bc0a60e455964f (diff)
downloaddrakx-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar
drakx-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.gz
drakx-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.bz2
drakx-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.xz
drakx-d938cd0659d6187c829c89cc58a4130fc7241d2f.zip
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.
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm10
1 files changed, 6 insertions, 4 deletions
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";