From 1c34bf90d84654c13aada670537b1f59d88a9f48 Mon Sep 17 00:00:00 2001 From: Rogan Hamby Date: Mon, 13 Jul 2020 10:56:28 -0400 Subject: [PATCH] add warning for 999 fields --- kmig.d/bin/mig-bibstats | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/kmig.d/bin/mig-bibstats b/kmig.d/bin/mig-bibstats index c115dd6..5c2d64f 100755 --- a/kmig.d/bin/mig-bibstats +++ b/kmig.d/bin/mig-bibstats @@ -96,7 +96,7 @@ my @ilses = ( ['Polaris','852','p'], ['TLC','949','g'], ['Koha','952','p'], - ['Sympony','999','i'], + ['Symphony','999','i'], ['Destiny','852','p'] ); @@ -241,7 +241,10 @@ print " $author_sub0 245 fields have a subfield 0\n"; print "\n===== Holdings Analysis\n"; foreach my $key (keys %holding_counts) { my $c = $holding_counts{$key}; - if (((100/$i)*$c) >= $holding_threshold) { print " $key $holding_counts{$key} holdings in $i bibs with $barcode_counts{$key} unique barcodes\n"; } + if (((100/$i)*$c) >= $holding_threshold) { + if ($key ne 'Symphony') { print " $key - $holding_counts{$key} holdings in $i bibs with $barcode_counts{$key} unique barcodes\n"; } + else { print " $key - $holding_counts{$key} holdings in $i bibs with $barcode_counts{$key} unique barcodes - 999 FIELDS MUST BE MOVED WITH kmig move999s\n"; } + } } print "\n===== URI values are domains and filtered to only show those with more than $uri_threshold\n"; -- 1.7.2.5