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;
}
|
