From a591432cdabc8f63cdb2d17a0a1a592bcecfc0a9 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 26 Jun 2009 15:09:40 +0000 Subject: [PATCH] open-ils.actor.org_setting.delete is not used. removing to reduce possible org-settings churn as new table is added. use open-ils.actor.org_unit.settings.update instead git-svn-id: svn://svn.open-ils.org/ILS/trunk@13472 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 41 ---------------------- 1 file changed, 41 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 87ac173f2..9e7dffff7 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm @@ -228,47 +228,6 @@ sub ou_ancestor_setting_batch { -__PACKAGE__->register_method ( - method => "ou_setting_delete", - api_name => 'open-ils.actor.org_setting.delete', - signature => q/ - Deletes a specific org unit setting for a specific location - @param authtoken The login session key - @param orgid The org unit whose setting we're changing - @param setting The name of the setting to delete - @return True value on success. - / -); - -sub ou_setting_delete { - my( $self, $conn, $authtoken, $orgid, $setting ) = @_; - my( $reqr, $evt) = $U->checkses($authtoken); - return $evt if $evt; - $evt = $U->check_perms($reqr->id, $orgid, 'UPDATE_ORG_SETTING'); - return $evt if $evt; - - my $id = $U->cstorereq( - 'open-ils.cstore.direct.actor.org_unit_setting.id_list', - { name => $setting, org_unit => $orgid } ); - - $logger->debug("Retrieved setting $id in org unit setting delete"); - - my $s = $U->cstorereq( - 'open-ils.cstore.direct.actor.org_unit_setting.delete', $id ); - - $logger->activity("User ".$reqr->id." deleted org unit setting $id") if $s; - return $s; -} - - - - - - - - - - __PACKAGE__->register_method( method => "update_patron", -- 2.11.0