more support for introspection paging
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 27 Feb 2006 22:26:52 +0000 (22:26 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 27 Feb 2006 22:26:52 +0000 (22:26 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3214 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/Application.pm

index 738bae7..a7dfb4d 100644 (file)
@@ -623,12 +623,16 @@ sub introspect {
        my $limit = shift;
        my $offset = shift;
 
        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]} ) {
 
        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) {
                                if (!$_METHODS[$api_level]{$api_name}{remote}) {
                                        if (defined($method)) {
                                                if ($api_name =~ $method) {