From 7f7838da90c576ddfa508444db0f4127021161b0 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 2 Mar 2005 23:23:10 +0000
Subject: [PATCH] bug fixes for transaction interface

git-svn-id: svn://svn.open-ils.org/ILS/trunk@195 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Storage.pm       | 7 +++++--
 .../OpenILS/Application/Storage/Publisher/biblio.pm        | 2 --
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm
index fbf5745e13..f2390c0849 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage.pm
@@ -58,12 +58,15 @@ sub begin_xaction {
 
 	my $dbh = OpenILS::Application::Storage::CDBI->db_Main;
 
-	$client->session->registger_callback( disconnect => sub { $dbh->commit; } )
+	$client->session->registger_callback( disconnect => sub { shift()->session_data('dbh')->commit; } )
 		if ($self->api_name =~ /autocommit$/o);
 
-	$client->session->registger_callback( death => sub { $dbh->rollback; } );
+	$client->session->registger_callback( death => sub { shift()->session_data('dbh')->rollback; } );
+
+	$client->session->session_data( dbh => $dbh );
 		
 	$dbh->begin_work;
+
 	return 1;
 }
 __PACKAGE__->register_method(
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
index adcd5d6754..1c605b7603 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
@@ -46,8 +46,6 @@ sub create_record_nodeset {
 
 	my $method = $self->method_lookup('open-ils.storage.biblio.record_node.create');
 
-	local biblio::record_node->db_Main->{AutoCommit} = 0;
-
 	my @ids;
 	while ( my $node = shift(@_) ) {
 		$client->respond( $method->run( $node ) );
-- 
2.43.2