|
Lines 952-958
sub BuildSummary {
Link Here
|
| 952 |
$summary{type} = $authref->{authtypetext}; |
952 |
$summary{type} = $authref->{authtypetext}; |
| 953 |
$summary{summary} = $authref->{summary}; |
953 |
$summary{summary} = $authref->{summary}; |
| 954 |
} |
954 |
} |
| 955 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz'; |
955 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz68'; |
| 956 |
my %marc21controlrefs = ( 'a' => 'earlier', |
956 |
my %marc21controlrefs = ( 'a' => 'earlier', |
| 957 |
'b' => 'later', |
957 |
'b' => 'later', |
| 958 |
'd' => 'acronym', |
958 |
'd' => 'acronym', |
|
Lines 1031-1041
sub BuildSummary {
Link Here
|
| 1031 |
# see : |
1031 |
# see : |
| 1032 |
foreach my $field ($record->field('5..')) { |
1032 |
foreach my $field ($record->field('5..')) { |
| 1033 |
if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { |
1033 |
if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { |
| 1034 |
push @seealso, { $field->as_string('abcdefgjxyz'), type => 'broader' }; |
1034 |
push @seealso, { |
|
|
1035 |
heading => $field->as_string('abcdefgjxyz'), |
| 1036 |
type => 'broader', |
| 1037 |
search => $field->as_string('abcdefgjxyz'), |
| 1038 |
authid => $field->subfield('9') |
| 1039 |
}; |
| 1035 |
} elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ |
1040 |
} elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ |
| 1036 |
push @seealso, { heading => $field->as_string('abcdefgjxyz'), type => 'narrower' }; |
1041 |
push @seealso, { |
|
|
1042 |
heading => $field->as_string('abcdefgjxyz'), |
| 1043 |
type => 'narrower', |
| 1044 |
search => $field->as_string('abcdefgjxyz'), |
| 1045 |
authid => $field->subfield('9') |
| 1046 |
}; |
| 1037 |
} elsif ($field->subfield('a')) { |
1047 |
} elsif ($field->subfield('a')) { |
| 1038 |
push @seealso, { heading => $field->as_string('abcdefgxyz'), type => 'seealso' }; |
1048 |
push @seealso, { |
|
|
1049 |
heading => $field->as_string('abcdefgxyz'), |
| 1050 |
type => 'seealso', |
| 1051 |
search => $field->as_string('abcdefgjxyz'), |
| 1052 |
authid => $field->subfield('9') |
| 1053 |
}; |
| 1039 |
} |
1054 |
} |
| 1040 |
} |
1055 |
} |
| 1041 |
# // form |
1056 |
# // form |
|
Lines 1083-1102
sub BuildSummary {
Link Here
|
| 1083 |
} #See From |
1098 |
} #See From |
| 1084 |
foreach my $field ($record->field('4..')) { |
1099 |
foreach my $field ($record->field('4..')) { |
| 1085 |
my $type = 'seefrom'; |
1100 |
my $type = 'seefrom'; |
| 1086 |
$type = $marc21controlrefs{substr $field->subfield('w'), '0'} if ($field->subfield('w')); |
1101 |
$type = ($marc21controlrefs{substr $field->subfield('w'), '0'} || '') if ($field->subfield('w')); |
| 1087 |
if ($type eq 'subfi') { |
1102 |
if ($type eq 'subfi') { |
| 1088 |
push @seefrom, { heading => $field->as_string($marc21subfields), type => $field->subfield('i') }; |
1103 |
push @seefrom, { heading => $field->as_string($marc21subfields), type => $field->subfield('i') || '' }; |
| 1089 |
} else { |
1104 |
} else { |
| 1090 |
push @seefrom, { heading => $field->as_string($marc21subfields), type => $type }; |
1105 |
push @seefrom, { heading => $field->as_string($marc21subfields), type => $type || '' }; |
| 1091 |
} |
1106 |
} |
| 1092 |
} #See Also |
1107 |
} #See Also |
| 1093 |
foreach my $field ($record->field('5..')) { |
1108 |
foreach my $field ($record->field('5..')) { |
| 1094 |
my $type = 'seealso'; |
1109 |
my $type = 'seealso'; |
| 1095 |
$type = $marc21controlrefs{substr $field->subfield('w'), '0'} if ($field->subfield('w')); |
1110 |
$type = ($marc21controlrefs{substr $field->subfield('w'), '0'} || '') if ($field->subfield('w')); |
| 1096 |
if ($type eq 'subfi') { |
1111 |
if ($type eq 'subfi') { |
| 1097 |
push @seealso, { heading => $field->as_string($marc21subfields), type => $field->subfield('i') }; |
1112 |
push @seealso, { |
|
|
1113 |
heading => $field->as_string($marc21subfields), |
| 1114 |
type => $field->subfield('i') || '', |
| 1115 |
search => $field->as_string($marc21subfields) || '', |
| 1116 |
authid => $field->subfield('9') || '' |
| 1117 |
}; |
| 1098 |
} else { |
1118 |
} else { |
| 1099 |
push @seealso, { heading => $field->as_string($marc21subfields), type => $type }; |
1119 |
push @seealso, { |
|
|
1120 |
heading => $field->as_string($marc21subfields), |
| 1121 |
type => $type || '', |
| 1122 |
search => $field->as_string($marc21subfields) || '', |
| 1123 |
authid => $field->subfield('9') || '' |
| 1124 |
}; |
| 1100 |
} |
1125 |
} |
| 1101 |
} |
1126 |
} |
| 1102 |
foreach my $field ($record->field('6..')) { |
1127 |
foreach my $field ($record->field('6..')) { |