|
Lines 116-121
if ($authid) {
Link Here
|
| 116 |
my $thes_008_11 = ''; |
116 |
my $thes_008_11 = ''; |
| 117 |
$thes_008_11 = substr($record->field('008')->data(), 11, 1) if $record->field('008')->data(); |
117 |
$thes_008_11 = substr($record->field('008')->data(), 11, 1) if $record->field('008')->data(); |
| 118 |
$indicator2 = defined $thes_mapping{$thes_008_11} ? $thes_mapping{$thes_008_11} : $thes_008_11; |
118 |
$indicator2 = defined $thes_mapping{$thes_008_11} ? $thes_mapping{$thes_008_11} : $thes_008_11; |
|
|
119 |
if ($indicator2 eq '7') { |
| 120 |
if ($thes_008_11 eq 'r') { |
| 121 |
push @subfield_loop, { marc_subfield => '2', marc_values => ('aat') }; |
| 122 |
} elsif ($thes_008_11 eq 's') { |
| 123 |
push @subfield_loop, { marc_subfield => '2', marc_values => ('sears') }; |
| 124 |
} |
| 125 |
} |
| 119 |
} |
126 |
} |
| 120 |
if ($tag_from eq '130') { # unified title -- the special case |
127 |
if ($tag_from eq '130') { # unified title -- the special case |
| 121 |
if ($tag_to eq '830' || $tag_to eq '240') { |
128 |
if ($tag_to eq '830' || $tag_to eq '240') { |
| 122 |
- |
|
|