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 |
- |
|
|