From efe4d482264afc4df49addf731316c1f4c93b6dc Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 12 Jan 2000 04:55:05 +0000 Subject: *** empty log message *** --- perl-install/printerdrake.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/printerdrake.pm') 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"; -- cgit v1.2.1