|
Lines 1080-1086
sub BuildSummary {
Link Here
|
| 1080 |
my $type = 'seefrom'; |
1080 |
my $type = 'seefrom'; |
| 1081 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
1081 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
| 1082 |
if ( $type eq 'notapplicable' ) { |
1082 |
if ( $type eq 'notapplicable' ) { |
| 1083 |
$type = substr $field->subfield('w'), 2, 1; |
1083 |
$type = substr $field->subfield('w'), 2, 1 if length( $field->subfield('w') ) > 2; |
| 1084 |
$type = 'earlier' if $type && $type ne 'n'; |
1084 |
$type = 'earlier' if $type && $type ne 'n'; |
| 1085 |
} |
1085 |
} |
| 1086 |
if ( $type eq 'subfi' ) { |
1086 |
if ( $type eq 'subfi' ) { |
|
Lines 1103-1109
sub BuildSummary {
Link Here
|
| 1103 |
my $type = 'seealso'; |
1103 |
my $type = 'seealso'; |
| 1104 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
1104 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
| 1105 |
if ( $type eq 'notapplicable' ) { |
1105 |
if ( $type eq 'notapplicable' ) { |
| 1106 |
$type = substr $field->subfield('w'), 2, 1; |
1106 |
$type = substr $field->subfield('w'), 2, 1 if length( $field->subfield('w') ) > 2; |
| 1107 |
$type = 'earlier' if $type && $type ne 'n'; |
1107 |
$type = 'earlier' if $type && $type ne 'n'; |
| 1108 |
} |
1108 |
} |
| 1109 |
if ( $type eq 'subfi' ) { |
1109 |
if ( $type eq 'subfi' ) { |
| 1110 |
- |
|
|