From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 25 Nov 2008 17:41:30 +0000 (+0000)
Subject: added org-ranged penalty threshold retrievel method
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=31311ca57bd39ed3510f843f80b8c84898d8f1f9;p=Evergreen.git

added org-ranged penalty threshold retrievel method

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index e67ae83e1e..c16f3e4f5b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2760,6 +2760,25 @@ sub apply_penalty {
 
 
 __PACKAGE__->register_method(
+	method	=> "ranged_penalty_thresholds",
+	api_name	=> "open-ils.actor.grp_penalty_threshold.ranged.retrieve");
+
+sub ranged_penalty_thresholds {
+	my($self, $conn, $auth, $context_org) = @_;
+	my $e = new_editor(authtoken=>$auth);
+	return $e->event unless $e->checkauth;
+    return $e->event unless $e->allowed('VIEW_GROUP_PENALTY_THRESHOLD', $context_org);
+    my $list = $e->search_permission_grp_penalty_threshold(
+        {org_unit => $U->get_org_ancestors($context_org)}
+    );
+
+    for my $t (@$list) {
+    }
+}
+
+
+
+__PACKAGE__->register_method(
 	method	=> "user_retrieve_fleshed_by_id",
 	api_name	=> "open-ils.actor.user.fleshed.retrieve",);