View | Details | Raw Unified | Return to bug 17201
Collapse All | Expand All

(-)a/Koha/MetadataRecord.pm (-5 / +6 lines)
Lines 35-40 and authority) records in Koha. Link Here
35
use Modern::Perl;
35
use Modern::Perl;
36
36
37
use Carp;
37
use Carp;
38
use C4::Biblio;
38
use Koha::Util::MARC;
39
use Koha::Util::MARC;
39
40
40
use base qw(Class::Accessor);
41
use base qw(Class::Accessor);
Lines 112-123 sub getKohaField { Link Here
112
    my ($self, $kohafield) = @_;
113
    my ($self, $kohafield) = @_;
113
114
114
    if ($self->schema =~ m/marc/) {
115
    if ($self->schema =~ m/marc/) {
115
        my $relations = C4::Context->marcfromkohafield->{''};
116
        my $frameworkcode = ""; # FIXME Why do we use the default framework?
116
        my $tagfield = $relations->{$kohafield};
117
        my $mss = C4::Biblio::GetMarcSubfieldStructure( $frameworkcode );
118
        my $tagfield = $mss->{$kohafield};
117
119
118
        return '' if ref($tagfield) ne 'ARRAY';
120
        return '' if ref($tagfield) ne 'HASH';
119
121
120
        my ($tag, $subfield) = @$tagfield;
122
        my ($tag, $subfield) = ( $tagfield->{tagfield}, $tagfield->{tagsubfield} );
121
        my @kohafield;
123
        my @kohafield;
122
        foreach my $field ( $self->record->field($tag) ) {
124
        foreach my $field ( $self->record->field($tag) ) {
123
            if ( $field->tag() < 10 ) {
125
            if ( $field->tag() < 10 ) {
124
- 

Return to bug 17201