['Polaris','852','p'],
['TLC','949','g'],
['Koha','952','p'],
- ['Sympony','999','i'],
+ ['Symphony','999','i'],
['Destiny','852','p']
);
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";