|
Lines 1084-1090
sub BuildSummary {
Link Here
|
| 1084 |
my $type = 'seefrom'; |
1084 |
my $type = 'seefrom'; |
| 1085 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
1085 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
| 1086 |
if ( $type eq 'notapplicable' ) { |
1086 |
if ( $type eq 'notapplicable' ) { |
| 1087 |
$type = substr $field->subfield('w'), 2, 1; |
1087 |
$type = substr $field->subfield('w'), 2, 1 if length( $field->subfield('w') ) > 2; |
| 1088 |
$type = 'earlier' if $type && $type ne 'n'; |
1088 |
$type = 'earlier' if $type && $type ne 'n'; |
| 1089 |
} |
1089 |
} |
| 1090 |
if ( $type eq 'subfi' ) { |
1090 |
if ( $type eq 'subfi' ) { |
|
Lines 1107-1113
sub BuildSummary {
Link Here
|
| 1107 |
my $type = 'seealso'; |
1107 |
my $type = 'seealso'; |
| 1108 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
1108 |
$type = ( $marc21controlrefs{ substr $field->subfield('w'), 0, 1 } || '' ) if ( $field->subfield('w') ); |
| 1109 |
if ( $type eq 'notapplicable' ) { |
1109 |
if ( $type eq 'notapplicable' ) { |
| 1110 |
$type = substr $field->subfield('w'), 2, 1; |
1110 |
$type = substr $field->subfield('w'), 2, 1 if length( $field->subfield('w') ) > 2; |
| 1111 |
$type = 'earlier' if $type && $type ne 'n'; |
1111 |
$type = 'earlier' if $type && $type ne 'n'; |
| 1112 |
} |
1112 |
} |
| 1113 |
if ( $type eq 'subfi' ) { |
1113 |
if ( $type eq 'subfi' ) { |
| 1114 |
- |
|
|