From 5920a6497c3eeb26fd66cdeae6cb3386686a561a Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Tue, 5 May 2009 16:43:45 +0000 Subject: [PATCH] sample stuffs working pretty good now --- extract_holdings | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extract_holdings b/extract_holdings index 32fd2e4..29bd56d 100755 --- a/extract_holdings +++ b/extract_holdings @@ -43,8 +43,8 @@ sub dump_sample_detail { for my $subkey (sort keys %{$tags->{$tag}}) { my $sub = $tags->{$tag}{$subkey}; print " Subfield: $subkey\n"; - print " Sample: '", $sub->{value}, "'\n\n"; - print " Count: ", $sub->{count}, " in ", $sub->{rcnt}, " tags\n"; + print " Sample: '", $sub->{value}, "'\n"; + print " Count: ", $sub->{count}, " in ", $sub->{tcnt}, " tags\n\n"; #print "(", int($sub->{count} / $sub->{rcnt}), "%)\n"; } } -- 1.7.2.5