|
Lines 714-726
for my $subfield_code ( keys %{ $tagslib->{$itemtagfield} } ) {
Link Here
|
| 714 |
my $subfield = $tagslib->{$itemtagfield}->{$subfield_code}; |
714 |
my $subfield = $tagslib->{$itemtagfield}->{$subfield_code}; |
| 715 |
|
715 |
|
| 716 |
next if IsMarcStructureInternal($subfield); |
716 |
next if IsMarcStructureInternal($subfield); |
| 717 |
next unless $subfield->{tab} eq 10; # Is this really needed? |
|
|
| 718 |
|
717 |
|
| 719 |
my $attribute; |
718 |
my $attribute; |
| 720 |
if ( $subfield->{kohafield} ) { |
719 |
if ( $subfield->{kohafield} ) { |
| 721 |
( $attribute = $subfield->{kohafield} ) =~ s|^items\.||; |
720 |
( $attribute = $subfield->{kohafield} ) =~ s|^items\.||; |
| 722 |
} else { |
721 |
} else { |
| 723 |
$attribute = $subfield_code; # It's in more_subfields_xml |
722 |
$attribute = $subfield_code; # It's in more_subfields_xml |
| 724 |
} |
723 |
} |
| 725 |
next unless grep { $attribute eq $_ } @witness_attributes; |
724 |
next unless grep { $attribute eq $_ } @witness_attributes; |
| 726 |
$subfieldcode_attribute_mappings->{$subfield_code} = $attribute; |
725 |
$subfieldcode_attribute_mappings->{$subfield_code} = $attribute; |
| 727 |
- |
|
|