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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-26 11:09:40 -0400 (Fri, 26 Jun 2009)
New Revision: 13472

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-06-25 14:02:29 UTC (rev 13471)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-06-26 15:09:40 UTC (rev 13472)
@@ -228,48 +228,7 @@
 
 
 
-__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",
 	api_name	=> "open-ils.actor.patron.update",);