summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-26 15:59:37 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-26 15:59:37 +0000
commitd6c00adf084ea92e1db0735ea8f0a19157882391 (patch)
tree527e1dda4ece96d385f54ae53a9e9902c05e9328 /perl-install/printerdrake.pm
parent00b2517fe5a08028204f77ad8acff5872573202f (diff)
downloaddrakx-d6c00adf084ea92e1db0735ea8f0a19157882391.tar
drakx-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.gz
drakx-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.bz2
drakx-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.xz
drakx-d6c00adf084ea92e1db0735ea8f0a19157882391.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm5
1 files changed, 5 insertions, 0 deletions
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