[open-ils-commits] r16544 - in trunk/Open-ILS/src/perlmods/OpenILS: . SIP (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-06-01 13:21:31 -0400 (Tue, 01 Jun 2010)
New Revision: 16544

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
in the SIP server plugin, don't connect and start a transaction by default with every cstore handle.  only connect/begin when necessary.  also, making use of new CStoreEditor::init() call for setting up the editor environment when initial load was done before the IDL was available.

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-06-01 16:10:36 UTC (rev 16543)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-06-01 17:21:31 UTC (rev 16544)
@@ -509,17 +509,20 @@
 sub block {
 	my ($self, $card_retained, $blocked_card_msg) = @_;
 
+    my $e = $self->{editor};
 	my $u = $self->{user};
-	my $e = $self->{editor} = OpenILS::SIP->reset_editor();
 
 	syslog('LOG_INFO', "OILS: Blocking user %s", $u->card->barcode );
 
 	return $self if $u->card->active eq 'f';
 
+    # connect and start a new transaction
+    $e->xact_begin;
+
 	$u->card->active('f');
 	if( ! $e->update_actor_card($u->card) ) {
 		syslog('LOG_ERR', "OILS: Block card update failed: %s", $e->event->{textcode});
-		$e->xact_rollback;
+		$e->rollback; # rollback + disconnect
 		return $self;
 	}
 
@@ -532,15 +535,14 @@
 
 	if( ! $e->update_actor_user($u) ) {
 		syslog('LOG_ERR', "OILS: Block: patron alert update failed: %s", $e->event->{textcode});
-		$e->xact_rollback;
+		$e->rollback; # rollback + disconnect
 		return $self;
 	}
 
 	# stay in synch
 	$self->{user}->alert_message( $note );
 
-	$e->commit; # commits and resets
-	$self->{editor} = OpenILS::SIP->reset_editor();
+	$e->commit; # commits and disconnects
 	return $self;
 }
 

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm	2010-06-01 16:10:36 UTC (rev 16543)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP.pm	2010-06-01 17:21:31 UTC (rev 16544)
@@ -78,34 +78,20 @@
 }
 
 sub editor {
-	return $editor 
-		if $editor and $editor->{session}
-		and $editor->session->connected;
 	return $editor = make_editor();
 }
 
-sub reset_editor {
-	$editor = undef;
-	return editor();
-}
-
 sub config {
 	return $config;
 }
 
 
 # Creates the global editor object
+my $cstore_init = 1; # call init on first use
 sub make_editor {
-	require OpenILS::Utils::CStoreEditor;
-	my $e = OpenILS::Utils::CStoreEditor->new(xact => 1);
-	# gnarly cstore hack to re-gen autogen methods after IDL is loaded
-	if(!UNIVERSAL::can($e, 'search_actor_card')) {
-		syslog("LOG_WARNING", "OILS: Reloading CStoreEditor...");
-		delete $INC{'OpenILS/Utils/CStoreEditor.pm'};
-		require OpenILS::Utils::CStoreEditor;
-		$e = OpenILS::Utils::CStoreEditor->new(xact =>1);
-	}
-	return $e;
+    OpenILS::Utils::CStoreEditor::init() if $cstore_init;
+    $cstore_init = 0;
+	return OpenILS::Utils::CStoreEditor->new;
 }
 
 =head2 clean_text(scalar)