diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 18:38:46 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 18:38:46 +0000 |
| commit | e025fbd6340efa676817f635c36835874485476e (patch) | |
| tree | a556adb227698cb609c16d8622e1643b668067fe /perl-install | |
| parent | 42a633a091611f9058e26187b0cf2b5ce37832b0 (diff) | |
| download | drakx-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.pm | 5 |
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); |