From e025fbd6340efa676817f635c36835874485476e Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sun, 12 Aug 2001 18:38:46 +0000 Subject: Now the cursor in the main menu stands on the position which was choosen last time. --- perl-install/printerdrake.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/printerdrake.pm') 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); -- cgit v1.2.1