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 e67ae83..c16f3e4 100644 (file)
--- 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",);