accessor for low-level input_module

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1221 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index a47cf33..ea9a49d 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -392,6 +392,8 @@ sub open {
        return $size;
 }
 
+sub input_module { $_[0]->{ll_db} }
+
 =head2 fetch
 
 Fetch next record from database. It will also displays progress bar.