--- trunk/lib/WebPAC/Input.pm	2006/09/06 19:25:22	636
+++ trunk/lib/WebPAC/Input.pm	2006/09/07 15:01:45	652
@@ -107,7 +107,7 @@
 	#eval $self->{module} .'->import';
 
 	# check if required subclasses are implemented
-	foreach my $subclass (qw/open_db fetch_rec init/) {
+	foreach my $subclass (qw/open_db fetch_rec init dump_rec/) {
 		my $n = $self->{module} . '::' . $subclass;
 		if (! defined &{ $n }) {
 			my $missing = "missing $subclass in $self->{module}";
@@ -298,7 +298,7 @@
 
 		$log->debug("position: $pos\n");
 
-		my $rec = $self->{fetch_rec}->($self, $db, $pos, sub {
+		my $rec = $self->{fetch_rec}->($self, $pos, sub {
 				my ($l,$f_nr) = @_;
 #				return unless defined($l);
 #				return $l unless ($rec_regex && $f_nr);
@@ -348,7 +348,7 @@
 		if ($self->{stats}) {
 
 			# fetch clean record with regexpes applied for statistics
-			my $rec = $self->{fetch_rec}->($self, $db, $pos);
+			my $rec = $self->{fetch_rec}->($self, $pos);
 
 			foreach my $fld (keys %{ $rec }) {
 				$self->{_stats}->{fld}->{ $fld }++;
@@ -546,6 +546,19 @@
 	return $out;
 }
 
+=head2 dump
+
+Display humanly readable dump of record
+
+=cut
+
+sub dump {
+	my $self = shift;
+
+	return $self->{dump_rec}->($self, $self->{pos});
+
+}
+
 =head2 modify_record_regexps
 
 Generate hash with regexpes to be applied using l<filter>.