TT#119550 Fix registrations pagination on parametrized request

* Previous commit for full scan pagination
	    removed pagination for subscriber_id filter
	    which was anyway not working properly in
	    some corner cases
	  * Introduced usage of Data::Page which correctly
	    paginates through the results

Change-Id: Ic1c98c090b9e92362ab1f2d9b0de0c39660d9e20

lib/NGCP/Panel/Utils/RedisLocationResultSet.pm

@@ -7,6 +7,7 @@ use NGCP::Panel::Utils::Generic qw(:all);
 use NGCP::Panel::Utils::RedisLocationResultSource;
 
 use Data::Dumper;
+use Data::Page;
 use Time::HiRes qw(time);
 use POSIX qw(strftime);
 
@@ -175,6 +176,14 @@ sub search {
         }
     }
 
+    if ($opt->{page} && $opt->{rows}) {
+        my $pager = Data::Page->new();
+        $pager->total_entries(scalar @{ $new_rs->_rows });
+        $pager->entries_per_page($opt->{rows});
+        $pager->current_page($opt->{page});
+        $new_rs->_rows([$pager->splice(\@{ $new_rs->_rows })]);
+    }
+
     return $new_rs;
 }