From 5373fe17e8dad30b597e7258909fce40fdde103c Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Wed, 7 Sep 2005 09:31:30 +0000
Subject: - Give also access to the CUPS auto administration dialog during  
 installation.

---
 perl-install/printer/printerdrake.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install/printer/printerdrake.pm')

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};
-- 
cgit v1.2.1