Lines 948-954
sub BuildSummary {
Link Here
|
948 |
$summary{type} = $authref->{authtypetext}; |
948 |
$summary{type} = $authref->{authtypetext}; |
949 |
$summary{summary} = $authref->{summary}; |
949 |
$summary{summary} = $authref->{summary}; |
950 |
} |
950 |
} |
951 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz'; |
951 |
my $marc21subfields = 'abcdfghjklmnopqrstuvxyz68'; |
952 |
my %marc21controlrefs = ( 'a' => 'earlier', |
952 |
my %marc21controlrefs = ( 'a' => 'earlier', |
953 |
'b' => 'later', |
953 |
'b' => 'later', |
954 |
'd' => 'acronym', |
954 |
'd' => 'acronym', |
Lines 1027-1037
sub BuildSummary {
Link Here
|
1027 |
# see : |
1027 |
# see : |
1028 |
foreach my $field ($record->field('5..')) { |
1028 |
foreach my $field ($record->field('5..')) { |
1029 |
if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { |
1029 |
if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { |
1030 |
push @seealso, { $field->as_string('abcdefgjxyz'), type => 'broader' }; |
1030 |
push @seealso, { |
|
|
1031 |
heading => $field->as_string('abcdefgjxyz'), |
1032 |
type => 'broader', |
1033 |
search => $field->as_string('abcdefgjxyz'), |
1034 |
authid => $field->subfield('9') |
1035 |
}; |
1031 |
} elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ |
1036 |
} elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ |
1032 |
push @seealso, { heading => $field->as_string('abcdefgjxyz'), type => 'narrower' }; |
1037 |
push @seealso, { |
|
|
1038 |
heading => $field->as_string('abcdefgjxyz'), |
1039 |
type => 'narrower', |
1040 |
search => $field->as_string('abcdefgjxyz'), |
1041 |
authid => $field->subfield('9') |
1042 |
}; |
1033 |
} elsif ($field->subfield('a')) { |
1043 |
} elsif ($field->subfield('a')) { |
1034 |
push @seealso, { heading => $field->as_string('abcdefgxyz'), type => 'seealso' }; |
1044 |
push @seealso, { |
|
|
1045 |
heading => $field->as_string('abcdefgxyz'), |
1046 |
type => 'seealso', |
1047 |
search => $field->as_string('abcdefgjxyz'), |
1048 |
authid => $field->subfield('9') |
1049 |
}; |
1035 |
} |
1050 |
} |
1036 |
} |
1051 |
} |
1037 |
# // form |
1052 |
# // form |
Lines 1090-1098
sub BuildSummary {
Link Here
|
1090 |
my $type = 'seealso'; |
1105 |
my $type = 'seealso'; |
1091 |
$type = $marc21controlrefs{substr $field->subfield('w'), '0'} if ($field->subfield('w')); |
1106 |
$type = $marc21controlrefs{substr $field->subfield('w'), '0'} if ($field->subfield('w')); |
1092 |
if ($type eq 'subfi') { |
1107 |
if ($type eq 'subfi') { |
1093 |
push @seealso, { heading => $field->as_string($marc21subfields), type => $field->subfield('i') }; |
1108 |
push @seealso, { |
|
|
1109 |
heading => $field->as_string($marc21subfields), |
1110 |
type => $field->subfield('i'), |
1111 |
search => $field->as_string($marc21subfields), |
1112 |
authid => $field->subfield('9') |
1113 |
}; |
1094 |
} else { |
1114 |
} else { |
1095 |
push @seealso, { heading => $field->as_string($marc21subfields), type => $type }; |
1115 |
push @seealso, { |
|
|
1116 |
heading => $field->as_string($marc21subfields), |
1117 |
type => $type, |
1118 |
search => $field->as_string($marc21subfields), |
1119 |
authid => $field->subfield('9') |
1120 |
}; |
1096 |
} |
1121 |
} |
1097 |
} |
1122 |
} |
1098 |
foreach my $field ($record->field('6..')) { |
1123 |
foreach my $field ($record->field('6..')) { |