--- trunk/lib/WebPAC/Input.pm	2006/05/15 09:59:05	506
+++ trunk/lib/WebPAC/Input.pm	2006/05/16 13:08:31	513
@@ -3,6 +3,8 @@
 use warnings;
 use strict;
 
+use blib;
+
 use WebPAC::Common;
 use base qw/WebPAC::Common/;
 use Text::Iconv;
@@ -241,7 +243,7 @@
 	my $to_rec = $size;
 
 	if (my $s = $self->{offset}) {
-		$log->info("skipping to MFN $s");
+		$log->debug("skipping to MFN $s");
 		$from_rec = $s;
 	} else {
 		$self->{offset} = $from_rec;
@@ -426,13 +428,48 @@
 
 Dump statistics about field and subfield usage
 
-  print Dumper( $input->stats );
+  print $input->stats;
 
 =cut
 
 sub stats {
 	my $self = shift;
-	return $self->{_stats};
+
+	my $log = $self->_get_logger();
+
+	my $s = $self->{_stats};
+	if (! $s) {
+		$log->warn("called stats, but there is no statistics collected");
+		return;
+	}
+
+	my $max_fld = 0;
+
+	my $out = join("\n",
+		map {
+			my $f = $_ || die "no field";
+			my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
+			$max_fld = $v if ($v > $max_fld);
+
+			my $o = sprintf("%4d %d ~", $f, $v);
+
+			if (defined($s->{sf}->{$f})) {
+				map {
+					$o .= sprintf(" %s:%d", $_, $s->{sf}->{$f}->{$_});
+				} sort keys %{ $s->{sf}->{$f} };
+			}
+
+			if (my $v_r = $s->{repeatable}->{$f}) {
+				$o .= " ($v_r)" if ($v_r != $v);
+			}
+
+			$o;
+		} sort { $a <=> $b } keys %{ $s->{fld} }
+	);
+
+	$log->debug( sub { Dumper($s) } );
+
+	return $out;
 }
 
 =head1 MEMORY USAGE