--- trunk/lib/WebPAC/Input.pm	2009/06/09 21:36:53	1220
+++ trunk/lib/WebPAC/Input.pm	2009/06/09 21:37:32	1221
@@ -392,6 +392,8 @@
 	return $size;
 }
 
+sub input_module { $_[0]->{ll_db} }
+
 =head2 fetch
 
 Fetch next record from database. It will also displays progress bar.