diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-09-26 15:59:37 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-09-26 15:59:37 +0000 |
| commit | d6c00adf084ea92e1db0735ea8f0a19157882391 (patch) | |
| tree | 527e1dda4ece96d385f54ae53a9e9902c05e9328 /perl-install/printerdrake.pm | |
| parent | 00b2517fe5a08028204f77ad8acff5872573202f (diff) | |
| download | drakx-backup-do-not-use-d6c00adf084ea92e1db0735ea8f0a19157882391.tar drakx-backup-do-not-use-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.gz drakx-backup-do-not-use-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.bz2 drakx-backup-do-not-use-d6c00adf084ea92e1db0735ea8f0a19157882391.tar.xz drakx-backup-do-not-use-d6c00adf084ea92e1db0735ea8f0a19157882391.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 5 |
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 |