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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-13 15:17:40 -0500 (Thu, 13 Nov 2008)
New Revision: 11170

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
ranged (scoped by org/depth) billing_type retrieval method

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2008-11-13 20:05:09 UTC (rev 11169)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2008-11-13 20:17:40 UTC (rev 11170)
@@ -83,6 +83,20 @@
 }
 
 
+__PACKAGE__->register_method(
+    method => 'ranged_billing_types',
+    api_name => 'open-ils.circ.billing_type.ranged.retrieve.all');
+
+sub ranged_billing_types {
+    my($self, $conn, $auth, $org_id, $depth) = @_;
+    my $e = new_editor(authtoken => $auth);
+    return $e->event unless $e->checkauth;
+    return $e->search_config_billing_type(
+        {owner => $U->get_org_full_path($org_id, $depth)});
+}
+
+
+
 # ------------------------------------------------------------------------
 # Returns an array of {circ, record} hashes checked out by the user.
 # ------------------------------------------------------------------------