From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 27 Feb 2006 22:26:52 +0000 (+0000)
Subject: more support for introspection paging
X-Git-Tag: osrf_rel_2_0_1~1224
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3469e8181e6bf4cb8d00d5b03bd94161ad4a74df;p=OpenSRF.git

more support for introspection paging


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@649 9efc2488-bf62-4759-914b-345cdb29e865
---

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) {