diff options
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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"; |