Lines 1080-1089
sub get_marc_notes {
Link Here
|
1080 |
push @marcnotes, { marcnote => $field->as_string($othersub) }; |
1080 |
push @marcnotes, { marcnote => $field->as_string($othersub) }; |
1081 |
foreach my $sub ( $field->subfield('u') ) { |
1081 |
foreach my $sub ( $field->subfield('u') ) { |
1082 |
$sub =~ s/^\s+|\s+$//g; # trim |
1082 |
$sub =~ s/^\s+|\s+$//g; # trim |
1083 |
push @marcnotes, { marcnote => $sub }; |
1083 |
push @marcnotes, { marcnote => $sub, tag => $tag }; |
1084 |
} |
1084 |
} |
1085 |
} else { |
1085 |
} else { |
1086 |
push @marcnotes, { marcnote => $field->as_string() }; |
1086 |
push @marcnotes, { marcnote => $field->as_string(), tag => $tag }; |
1087 |
} |
1087 |
} |
1088 |
} |
1088 |
} |
1089 |
return \@marcnotes; |
1089 |
return \@marcnotes; |