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()
|
