summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-22 12:19:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-22 12:19:45 +0000
commit53b5abee1210a87a0004573a9dd7d7e3dfbe05ea (patch)
tree6ceda3e349011de93250708f96bd3df7b7527242 /perl-install/printerdrake.pm
parent88d070945ccf746f7df37369a0a5f4167ca95c8b (diff)
downloaddrakx-backup-do-not-use-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar
drakx-backup-do-not-use-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.gz
drakx-backup-do-not-use-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.bz2
drakx-backup-do-not-use-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.xz
drakx-backup-do-not-use-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.zip
$::beginner is deprecated, replaced by !$::expert
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index d78aed3bb..998b2eef4 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -338,7 +338,7 @@ sub main($$$;$) {
my ($queue, $continue) = ('', 1);
while ($continue) {
- if ($::beginner || !(scalar keys %{$printer->{configured} || {}})) {
+ if (!$::expert || !(scalar keys %{$printer->{configured} || {}})) {
$queue = $printer->{want} || $in->ask_yesorno(_("Printer"),
_("Would you like to configure a printer?"), 0) ? 'lp' : 'Done';
} else {
@@ -439,7 +439,7 @@ and optionally the port number."), [
$in->set_help('configurePrinterLocal') if $::isInstall;
$in->ask_from_entries_refH_powered(
{ title => _("Select Printer Connection"),
- cancel => $::beginner || !$printer->{configured}{$printer->{QUEUE}} ? '' : _("Remove queue"),
+ cancel => !$::expert || !$printer->{configured}{$printer->{QUEUE}} ? '' : _("Remove queue"),
messages =>
_("Every printer need a name (for example lp).
Other parameters such as the description of the printer or its location
@@ -450,7 +450,7 @@ how is the printer connected?") }, [
{ label => _("Location"), val => \$printer->{Location} },
]) or printer::remove_queue($printer), $continue = 1, last;
} else {
- if ($::beginner) {
+ if (!$::expert) {
$printer->{str_type} = $in->ask_from_list_(_("Select Printer Connection"),
_("How is the printer connected?"),
[ printer::printer_type($printer) ],
@@ -460,7 +460,7 @@ how is the printer connected?") }, [
$in->set_help('configurePrinterLPR') if $::isInstall;
$in->ask_from_entries_refH_powered(
{ title => _("Select Printer Connection"),
- cancel => $::beginner ? '' : _("Remove queue"),
+ cancel => $::expert ? _("Remove queue") : '',
messages =>
_("Every print queue (which print jobs are directed to) needs a
name (often lp) and a spool directory associated with it. What
@@ -493,7 +493,7 @@ name and directory should be used for this queue and how is the printer connecte
if (!$continue && setup_gsdriver($printer, $in, $install, $printer->{TYPE} !~ /LOCAL/ && $upNetwork)) {
delete $printer->{OLD_QUEUE}
if $printer->{QUEUE} ne $printer->{OLD_QUEUE} && $printer->{configured}{$printer->{QUEUE}};
- $continue = !$::beginner;
+ $continue = $::expert;
} else {
$continue = 1;
}