Bug 32162: DBIC schema

[srvgit] / Koha / MetadataRecord.pm

diff --git a/Koha/MetadataRecord.pm b/Koha/MetadataRecord.pm
index ce792f7..6f0aa1f 100644 (file)
--- a/Koha/MetadataRecord.pm
+++ b/Koha/MetadataRecord.pm
@@ -34,8 +34,7 @@ and authority) records in Koha.
 
 use Modern::Perl;
 
-use Carp;
-use C4::Biblio;
+use Carp qw( carp );
 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::TransformMarcToKohaOneField($kohafield, $self->record);
-    }
-}
-
 1;