gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 17201: (bug 16431 follow-up) Remove occurrence of marcfromkohafield 

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>
This commit is contained in:
Jonathan Druart 2016-08-26 13:32:00 +01:00 committed by Kyle M Hall
parent 1133d318c4
commit b043eac50c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Koha/MetadataRecord.pm
View File

@ -35,6 +35,7 @@ and authority) records in Koha.
use Modern::Perl;
use Carp;
use C4::Biblio;
use Koha::Util::MARC;
use base qw(Class::Accessor);
@ -112,12 +113,13 @@ sub getKohaField {
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 ) {