X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FAdditionalFieldValue.pm;h=6af87a9d9d5b95f0cdd5bd8e3e9cd2622472fcb1;hb=c0316b48c05d0eed47132d1cb88186d5cfbb5858;hp=48c399f147d33f7c8ae604d9d1c7707d92aeded6;hpb=284b543ea4a82dfd4873cc122ba7c2a816f141ca;p=koha-ffzg.git

diff --git a/Koha/AdditionalFieldValue.pm b/Koha/AdditionalFieldValue.pm
index 48c399f147..6af87a9d9d 100644
--- a/Koha/AdditionalFieldValue.pm
+++ b/Koha/AdditionalFieldValue.pm
@@ -1,5 +1,10 @@
 package Koha::AdditionalFieldValue;
 
+use Modern::Perl;
+use Koha::AdditionalField;
+
+use base 'Koha::Object';
+
 =head1 NAME
 
 Koha::AdditionalFieldValue - Koha::Object derived class for additional field
@@ -7,9 +12,27 @@ values
 
 =cut
 
-use Modern::Perl;
+=head2 Class methods
 
-use base 'Koha::Object';
+=cut
+
+=head3 field
+
+Return the Koha::AdditionalField object for this AdditionalFieldValue
+
+=cut
+
+sub field {
+    my ( $self ) = @_;
+
+    return Koha::AdditionalField->_new_from_dbic( $self->_result()->field() );
+}
+
+=head2 Internal methods
+
+=head3 _type
+
+=cut
 
 sub _type { 'AdditionalFieldValue' }