[open-ils-commits] r11346 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-25 12:41:30 -0500 (Tue, 25 Nov 2008)
New Revision: 11346

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
added org-ranged penalty threshold retrievel method

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-11-25 17:03:11 UTC (rev 11345)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-11-25 17:41:30 UTC (rev 11346)
@@ -2760,6 +2760,25 @@
 
 
 __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",);