diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-09-21 19:48:40 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-09-21 19:48:40 +0000 |
| commit | d938cd0659d6187c829c89cc58a4130fc7241d2f (patch) | |
| tree | 4dbad0a7a4509edc217cdba58e6570a0d9257cdb /perl-install/printerdrake.pm | |
| parent | c7ce24b63f1d762d33e8960271bc0a60e455964f (diff) | |
| download | drakx-backup-do-not-use-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar drakx-backup-do-not-use-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.gz drakx-backup-do-not-use-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.bz2 drakx-backup-do-not-use-d938cd0659d6187c829c89cc58a4130fc7241d2f.tar.xz drakx-backup-do-not-use-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.pm | 10 |
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"; |