Bug 19028: Add 'shelving location' to holdings table in detail page

[koha.git] / Koha / Authority.pm

diff --git a/Koha/Authority.pm b/Koha/Authority.pm
index b03737d..ac2b25c 100644 (file)
--- a/Koha/Authority.pm
+++ b/Koha/Authority.pm
@@ -19,11 +19,8 @@ package Koha::Authority;
 
 use Modern::Perl;
 
-use Carp;
-
-use Koha::Database;
-
 use base qw(Koha::Object);
+use Koha::SearchEngine::Search;
 
 =head1 NAME
 
@@ -31,10 +28,39 @@ Koha::Authority - Koha Authority Object class
 
 =head1 API
 
-=head2 Class Methods
+=head2 Instance Methods
+
+=head3 get_usage_count
+
+    $count = $self->get_usage_count;
+
+    Returns the number of linked biblio records.
 
 =cut
 
+sub get_usage_count {
+    my ( $self ) = @_;
+    return Koha::Authorities->get_usage_count({ authid => $self->authid });
+}
+
+=head3 linked_biblionumbers
+
+    my @biblios = $self->linked_biblionumbers({
+        [ max_results => $max ], [ offset => $offset ],
+    });
+
+    Returns an array of biblionumbers.
+
+=cut
+
+sub linked_biblionumbers {
+    my ( $self, $params ) = @_;
+    $params->{authid} = $self->authid;
+    return Koha::Authorities->linked_biblionumbers( $params );
+}
+
+=head2 Class Methods
+
 =head3 type
 
 =cut