[open-ils-commits] r12962 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-22 12:36:05 -0400 (Wed, 22 Apr 2009)
New Revision: 12962

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
just in case any cstore connections linger, force disconnect after we're done with them

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-04-22 15:56:23 UTC (rev 12961)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-04-22 16:36:05 UTC (rev 12962)
@@ -458,6 +458,8 @@
         $e->react->cleanup;
     }
 
+    $e->editor->disconnect;
+
     return {
         valid     => $e->valid,
         reacted   => $e->reacted,
@@ -483,6 +485,8 @@
         $e->react->cleanup;
     }
 
+    $e->editor->disconnect;
+
     return {
         valid     => $e->valid,
         reacted   => $e->reacted,
@@ -547,6 +551,7 @@
                 push @{ $groups{'*'} }, $e;
             }
         }
+        $e->editor->disconnect;
     }
 
     return \%groups;