summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 7e023b74d..bb3acd9fc 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -127,11 +127,10 @@ sub setup_gsdriver($$$;$) {
do {
$printer->{DBENTRY} ||= $printer::thedb_gsdriver{$printer->{GSDRIVER}}{ENTRY};
eval { $printer->{DBENTRY} = $printer::descr_to_db{
-# $in->ask_from_list_with_help_(_("Configure Printer"), #- tempory sucks TODO
- $in->ask_from_list_(_("Configure Printer"),
+ $in->ask_from_list_with_help_(_("Configure Printer"),
_("What type of printer do you have?"),
[ @printer::entry_db_description ],
- # { %printer::descr_to_help },
+ { %printer::descr_to_help },
$printer::db_to_descr{$printer->{DBENTRY}},
)
};
@@ -196,7 +195,7 @@ _("Extra Text options") => \$printer->{TEXTONLYOPTIONS},
printer::configure_queue($printer);
$printer->{complete} = 0;
- $action = $in->ask_from_list('', _("Do you want to test printing?"), sub { $action{$_[0]} }, \@action, 'done');
+ $action = $in->ask_from_listf('', _("Do you want to test printing?"), sub { $action{$_[0]} }, \@action, 'done');
my @testpages;
push @testpages, "/usr/lib/rhs/rhs-printfilters/testpage.asc"