summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-29 14:20:14 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-29 14:20:14 +0000
commit521d3d163039146edbc002f1daa99d8fcc4892a1 (patch)
treee20a6fc9f8fdb49e400036a948e276f183158fe0 /perl-install/printerdrake.pm
parent0b60b51f31915cb9e8ed0c9fc9484f5b652eed12 (diff)
downloaddrakx-521d3d163039146edbc002f1daa99d8fcc4892a1.tar
drakx-521d3d163039146edbc002f1daa99d8fcc4892a1.tar.gz
drakx-521d3d163039146edbc002f1daa99d8fcc4892a1.tar.bz2
drakx-521d3d163039146edbc002f1daa99d8fcc4892a1.tar.xz
drakx-521d3d163039146edbc002f1daa99d8fcc4892a1.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-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"