From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 5 Dec 2007 17:42:46 +0000 (+0000)
Subject: moved calls to cstore.  moved events to die_events for in-transaction errors
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a089f9cec5072c55e500da47b7de1a991f944447;p=Evergreen.git

moved calls to cstore.  moved events to die_events for in-transaction errors

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8143 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm
index 39fc332e50..7ab395abdf 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm
@@ -2,7 +2,7 @@ package OpenILS::Application::Actor::UserGroups;
 use base 'OpenSRF::Application';
 use strict; use warnings;
 use OpenILS::Application::AppUtils;
-use OpenILS::Utils::Editor q/:funcs/;
+use OpenILS::Utils::CStoreEditor q/:funcs/;
 use OpenSRF::Utils::Logger q/$logger/;
 use OpenSRF::EX qw(:try);
 my $U = "OpenILS::Application::AppUtils";
@@ -97,10 +97,10 @@ sub reset_group {
 	my( $self, $conn, $auth, $userid, $leader ) = @_;
 
 	my $e = new_editor(authtoken=>$auth, xact=>1);
-	return $e->event unless $e->checkauth;
-	return $e->event unless $e->allowed('UPDATE_USER'); # XXX reley on editor perm
+	return $e->die_event unless $e->checkauth;
+	return $e->die_event unless $e->allowed('UPDATE_USER'); # XXX reley on editor perm
 
-	my $user = $e->retrieve_actor_user($userid) or return $e->event;
+	my $user = $e->retrieve_actor_user($userid) or return $e->die_event;
 
 	# ask for a new group id
 	my $groupid = $e->request('open-ils.storage.actor.user.group_id.new');
@@ -108,7 +108,7 @@ sub reset_group {
 	$user->usrgroup($groupid);
 	$user->master_account('t') if $leader;
 
-	$e->update_actor_user($user) or return $e->event;
+	$e->update_actor_user($user) or return $e->die_event;
 	$e->commit;
 	return $groupid;
 }