#
# So, if the bib 650$a can be controlled by an auth 150$a, that maps to:
# 650 => { a => { 150 => 'a'}}
-my %_controllees = (
- 100 => { a => { 100 => 'a' },
- b => { 100 => 'b' },
- c => { 100 => 'c' },
- d => { 100 => 'd' },
- #f => { 100 => 'f' },
- g => { 100 => 'g' },
- h => { 100 => 'h' },
- k => { 100 => 'k' },
- l => { 100 => 'l' },
- m => { 100 => 'm' },
- n => { 100 => 'n' },
- o => { 100 => 'o' },
- p => { 100 => 'p' },
- q => { 100 => 'q' },
- r => { 100 => 'r' },
- s => { 100 => 's' },
- t => { 100 => 't' },
- y => { 100 => 'y' },
- z => { 100 => 'z' },
- },
- 110 => { a => { 110 => 'a' },
- b => { 110 => 'b' },
- c => { 110 => 'c' },
- d => { 110 => 'd' },
- #f => { 110 => 'f' },
- g => { 110 => 'g' },
- h => { 110 => 'h' },
- k => { 110 => 'k' },
- l => { 110 => 'l' },
- m => { 110 => 'm' },
- n => { 110 => 'n' },
- o => { 110 => 'o' },
- p => { 110 => 'p' },
- r => { 110 => 'r' },
- s => { 110 => 's' },
- t => { 110 => 't' },
- y => { 110 => 'y' },
- z => { 110 => 'z' },
- },
- 111 => { a => { 111 => 'a' },
- b => { 111 => 'b' },
- c => { 111 => 'c' },
- d => { 111 => 'd' },
- e => { 111 => 'e' },
- #f => { 111 => 'f' },
- g => { 111 => 'g' },
- h => { 111 => 'h' },
- k => { 111 => 'k' },
- l => { 111 => 'l' },
- m => { 111 => 'm' },
- n => { 111 => 'n' },
- o => { 111 => 'o' },
- p => { 111 => 'p' },
- q => { 111 => 'q' },
- r => { 111 => 'r' },
- s => { 111 => 's' },
- t => { 111 => 't' },
- u => { 111 => 'u' },
- y => { 111 => 'y' },
- z => { 111 => 'z' },
- },
- 130 => { a => { 130 => 'a' },
- d => { 130 => 'd' },
- #f => { 130 => 'f' },
- g => { 130 => 'g' },
- h => { 130 => 'h' },
- k => { 130 => 'k' },
- l => { 130 => 'l' },
- m => { 130 => 'm' },
- n => { 130 => 'n' },
- o => { 130 => 'o' },
- p => { 130 => 'p' },
- r => { 130 => 'r' },
- s => { 130 => 's' },
- t => { 130 => 't' },
- x => { 130 => 'x' },
- y => { 130 => 'y' },
- z => { 130 => 'z' },
- },
- 400 => { a => { 100 => 'a' },
- b => { 100 => 'b' },
- c => { 100 => 'c' },
- d => { 100 => 'd' },
- #f => { 100 => 'f' },
- g => { 100 => 'g' },
- h => { 100 => 'h' },
- k => { 100 => 'k' },
- l => { 100 => 'l' },
- m => { 100 => 'm' },
- n => { 100 => 'n' },
- o => { 100 => 'o' },
- p => { 100 => 'p' },
- q => { 100 => 'q' },
- r => { 100 => 'r' },
- s => { 100 => 's' },
- t => { 100 => 't' },
- y => { 100 => 'y' },
- z => { 100 => 'z' },
- },
- 410 => { a => { 110 => 'a' },
- b => { 110 => 'b' },
- c => { 110 => 'c' },
- d => { 110 => 'd' },
- #f => { 110 => 'f' },
- g => { 110 => 'g' },
- h => { 110 => 'h' },
- k => { 110 => 'k' },
- l => { 110 => 'l' },
- m => { 110 => 'm' },
- n => { 110 => 'n' },
- o => { 110 => 'o' },
- p => { 110 => 'p' },
- r => { 110 => 'r' },
- s => { 110 => 's' },
- t => { 110 => 't' },
- y => { 110 => 'y' },
- z => { 110 => 'z' },
- },
- 411 => { a => { 111 => 'a' },
- b => { 111 => 'b' },
- c => { 111 => 'c' },
- d => { 111 => 'd' },
- e => { 111 => 'e' },
- #f => { 111 => 'f' },
- g => { 111 => 'g' },
- h => { 111 => 'h' },
- k => { 111 => 'k' },
- l => { 111 => 'l' },
- m => { 111 => 'm' },
- n => { 111 => 'n' },
- o => { 111 => 'o' },
- p => { 111 => 'p' },
- q => { 111 => 'q' },
- r => { 111 => 'r' },
- s => { 111 => 's' },
- t => { 111 => 't' },
- u => { 111 => 'u' },
- y => { 111 => 'y' },
- z => { 111 => 'z' },
- },
- 600 => { a => { 100 => 'a' },
- b => { 100 => 'b' },
- c => { 100 => 'c' },
- d => { 100 => 'd' },
- #f => { 100 => 'f' },
- g => { 100 => 'g' },
- h => { 100 => 'h' },
- k => { 100 => 'k' },
- l => { 100 => 'l' },
- m => { 100 => 'm' },
- n => { 100 => 'n' },
- o => { 100 => 'o' },
- p => { 100 => 'p' },
- q => { 100 => 'q' },
- r => { 100 => 'r' },
- s => { 100 => 's' },
- t => { 100 => 't' },
- v => { 100 => 'v' },
- x => { 100 => 'x' },
- y => { 100 => 'y' },
- z => { 100 => 'z' },
- },
- 610 => { a => { 110 => 'a' },
- b => { 110 => 'b' },
- c => { 110 => 'c' },
- d => { 110 => 'd' },
- #f => { 110 => 'f' },
- g => { 110 => 'g' },
- h => { 110 => 'h' },
- k => { 110 => 'k' },
- l => { 110 => 'l' },
- m => { 110 => 'm' },
- n => { 110 => 'n' },
- o => { 110 => 'o' },
- p => { 110 => 'p' },
- r => { 110 => 'r' },
- s => { 110 => 's' },
- t => { 110 => 't' },
- v => { 110 => 'v' },
- x => { 110 => 'x' },
- y => { 110 => 'y' },
- z => { 110 => 'z' },
- },
- 611 => { a => { 111 => 'a' },
- b => { 111 => 'b' },
- c => { 111 => 'c' },
- d => { 111 => 'd' },
- e => { 111 => 'e' },
- #f => { 111 => 'f' },
- g => { 111 => 'g' },
- h => { 111 => 'h' },
- k => { 111 => 'k' },
- l => { 111 => 'l' },
- m => { 111 => 'm' },
- n => { 111 => 'n' },
- o => { 111 => 'o' },
- p => { 111 => 'p' },
- q => { 111 => 'q' },
- r => { 111 => 'r' },
- s => { 111 => 's' },
- t => { 111 => 't' },
- u => { 111 => 'u' },
- v => { 111 => 'v' },
- x => { 111 => 'x' },
- y => { 111 => 'y' },
- z => { 111 => 'z' },
- },
- 630 => { a => { 130 => 'a' },
- d => { 130 => 'd' },
- #f => { 130 => 'f' },
- g => { 130 => 'g' },
- h => { 130 => 'h' },
- k => { 130 => 'k' },
- l => { 130 => 'l' },
- m => { 130 => 'm' },
- n => { 130 => 'n' },
- o => { 130 => 'o' },
- p => { 130 => 'p' },
- r => { 130 => 'r' },
- s => { 130 => 's' },
- t => { 130 => 't' },
- v => { 130 => 'v' },
- x => { 130 => 'x' },
- y => { 130 => 'y' },
- z => { 130 => 'z' },
- },
- 650 => { a => { 150 => 'a' },
- b => { 150 => 'b' },
- c => { 150 => 'c' },
- d => { 150 => 'd' },
- v => { 150 => 'v' },
- x => { 150 => 'x' },
- y => { 150 => 'y' },
- z => { 150 => 'z' },
- },
- 651 => { a => { 151 => 'a' },
- b => { 151 => 'b' },
- v => { 151 => 'v' },
- x => { 151 => 'x' },
- y => { 151 => 'y' },
- z => { 151 => 'z' },
- },
- 655 => { a => { 155 => 'a' },
- b => { 155 => 'b' },
- c => { 155 => 'c' },
- v => { 155 => 'v' },
- x => { 155 => 'x' },
- y => { 155 => 'y' },
- z => { 155 => 'z' },
- },
- 700 => { a => { 100 => 'a' },
- b => { 100 => 'b' },
- c => { 100 => 'c' },
- d => { 100 => 'd' },
- #f => { 100 => 'f' },
- g => { 100 => 'g' },
- h => { 100 => 'h' },
- k => { 100 => 'k' },
- l => { 100 => 'l' },
- m => { 100 => 'm' },
- n => { 100 => 'n' },
- o => { 100 => 'o' },
- p => { 100 => 'p' },
- q => { 100 => 'q' },
- r => { 100 => 'r' },
- s => { 100 => 's' },
- t => { 100 => 't' },
- y => { 100 => 'y' },
- z => { 100 => 'z' },
- },
- 710 => { a => { 110 => 'a' },
- b => { 110 => 'b' },
- c => { 110 => 'c' },
- d => { 110 => 'd' },
- #f => { 110 => 'f' },
- g => { 110 => 'g' },
- h => { 110 => 'h' },
- k => { 110 => 'k' },
- l => { 110 => 'l' },
- m => { 110 => 'm' },
- n => { 110 => 'n' },
- o => { 110 => 'o' },
- p => { 110 => 'p' },
- r => { 110 => 'r' },
- s => { 110 => 's' },
- t => { 110 => 't' },
- y => { 110 => 'y' },
- z => { 110 => 'z' },
- },
- 711 => { a => { 111 => 'a' },
- b => { 111 => 'b' },
- c => { 111 => 'c' },
- d => { 111 => 'd' },
- e => { 111 => 'e' },
- #f => { 111 => 'f' },
- g => { 111 => 'g' },
- h => { 111 => 'h' },
- k => { 111 => 'k' },
- l => { 111 => 'l' },
- m => { 111 => 'm' },
- n => { 111 => 'n' },
- o => { 111 => 'o' },
- p => { 111 => 'p' },
- q => { 111 => 'q' },
- r => { 111 => 'r' },
- s => { 111 => 's' },
- t => { 111 => 't' },
- u => { 111 => 'u' },
- y => { 111 => 'y' },
- z => { 111 => 'z' },
- },
- 730 => { a => { 130 => 'a' },
- d => { 130 => 'd' },
- #f => { 130 => 'f' },
- g => { 130 => 'g' },
- h => { 130 => 'h' },
- k => { 130 => 'k' },
- l => { 130 => 'l' },
- m => { 130 => 'm' },
- n => { 130 => 'n' },
- o => { 130 => 'o' },
- p => { 130 => 'p' },
- r => { 130 => 'r' },
- s => { 130 => 's' },
- t => { 130 => 't' },
- y => { 130 => 'y' },
- z => { 130 => 'z' },
- },
- 800 => { a => { 100 => 'a' },
- b => { 100 => 'b' },
- c => { 100 => 'c' },
- d => { 100 => 'd' },
- #f => { 100 => 'f' },
- g => { 100 => 'g' },
- h => { 100 => 'h' },
- k => { 100 => 'k' },
- l => { 100 => 'l' },
- m => { 100 => 'm' },
- n => { 100 => 'n' },
- o => { 100 => 'o' },
- p => { 100 => 'p' },
- q => { 100 => 'q' },
- r => { 100 => 'r' },
- s => { 100 => 's' },
- t => { 100 => 't' },
- y => { 100 => 'y' },
- z => { 100 => 'z' },
- },
- 810 => { a => { 110 => 'a' },
- b => { 110 => 'b' },
- c => { 110 => 'c' },
- d => { 110 => 'd' },
- #f => { 110 => 'f' },
- g => { 110 => 'g' },
- h => { 110 => 'h' },
- k => { 110 => 'k' },
- l => { 110 => 'l' },
- m => { 110 => 'm' },
- n => { 110 => 'n' },
- o => { 110 => 'o' },
- p => { 110 => 'p' },
- r => { 110 => 'r' },
- s => { 110 => 's' },
- t => { 110 => 't' },
- y => { 110 => 'y' },
- z => { 110 => 'z' },
- },
- 811 => { a => { 111 => 'a' },
- b => { 111 => 'b' },
- c => { 111 => 'c' },
- d => { 111 => 'd' },
- e => { 111 => 'e' },
- #f => { 111 => 'f' },
- g => { 111 => 'g' },
- h => { 111 => 'h' },
- k => { 111 => 'k' },
- l => { 111 => 'l' },
- m => { 111 => 'm' },
- n => { 111 => 'n' },
- o => { 111 => 'o' },
- p => { 111 => 'p' },
- q => { 111 => 'q' },
- r => { 111 => 'r' },
- s => { 111 => 's' },
- t => { 111 => 't' },
- u => { 111 => 'u' },
- y => { 111 => 'y' },
- z => { 111 => 'z' },
- },
- 830 => { a => { 130 => 'a' },
- d => { 130 => 'd' },
- #f => { 130 => 'f' },
- g => { 130 => 'g' },
- h => { 130 => 'h' },
- k => { 130 => 'k' },
- l => { 130 => 'l' },
- m => { 130 => 'm' },
- n => { 130 => 'n' },
- o => { 130 => 'o' },
- p => { 130 => 'p' },
- r => { 130 => 'r' },
- s => { 130 => 's' },
- t => { 130 => 't' },
- x => { 130 => 'x' },
- y => { 130 => 'y' },
- z => { 130 => 'z' },
- },
-);
-
-
my %controllees;
sub get_controlled_fields {
get_controlled_fields();
-for my $tag (sort keys %controllees) {
-# if (!exists $_controllees{$tag}) {
-# print "adding mapping for bib tag $tag\n";
-# next;
-# }
-
- for my $subfield (sort keys %{$controllees{$tag}}) {
- for my $authtag (sort keys %{$controllees{$tag}->{$subfield}}) {
- next if
- $_controllees{$tag} &&
- $_controllees{$tag}{$subfield} &&
- $_controllees{$tag}{$subfield}{$authtag};
-
- print "add mapping for bib $tag \$$subfield ".
- "=> authority $authtag \$$subfield\n";
- }
- }
-}
-
-for my $tag (sort keys %_controllees) {
- if (!exists $controllees{$tag}) {
- print "removing mapping for bib tag $tag\n";
- next;
- }
- for my $subfield (sort keys %{$_controllees{$tag}}) {
- print "removing mapping for bib tag $tag \$$subfield\n"
- unless exists $controllees{$tag}{$subfield};
- }
-}
-
# mapping of authority leader/11 "Subject heading system/thesaurus"
# to the matching bib record indicator
my %AUTH_TO_BIB_IND2 = (