From 41189f41c13b9066afd55b2bff6b14aeb7538aa1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 18 Sep 2009 21:30:30 +0000
Subject: [PATCH] push offset and limit to low-level modules for optimizations

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1286 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Input.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index e4fe43f..94afb8b 100644
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -183,7 +183,7 @@ sub open {
 
 	# store data in object
 	foreach my $v (qw/path offset limit/) {
-		$self->{$v} = $arg->{$v} if ($arg->{$v});
+		$self->{$v} = $arg->{$v} if defined $arg->{$v};
 	}
 
 	if ($arg->{load_row} || $arg->{save_row}) {
@@ -230,6 +230,8 @@ sub open {
 
 	my $class = $self->{module} || $log->logconfess("can't get low-level module name!");
 
+	$arg->{$_} = $self->{$_} foreach qw(offset limit);
+
 	my $ll_db = $class->new(
 		path => $arg->{path},
 		input_config => $arg->{input_config} || $self->{input_config},
-- 
2.20.1