summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-08-28 16:25:22 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-08-28 16:25:22 +0000
commitc49ae686d5b9770861fbdaa860c81022808c3881 (patch)
tree31f6fc316ea6aa0d4cfc2505d6337afb98ae8675 /perl-install/printerdrake.pm
parent27fd3d851753ac9e25ae7c6ee4ac38c02d3bca97 (diff)
downloaddrakx-c49ae686d5b9770861fbdaa860c81022808c3881.tar
drakx-c49ae686d5b9770861fbdaa860c81022808c3881.tar.gz
drakx-c49ae686d5b9770861fbdaa860c81022808c3881.tar.bz2
drakx-c49ae686d5b9770861fbdaa860c81022808c3881.tar.xz
drakx-c49ae686d5b9770861fbdaa860c81022808c3881.zip
Printerdrake remembers now whether it was in normal mode or in expert
mode last time.
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 64945a796..ebba01ed2 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -2916,6 +2916,10 @@ sub wizard_close {
sub main {
my ($printer, $in, $ask_multiple_printer, $upNetwork) = @_;
+ # Save the user mode, so that the same one is used on the next start
+ # of Printerdrake
+ printer::set_usermode($::expert);
+
# Default printer name, we do not use "lp" so that one can switch the
# default printer under LPD without needing to rename another printer.
# Under LPD the alias "lp" will be given to the default printer.
@@ -3133,7 +3137,7 @@ sub main {
);
# Toggle expert mode and standard mode
if ($menuchoice eq "\@usermode") {
- $::expert = !$::expert;
+ printer::set_usermode(!$::expert);
# Read printer database for the new user mode
%printer::thedb = ();
#my $w = $in->wait_message(_("Printerdrake"),