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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-01 16:34:20 -0400 (Tue, 01 Sep 2009)
New Revision: 13944

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
return the status of xact_commit from the commit wrapper

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-09-01 18:41:21 UTC (rev 13943)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-09-01 20:34:20 UTC (rev 13944)
@@ -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;
 }
 
 # -----------------------------------------------------------------------------