LP#1465830: authority linker now ignores $e and $4 in bib name headings

presence of relator terms or codes in $e or $4 can prevent authority
headings linking

To test
-------
[1] Create an authority record with a name heading like this

    100 $a Example, Natalia $d 1945-

[2] Create a bib record that contains the name and a relator
    code or term, e.g.,

    100 $a Example, Natalia $d 1945- $4edt

[3] Run authority_control_fields.pl. Note that the
    heading in the bib is *NOT* linked, as evidence
    by no $0 being added to the bib heading and no
    rows added to authority.bib_linking for that bib
    and authority.

[4] Apply the patch and re-run step 3.  This time,
    the link gets established:

    100 $a Example, Natalia $d 1945- $4 edt $0 (CONS)xxx

Signed-off-by: Yamil Suarez <yamil@yamil.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/Open-ILS/src/support-scripts/authority_control_fields.pl.in b/Open-ILS/src/support-scripts/authority_control_fields.pl.in
index 963af19..d8698db 100755 (executable)
--- a/Open-ILS/src/support-scripts/authority_control_fields.pl.in
+++ b/Open-ILS/src/support-scripts/authority_control_fields.pl.in
@@ -125,7 +125,6 @@ my %controllees = (
              b => { 100 => 'b' },
              c => { 100 => 'c' },
              d => { 100 => 'd' },
-             e => { 100 => 'e' },
              f => { 100 => 'f' },
              g => { 100 => 'g' },
              j => { 100 => 'j' },
@@ -136,13 +135,11 @@ my %controllees = (
              q => { 100 => 'q' },
              t => { 100 => 't' },
              u => { 100 => 'u' },
-             4 => { 100 => '4' },
     },
     110 => { a => { 110 => 'a' },
              b => { 110 => 'b' },
              c => { 110 => 'c' },
              d => { 110 => 'd' },
-             e => { 110 => 'e' },
              f => { 110 => 'f' },
              g => { 110 => 'g' },
              k => { 110 => 'k' },
@@ -151,7 +148,6 @@ my %controllees = (
              p => { 110 => 'p' },
              t => { 110 => 't' },
              u => { 110 => 'u' },
-             4 => { 110 => '4' },
     },
     111 => { a => { 111 => 'a' },
              c => { 111 => 'c' },
@@ -167,7 +163,6 @@ my %controllees = (
              q => { 111 => 'q' },
              t => { 111 => 't' },
              u => { 111 => 'u' },
-             4 => { 111 => '4' },
     },
     130 => { a => { 130 => 'a' },
              d => { 130 => 'd' },
@@ -188,7 +183,6 @@ my %controllees = (
              b => { 100 => 'b' },
              c => { 100 => 'c' },
              d => { 100 => 'd' },
-             e => { 100 => 'e' },
              f => { 100 => 'f' },
              g => { 100 => 'g' },
              h => { 100 => 'h' },
@@ -207,13 +201,11 @@ my %controllees = (
              x => { 100 => 'x' },
              y => { 100 => 'y' },
              z => { 100 => 'z' },
-             4 => { 100 => '4' },
     },
     610 => { a => { 110 => 'a' },
              b => { 110 => 'b' },
              c => { 110 => 'c' },
              d => { 110 => 'd' },
-             e => { 110 => 'e' },
              f => { 110 => 'f' },
              g => { 110 => 'g' },
              h => { 110 => 'h' },
@@ -299,7 +291,6 @@ my %controllees = (
              b => { 100 => 'b' },
              c => { 100 => 'c' },
              d => { 100 => 'd' },
-             e => { 100 => 'e' },
              f => { 100 => 'f' },
              g => { 100 => 'g' },
              j => { 100 => 'j' },
@@ -310,13 +301,11 @@ my %controllees = (
              q => { 100 => 'q' },
              t => { 100 => 't' },
              u => { 100 => 'u' },
-             4 => { 100 => '4' },
     },
     710 => { a => { 110 => 'a' },
              b => { 110 => 'b' },
              c => { 110 => 'c' },
              d => { 110 => 'd' },
-             e => { 110 => 'e' },
              f => { 110 => 'f' },
              g => { 110 => 'g' },
              k => { 110 => 'k' },
@@ -325,7 +314,6 @@ my %controllees = (
              p => { 110 => 'p' },
              t => { 110 => 't' },
              u => { 110 => 'u' },
-             4 => { 110 => '4' },
     },
     711 => { a => { 111 => 'a' },
              c => { 111 => 'c' },
@@ -341,7 +329,6 @@ my %controllees = (
              q => { 111 => 'q' },
              t => { 111 => 't' },
              u => { 111 => 'u' },
-             4 => { 111 => '4' },
     },
     730 => { a => { 130 => 'a' },
              d => { 130 => 'd' },