From 992ac618af33d345430bae3a183cd4672d8f76ca Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sun, 24 Aug 2003 00:47:05 +0000 Subject: - Fixed expert/normal mode switch (it will perhaps be removed, but a working switch makes the further development easier). - Added connectionstr() function which produces a human-readable string for the connection type, needed for new main window. - Added missing parantheses (there was a warning complaining about this). --- perl-install/printer/printerdrake.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/printer/printerdrake.pm') diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index 4a68cfbac..c5072f743 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -54,7 +54,7 @@ sub config_cups { # running if (!check_network($printer, $in, $upNetwork, 0)) { return 0 }; -# $in->set_help('configureRemoteCUPSServer') if $::isInstall; + #$in->set_help('configureRemoteCUPSServer') if $::isInstall; #- hack to handle cups remote server printing, #- first read /etc/cups/cupsd.conf for variable BrowsePoll address:port # Return value: 0 when nothing was changed ("Apply" never pressed), 1 @@ -3597,7 +3597,6 @@ sub main { # clicked on the "Configure" button in the "Summary" step. We do not # call it during the preparation of the "Summary" screen. if (!$::isInstall || $install_step == 1) { - # Ask for a spooler when none is defined yet $printer->{SPOOLER} ||= setup_default_spooler($printer, $in, $upNetwork) || return; @@ -3737,7 +3736,7 @@ sub main { ]); # Toggle expert mode and standard mode if ($menuchoice eq "\@usermode") { - printer::main::set_usermode(!$::expert); + $::expert = printer::main::set_usermode(!$::expert); # Read printer database for the new user mode %printer::main::thedb = (); # Modify menu entries to switch the tree -- cgit v1.2.1