summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 947f240c6..ed342a052 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2405,13 +2405,13 @@ sub setup_common {
my $ptaldevice = "";
my $isHPOJ = 0;
my $isHPLIP = 0;
+ my $searchunknown = N("Unknown model");
my $w;
if ($device =~ m!^/dev/! || $device =~ m!^socket://!) {
# Ask user whether he has a multi-function device when he did not
# do auto-detection or when auto-detection failed
- my $searchunknown = N("Unknown model");
if (!$do_auto_detect ||
- $makemodel eq $searchunknown ||
+ $makemodel =~ /$searchunknown/ ||
$makemodel =~ /^\s*$/) {
local $::isWizard = 0;
if (!$printer->{noninteractive}) {
@@ -2832,7 +2832,11 @@ sub setup_common {
$descr =~ s/ /|/;
} elsif ($automodel) {
$descr = $automodel;
- $descr =~ s/ /|/;
+ if ($descr !~ /$searchunknown/) {
+ $descr =~ s/ /|/;
+ } else {
+ $descr = "|$searchunknown";
+ }
} elsif ($automake) {
$descr = "$descrmake|";
} elsif ($makemodel =~ /\S/) {
@@ -3002,6 +3006,7 @@ sub setup_common {
$descr !~ /Hewlett[\s-]+Packard/i))
{ $printer->{DBENTRY} = "" }
}
+ last;
}
#- Pre-fill the "Description" field with the printer's model name