summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-08-24 00:47:05 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-08-24 00:47:05 +0000
commit992ac618af33d345430bae3a183cd4672d8f76ca (patch)
tree26b4b6cb0f5078f29b7dd34bf1a0f10d0cde70cd /perl-install/printer/printerdrake.pm
parentb5e547d3bbe1a9508087f48245f6ebebbf47cce6 (diff)
downloaddrakx-backup-do-not-use-992ac618af33d345430bae3a183cd4672d8f76ca.tar
drakx-backup-do-not-use-992ac618af33d345430bae3a183cd4672d8f76ca.tar.gz
drakx-backup-do-not-use-992ac618af33d345430bae3a183cd4672d8f76ca.tar.bz2
drakx-backup-do-not-use-992ac618af33d345430bae3a183cd4672d8f76ca.tar.xz
drakx-backup-do-not-use-992ac618af33d345430bae3a183cd4672d8f76ca.zip
- 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).
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm5
1 files changed, 2 insertions, 3 deletions
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