fix dump (ugly, needs re-visiting)

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

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 7ac1a7c..21bea8f 100644 (file)
--- 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} );
 
 }