From d6c00adf084ea92e1db0735ea8f0a19157882391 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 26 Sep 2000 15:59:37 +0000 Subject: *** empty log message *** --- perl-install/printerdrake.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'perl-install/printerdrake.pm') diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index de5a99b6a..6d273424b 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -44,6 +44,7 @@ sub setup_local($$$) { $printer->{DEVICE} = $port[0] if $port[0]; if ($in) { + $::expert or $in->set_help('configurePrinterDev'); return if !$in->ask_from_entries_refH(_("Local Printer Device"), _("What device is your printer connected to (note that /dev/lp0 is equivalent to LPT1:)?\n") . (join "\n", @str), [ @@ -181,6 +182,7 @@ sub setup_gsdriver_cups($$$;$) { my ($printer, $in, $install, $upNetwork) = @_; my $testpage = "/usr/share/cups/data/testprint.ps"; + $in->set_help('configurePrinterType'); while (1) { $printer->{cupsDescr} ||= printer::get_descr_from_ppd($printer); $printer->{cupsDescr} = $in->ask_from_treelist('', _("What type of printer do you have?"), '|', @@ -371,6 +373,7 @@ You can add some more or change the existing ones."), $printer->{OLD_QUEUE} = $printer->{QUEUE} = $queue; #- keep in mind old name of queue (in case of changing) while ($continue) { + $in->set_help('configurePrinterConnected'); $printer::printer_type_inv{$printer->{TYPE}} or $printer->{TYPE} = printer::default_printer_type($printer); $printer->{str_type} = $printer::printer_type_inv{$printer->{TYPE}}; if ($printer->{mode} eq 'CUPS') { @@ -392,6 +395,7 @@ In case of doubt, select \"Remote CUPS server\"."), $printer->{TYPE} = $printer::printer_type{$printer->{str_type}}; } $printer->{TYPE} eq 'CUPS' and return; #- exit printer configuration. + $in->set_help('configurePrinterLocal'); $in->ask_from_entries_refH([_("Select Printer Connection"), _("Ok"), $::beginner || !$printer->{configured}{$printer->{QUEUE}} ? () : _("Remove queue")], _("Every printer need a name (for example lp). @@ -411,6 +415,7 @@ _("Location") => { val => \$printer->{Location} }, $printer->{str_type}, ); } else { + $in->set_help('configurePrinterLocal'); $in->ask_from_entries_refH([_("Select Printer Connection"), _("Ok"), $::beginner ? () : _("Remove queue")], _("Every print queue (which print jobs are directed to) needs a name (often lp) and a spool directory associated with it. What -- cgit v1.2.1