diff options
Diffstat (limited to 'perl-install/standalone/printerdrake')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 11 |
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(); |