summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 18:38:46 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 18:38:46 +0000
commite025fbd6340efa676817f635c36835874485476e (patch)
treea556adb227698cb609c16d8622e1643b668067fe /perl-install
parent42a633a091611f9058e26187b0cf2b5ce37832b0 (diff)
downloaddrakx-backup-do-not-use-e025fbd6340efa676817f635c36835874485476e.tar
drakx-backup-do-not-use-e025fbd6340efa676817f635c36835874485476e.tar.gz
drakx-backup-do-not-use-e025fbd6340efa676817f635c36835874485476e.tar.bz2
drakx-backup-do-not-use-e025fbd6340efa676817f635c36835874485476e.tar.xz
drakx-backup-do-not-use-e025fbd6340efa676817f635c36835874485476e.zip
Now the cursor in the main menu stands on the position which was choosen last time.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 13a705f31..f4c6a621e 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -74,7 +74,6 @@ sub setup_remote_cups_server {
#- according to new settings. There are no other point where such
#- information is written in this file.
- print "##### @queuelist $default\n";
if ($in->ask_from_entries_refH_powered
({ title => _("Remote CUPS server"),
messages => _("With a remote CUPS server, you do not have to configure any
@@ -1181,6 +1180,9 @@ sub main {
#- Set OLD_QUEUE field so that the subroutines for the
#- configuration work correctly.
$printer->{OLD_QUEUE} = $printer->{QUEUE} = $queue;
+ #- When we are back on the main menu the cursor should be
+ #- on "Add printer"
+ $queue = _("Add printer");
#- Do all the configuration steps for a new queue
choose_printer_type($printer, $in) or next;
if ($printer->{TYPE} eq 'CUPS') {
@@ -1337,7 +1339,6 @@ What do you want to modify on this printer?",
}
$continue = ($::expert || !$::isInstall);
}
- $queue = $printer->{currentqueue}{queue};
if ($continue) {
# Reinitialize $printer data structure
printer::resetinfo($printer);