From e5c0efec0b4f99521f3e0224119e9506a3442261 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 27 Feb 2006 22:26:52 +0000 Subject: [PATCH 1/1] more support for introspection paging git-svn-id: svn://svn.open-ils.org/ILS/trunk@3214 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/Application.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/Application.pm b/OpenSRF/src/perlmods/OpenSRF/Application.pm index 738bae7753..a7dfb4deb0 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Application.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Application.pm @@ -623,12 +623,16 @@ sub introspect { my $limit = shift; my $offset = shift; - $method = undef if ($self->api_name =~ /all$/o); + if ($self->api_name =~ /all$/o) { + $offset = $limit; + $limit = $method; + $method = undef; + } my ($seen,$returned) = (0,0); for my $api_level ( reverse(1 .. $#_METHODS) ) { for my $api_name ( sort keys %{$_METHODS[$api_level]} ) { - if (!$offset || $offset < $seen) { + if (!$offset || $offset <= $seen) { if (!$_METHODS[$api_level]{$api_name}{remote}) { if (defined($method)) { if ($api_name =~ $method) { -- 2.43.2