[perl-ldap-checkins] CVS: ldap/contrib tklkup,2.26,2.27

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

Update of /cvsroot/perl-ldap/ldap/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv30994/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Corrected an error where the window Unbusy method was not being
called when there was a filter error;



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 2.26
retrieving revision 2.27
diff -u -d -r2.26 -r2.27
--- tklkup	1 Mar 2003 22:23:36 -0000	2.26
+++ tklkup	11 Mar 2003 02:52:36 -0000	2.27
@@ -1646,6 +1646,7 @@
 {
    $error = "Bad filter $match.";
    ERROR(\$error);
+   $Global{mainWindow} -> Unbusy;  # window is busy
    return;
 }
 
@@ -1665,6 +1666,7 @@
   {
   ERROR($error);
   }
+  $Global{mainWindow} -> Unbusy;  # window is busy
   return;
 }