From 7583963457122119f2b759bc5cc6332f1f033f67 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Tue, 1 Mar 2005 21:51:23 +0000 Subject: - Make sure that recommended driver is preselected in expert mode, even if the recommended driver is a manufacturer-supplied PPD with language tag. --- perl-install/printer/printerdrake.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 7049f5bd9..eda1f11ba 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -2855,7 +2855,7 @@ sub get_db_entry { } foreach my $key (keys %printer::main::thedb) { if ($printer->{expert} && - $key =~ /^$make\|$model\|.*\(recommended\)$/ || + $key =~ /^$make\|$model\|.*\(recommended\).*$/ || !$printer->{expert} && $key =~ /^$make\|$model$/) { $printer->{DBENTRY} = $key; } @@ -2868,7 +2868,7 @@ sub get_db_entry { $model =~ s/PostScript//i; $model =~ s/Series//i; foreach my $key (keys %printer::main::thedb) { - if ($printer->{expert} && $key =~ /^$make\|$model\|.*\(recommended\)$/ || + if ($printer->{expert} && $key =~ /^$make\|$model\|.*\(recommended\).*$/ || !$printer->{expert} && $key =~ /^$make\|$model$/) { $printer->{DBENTRY} = $key; } @@ -2895,7 +2895,7 @@ sub get_db_entry { if ($printer->{expert} && $printer->{DBENTRY} !~ /(recommended)/) { my ($make, $model) = $printer->{DBENTRY} =~ /^([^\|]+)\|([^\|]+)\|/; foreach my $key (keys %printer::main::thedb) { - if ($key =~ /^$make\|$model\|.*\(recommended\)$/) { + if ($key =~ /^$make\|$model\|.*\(recommended\).*$/) { $printer->{DBENTRY} = $key; } } -- cgit v1.2.1