From 3469e8181e6bf4cb8d00d5b03bd94161ad4a74df Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 27 Feb 2006 22:26:52 +0000
Subject: [PATCH] more support for introspection paging

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@649 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 738bae7..a7dfb4d 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/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.11.0