diff options
author | Till Kamppeter <tkamppeter@mandriva.com> | 2003-02-18 23:35:12 +0000 |
---|---|---|
committer | Till Kamppeter <tkamppeter@mandriva.com> | 2003-02-18 23:35:12 +0000 |
commit | 245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537 (patch) | |
tree | bcd266b2f7cf1c60250decf23319c5d0e8dd45ee /perl-install/printer/printerdrake.pm | |
parent | c9dff4eee3fd1f35b48336efab7823d84db747da (diff) | |
download | drakx-backup-do-not-use-245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537.tar drakx-backup-do-not-use-245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537.tar.gz drakx-backup-do-not-use-245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537.tar.bz2 drakx-backup-do-not-use-245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537.tar.xz drakx-backup-do-not-use-245eaaf2799f5ad36cde57d4b5ce3eb9bf2a6537.zip |
Show description of the printer when an unknown printer is found during automatic queue setup an it is asked for the model.
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r-- | perl-install/printer/printerdrake.pm | 6 |
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 |