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