[open-ils-commits] r15334 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-01-18 12:10:06 -0500 (Mon, 18 Jan 2010)
New Revision: 15334

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
backporting r13944 in support of booking functionality (and general correctness)

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2010-01-15 21:31:33 UTC (rev 15333)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2010-01-18 17:10:06 UTC (rev 15334)
@@ -302,13 +302,14 @@
 
 # -----------------------------------------------------------------------------
 # commits the db session and destroys the session
+# returns the status of the commit call
 # -----------------------------------------------------------------------------
 sub commit {
 	my $self = shift;
 	return unless $self->{xact_id};
-	$self->xact_commit;
-	$self->session->disconnect;
-	$self->{session} = undef;
+	my $stat = $self->xact_commit;
+    $self->disconnect;
+    return $stat;
 }
 
 # -----------------------------------------------------------------------------