From ab154cae37f78d59ff0b8f0e13f8d19e3458230f Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 25 Jan 2006 21:59:34 +0000 Subject: [PATCH] now calling the ranged retrieval method git-svn-id: svn://svn.open-ils.org/ILS/trunk@2842 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Circ/NonCat.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm index 5f9e663966..3966dfaa54 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm @@ -87,15 +87,16 @@ __PACKAGE__->register_method( Retrieves the non-cat types at the requested location as well as those above and below the requested location in the org tree @param orgId The base location at which to retrieve the type objects + @param depth Optional parameter to limit the depth of the tree @return An array of non cat type objects or an event if an error occurs /); sub retrieve_noncat_types_all { - my( $self, $client, $orgId ) = @_; - return $U->simplereq( - 'open-ils.storage', # XXX Needs to be a ranged call - 'open-ils.storage.direct.config.non_cataloged_type.search_where.atomic', - { owning_lib => $orgId } ); + my( $self, $client, $orgId, $depth ) = @_; + my $meth = 'open-ils.storage.ranged.config.non_cataloged_type.retrieve.atomic'; + my $svc = 'open-ils.storage'; + return $U->simplereq($svc, $meth, $orgId, $depth) if defined($depth); + return $U->simplereq($svc, $meth, $orgId); } -- 2.43.2