[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.26,1.27

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

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

Modified Files:
	tklkup 
Log Message:

Added code to close windows after ldap actions are taken.  This is to force
a new search after data has been changed.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- tklkup	28 May 2002 01:54:13 -0000	1.26
+++ tklkup	15 Jun 2002 02:47:34 -0000	1.27
@@ -22,6 +22,11 @@
 #
 # Revisions:
 # $Log$
+# Revision 1.27  2002/06/15 02:47:34  charden
+#
+# Added code to close windows after ldap actions are taken.  This is to force
+# a new search after data has been changed.
+#
 # Revision 1.26  2002/05/28 01:54:13  charden
 #
 # Made several code corrections to the code that stores xml formatted
@@ -2267,7 +2272,10 @@
  
 $Global{'answerWindow'}->destroy() if Tk::Exists($Global{'answerWindow'});
 delete($Global{'answerWindow'}); 
-&ldapActionDelete;
+$Global{'searchHistWindow'}->destroy if Tk::Exists($Global{'searchHistWindow'});
+$Global{'searchHistWindow'} = undef(); 
+
+&ldapActionDelete;   # Delete the entry from the directory
  
 } # End of accept subroutine
 } # End of questionAction subroutine
@@ -2991,7 +2999,7 @@
 
 $ldap->unbind;
 
-}
+} # End of ldapActionDelete subroutine
 
 #
 # Do LDAP entry rename.
@@ -3185,17 +3193,28 @@
  
 sub rdnAccept{ 
  
+#
+# Clean up data and close windows, forces another search to
+# get valid new data.
+#
+
 $Global{'renameWindow'}->destroy() if Tk::Exists($Global{'renameWindow'});
+$Global{'searchHistWindow'}->destroy if Tk::Exists($Global{'searchHistWindow'});
 $Global{'renameWindow'} = undef(); 
-&ldapActionRename();
+$Global{'searchHistWindow'} = undef(); 
+
+&ldapActionRename();  # Rename the entry in the directory
  
 delete( $Global{'newsuperior'});
 delete( $Global{'newrdn'});
 delete( $Global{'deleteoldrdn'} );
 delete( $Global{'RenameDN'} );
+
+delete($Global{'index'}) if ( defined($Global{'index'}));
+
 } # End of accept subroutine
 
-} # End of BIND subroutine
+} # End of getRenameData subroutine
 
 
 sub displaySearch()