I am not sure this code is called so I don't know how to test it.
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
use Modern::Perl;
use Carp;
use Modern::Perl;
use Carp;
use Koha::Util::MARC;
use base qw(Class::Accessor);
use Koha::Util::MARC;
use base qw(Class::Accessor);
my ($self, $kohafield) = @_;
if ($self->schema =~ m/marc/) {
my ($self, $kohafield) = @_;
if ($self->schema =~ m/marc/) {
- my $relations = C4::Context->marcfromkohafield->{''};
- my $tagfield = $relations->{$kohafield};
+ my $frameworkcode = ""; # FIXME Why do we use the default framework?
+ my $mss = C4::Biblio::GetMarcSubfieldStructure( $frameworkcode );
+ my $tagfield = $mss->{$kohafield};
- return '' if ref($tagfield) ne 'ARRAY';
+ return '' if ref($tagfield) ne 'HASH';
- my ($tag, $subfield) = @$tagfield;
+ my ($tag, $subfield) = ( $tagfield->{tagfield}, $tagfield->{tagsubfield} );
my @kohafield;
foreach my $field ( $self->record->field($tag) ) {
if ( $field->tag() < 10 ) {
my @kohafield;
foreach my $field ( $self->record->field($tag) ) {
if ( $field->tag() < 10 ) {