summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-01-12 04:55:05 +0000
committerFrancois Pons <fpons@mandriva.com>2000-01-12 04:55:05 +0000
commitefe4d482264afc4df49addf731316c1f4c93b6dc (patch)
tree29c161ee30b6aeefa7b6ab10939a8d5cd6dbd306 /perl-install/printerdrake.pm
parent12284596b2044cc8964f42568321a54247d08d3d (diff)
downloaddrakx-backup-do-not-use-efe4d482264afc4df49addf731316c1f4c93b6dc.tar
drakx-backup-do-not-use-efe4d482264afc4df49addf731316c1f4c93b6dc.tar.gz
drakx-backup-do-not-use-efe4d482264afc4df49addf731316c1f4c93b6dc.tar.bz2
drakx-backup-do-not-use-efe4d482264afc4df49addf731316c1f4c93b6dc.tar.xz
drakx-backup-do-not-use-efe4d482264afc4df49addf731316c1f4c93b6dc.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 397f9adbd..19de5ba02 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -197,7 +197,11 @@ wish to access and any applicable user name and password."),
my %depth_to_col = reverse %col_to_depth;
my $is_uniprint = $db_entry{GSDRIVER} eq "uniprint";
- $printer->{RESOLUTION} = "Default" unless @list_res;
+ if (@list_res) {
+ $printer->{RESOLUTION} = $list_res[0];
+ } else {
+ $printer->{RESOLUTION} = "Default";
+ }
$printer->{CRLF} = $db_entry{DESCR} =~ /HP/;
$printer->{BITSPERPIXEL} = @list_col ? $depth_to_col{$printer->{BITSPERPIXEL}} || $depth_to_col{$col[0]} : "Default";