summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index b502fc486..d190638d8 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -1333,7 +1333,7 @@ sub setup_common {
$descr =~ s/\s+\(?[Pp]rinter\)?$//;
$printer->{DBENTRY} = "";
for my $entry (keys(%printer::thedb)) {
- if ($entry =~ m!$descr!) {
+ if ($entry =~ m!$descr!i) {
$printer->{DBENTRY} = $entry;
last;
}
@@ -1427,7 +1427,7 @@ sub get_db_entry {
$printer->{DBENTRY} = "$make|$model|$driverstr";
# database key contains the "(recommended)" for the
# recommended driver, so add it if necessary
- if (!($printer::thedb{$printer->{DBENTRY}}{printer})) {
+ if (!member($printer->{DBENTRY}, keys(%printer::thedb))) {
$printer->{DBENTRY} .= " (recommended)";
}
} else {
@@ -1529,7 +1529,7 @@ sub choose_model {
my $w = $in->wait_message('', _("Reading printer database..."));
printer::read_printer_db($printer->{SPOOLER});
}
- if (!$printer::thedb{$printer->{DBENTRY}}) {
+ if (!member($printer->{DBENTRY}, keys(%printer::thedb))) {
$printer->{DBENTRY} = _("Raw printer (No driver)");
}
# Choose the printer/driver from the list