- Added dialog to configure automatic queue creating and automatic queue re-enabling

1 files changed, 10 insertions, 1 deletions

diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 2c4cc8eb2..03b0dcac1 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -21,7 +21,8 @@
 
 use strict;
 
-# i18n: IMPORTANT: to get correct namespace (userdrake instead of libDrakX)
+# i18n: IMPORTANT: to get correct namespace (printerdrake instead of 
+# libDrakX)
 BEGIN { unshift @::textdomains, 'drakconf' }
 
 use lib qw(/usr/lib/libDrakX);
@@ -165,6 +166,7 @@ my ($menu, $factory) = create_factory_menu($::isEmbedded ? $::Plug : $us->{wnd}{
 						  %printer::main::thedb = 
 						      ();
                                               }, undef, '<CheckItem>' ],
+                                            [ N("/_Options") . N("/Configure _Auto Administration"), undef, \&ConfigAutoAdmin, undef, '<StockItem>', 'gtk-autoadmin' ],
                                             [ N("/_Help"), undef, undef, undef, '<Branch>' ],
 					    if_(-x "/usr/sbin/drakhelp_inst",
 						[ N("/_Help") . N("/_Help"), undef, sub { HelpSystem() }, undef, '<StockItem>', 'gtk-help' ],
@@ -419,6 +421,13 @@ sub ConfigCUPS() {
     activate_mainwindow();
 }
 
+sub ConfigAutoAdmin() {
+    deactivate_mainwindow();
+    printer::printerdrake::config_auto_admin($printer, $in);
+    Refresh($stringsearch);
+    activate_mainwindow();
+}
+
 sub deactivate_mainwindow() {
     $us->{wnd}{rwindow}->set_sensitive(0);
     gtkset_mousecursor_wait();