diff options
Diffstat (limited to 'perl-install/printer')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index a3fbb7310..bba6d878d 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -5128,6 +5128,15 @@ sub mainwindow_interactive { 1; }, val => N("CUPS configuration") } : ()), + (($printer->{SPOOLER} eq "cups") ? + { clicked_may_quit => + sub { + # Save the cursor position + $cursorpos = $menuchoice; + $menuchoice = '@autoadminconfig'; + 1; + }, + val => N("Configure Auto Administration") } : ()), ($printer->{expert} && (files_exist(qw(/usr/bin/pdq)) || files_exist("/usr/$lib/filters/lpf", @@ -5186,6 +5195,11 @@ sub mainwindow_interactive { config_cups($printer, $security, $in, $upNetwork); next; } + # Configure auto administration + if ($menuchoice eq '@autoadminconfig') { + config_auto_admin($printer, $in); + next; + } # Call function to switch to another spooler if ($menuchoice eq '@spooler') { $printer->{SPOOLER} = setup_default_spooler($printer, $security, $in, $upNetwork) || $printer->{SPOOLER}; |