Changeset 1139 for GuiMail/trunk/p/CWMAIL3.m

Timestamp:

Apr 10, 2011, 10:44:11 PM (13 years ago)

Author:

George Lilly

Message:

version 2.3 of GuiMail

File:

• GuiMail/trunk/p/CWMAIL3.m (modified) (3 diffs)

GuiMail/trunk/p/CWMAIL3.m

@@ -1 @@
-CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;03-Jun-1999 13:24;PS
-        ;;2.1;CWMA GuiMail;;Jan 06, 1999
+CWMAIL3 ;INDPLS/PLS- DELPHI VISTA MAIL SERVER, CON'T ;21-Jun-2005 06:34;CLC
+        ;;2.3;CWMAIL;;Jul 19, 2005
+        ;Modified to fix Cache problem related to double close
         Q   ;ROUTINE CAN'T BE CALLED DIRECTLY
         ;
@@ -24 +25 @@
         .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
         E  S CWDAT(-9900)=2
-GRPINFOE        D CLOSE^%ZISH("CWDATFIL")
+GRPINFOE        ;D CLOSE^%ZISH("CWDATFIL")
         Q $O(CWDAT(1))
 USRINFO(CWDAT,CWPARAM)  ;Mail User Information
@@ -48 +49 @@
         .S CWDAT(-9900)=$O(CWDAT(9999999),-1)+1
         E  S CWDAT(-9900)=2
-USRINFOE        D CLOSE^%ZISH("CWDATFIL")
+USRINFOE        ;D CLOSE^%ZISH("CWDATFIL")
         Q $O(CWDAT(1))