summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 3cf29d2e2..0913bde7f 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -696,6 +696,10 @@ sub configure_new_printers {
$printer->{OLD_CHOICE} = "XXX";
# Set model selection cursor onto the "Raw Printer" entry.
$printer->{DBENTRY} = N("Raw printer (No driver)");
+ # Info about what was detected
+ my $info = N("(") . if_($p->{val}{DESCRIPTION},
+ $p->{val}{DESCRIPTION} . N(" on ")).
+ $p->{port} . N(")");
# Remove wait message
undef $_w;
# Choose the printer/driver from the list
@@ -704,7 +708,7 @@ sub configure_new_printers {
N("Which printer model do you have?") .
N("
-Printerdrake could not determine which model your printer is. Please choose the correct model from the list.") . " " .
+Printerdrake could not determine which model your printer %s is. Please choose the correct model from the list.", $info) . " " .
N("If your printer is not listed, choose a compatible (see printer manual) or a similar one."), '|',
[ keys %printer::main::thedb ], $printer->{DBENTRY}) or next;
# Rename the queue according to the chosen model