[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.20,1.21

[Clif H. <ch...@us...>]

Update of /cvsroot/perl-ldap/ldap/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv1078/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Added fail safe code to the DELETE entry operation.  This forces the 
user to confirm the delete entry request.
Added pod documentation for the DELETE fail safe window.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- tklkup	2001/12/15 05:06:43	1.20
+++ tklkup	2001/12/17 01:35:45	1.21
@@ -21,6 +21,12 @@
 #
 # Revisions:
 # $Log$
+# Revision 1.21  2001/12/17 01:35:45  charden
+#
+# Added fail safe code to the DELETE entry operation.  This forces the
+# user to confirm the delete entry request.
+# Added pod documentation for the DELETE fail safe window.
+#
 # Revision 1.20  2001/12/15 05:06:43  charden
 #
 # Corrected pod documentation error.
@@ -2079,8 +2085,56 @@
 
 } # End of subroutine  Hierarchial 
 
+
+ 
+#
+# Create Accept/Cancel Window
+#
+ 
+sub questionAction {
+my $x = $Global{'horz'} + 0;
+my $y = $Global{'vert'} + 50;
+ 
+#
+# Create Main Window
+#
  
+$Global{'answerWindow'} = MainWindow->new;
+ 
+$Global{'answerWindow'}->title("BIND TO DIRECTORY");
+ 
+$Global{'answerWindow'}->geometry("+$x+$y");
+#
+# Create process accept button
 #
+$Global{'answerWindow'}->Button( -text => "ACCEPT", -command => \&doAction, 
+           -font => $Global{'Font'}, -borderwidth => 3 )
+           -> pack(-side => "bottom", -padx => 5, -pady => 5 ) ;
+ 
+#
+# Create process cancel button
+#
+$Global{'answerWindow'}->Button(-text => "CANCEL", -command => \&cancelAction, 
+           -font => $Global{'Font'}, -borderwidth => 3)
+           -> pack(-side => "top", -padx => 5, -pady => 5 ) ;
+ 
+sub cancelAction{
+ 
+$Global{'answerWindow'}->destroy() if Tk::Exists($Global{'answerWindow'});
+delete($Global{'answerWindow'}); 
+} # End of cancel subroutine
+ 
+sub doAction{ 
+ 
+$Global{'answerWindow'}->destroy() if Tk::Exists($Global{'answerWindow'});
+delete($Global{'answerWindow'}); 
+&ldapActionDelete;
+ 
+} # End of accept subroutine
+} # End of BIND subroutine
+
+ 
+#
 # Create ldapAction Window
 #
  
@@ -2129,7 +2183,7 @@
 # Create ldap delete button
 #
 $Global{'ldapActionWindow'}->Button(-text => "DELETE", 
-           -command => \&ldapActionDelete,
+           -command => \&questionAction,
            -font => $Global{'Font'}, -borderwidth => 3)
            -> pack(-side => "top", -padx => 5, -pady => 5 ) ;
  
@@ -4065,6 +4119,17 @@
 display the data for the currently selected DN.
 
 There can only be one of these windows active at a time.
+
+-------------------------------------------------------------------
+
+=head1 DIRECTORY DELETE CONFIRM WINDOW.
+
+When the DELETE button is selected, before the actual deletion
+takes place, a window will be displayed with a Cancel and Accept
+buttons. This gives the user a fail safe in case the user selects
+the DELETE button by accident.  Pressing the Cancel will cancel
+the delete request, pressing the Accept button will cause the
+directory entry to be deleted.
 
 -------------------------------------------------------------------