Bug 32336: (QA follow-up) Use $metadata->schema

[srvgit] / Koha / MetadataRecord.pm

diff --git a/Koha/MetadataRecord.pm b/Koha/MetadataRecord.pm
index 840f63b..6f0aa1f 100644 (file)
--- a/Koha/MetadataRecord.pm
+++ b/Koha/MetadataRecord.pm
@@ -35,7 +35,6 @@ and authority) records in Koha.
 use Modern::Perl;
 
 use Carp qw( carp );
-use C4::Biblio;
 use Koha::Util::MARC;
 
 use base qw(Class::Accessor);
@@ -109,17 +108,4 @@ sub createMergeHash {
     }
 }
 
-=head2 getKohaField
-
-    $metadata->{$key} = $record->getKohaField($kohafield);
-
-=cut
-
-sub getKohaField {
-    my ($self, $kohafield) = @_;
-    if ($self->schema =~ m/marc/) {
-        return C4::Biblio::TransformMarcToKoha({ kohafields => [$kohafield], record => $self->record});
-    }
-}
-
 1;