summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 7f63a29a1..8b1bed100 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -1046,9 +1046,11 @@ sub configure_new_printers {
# 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(")");
+ my $info = $p->{val}{DESCRIPTION} ?
+ #-PO: this string is "device_description on port_number" formated (eg: "HP printer on 631"):
+ N("(%s on %s)", $p->{val}{DESCRIPTION}, $p->{port}) :
+ #-PO: a port number between round brackets:
+ N("(%s)", $p->{port});
# Remove wait message
undef $w;
# Choose the printer/driver from the list