From 38c75867334956c75013a9c142b9fc7f67e4f24f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 10 Oct 2006 10:57:59 +0000
Subject: [PATCH] fix dump (ugly, needs re-visiting)

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

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 7ac1a7c..21bea8f 100644
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -377,6 +377,9 @@ sub open {
 	$self->{max_pos} = $to_rec;
 	$log->debug("max_pos: $to_rec");
 
+	# save for dump
+	$self->{ll_db} = $ll_db;
+
 	return $size;
 }
 
@@ -547,7 +550,7 @@ Display humanly readable dump of record
 sub dump {
 	my $self = shift;
 
-	return $self->{dump_rec}->($self, $self->{pos});
+	return $self->{ll_db}->dump_rec( $self->{pos} );
 
 }
 
-- 
2.20.1