From c929b7deb4cac5ea3d3b79d35f5301f1d3b461b5 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 8 Jun 2022 14:05:42 +0000 Subject: [PATCH] Bug 11889: (QA follow-up) Add POD ground work Content-Type: text/plain; charset=utf-8 --- Koha/Virtualshelves.pm | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/Koha/Virtualshelves.pm b/Koha/Virtualshelves.pm index 57b085e193..53a5ec5b5c 100644 --- a/Koha/Virtualshelves.pm +++ b/Koha/Virtualshelves.pm @@ -35,7 +35,7 @@ Koha::Virtualshelf - Koha Virtualshelf Object class =cut -=head3 type +=head3 get_private_shelves =cut @@ -62,6 +62,9 @@ sub get_private_shelves { ); } +=head3 get_public_shelves + +=cut sub get_public_shelves { my ( $self, $params ) = @_; @@ -80,6 +83,10 @@ sub get_public_shelves { ); } +=head3 get_some_shelves + +=cut + sub get_some_shelves { my ( $self, $params ) = @_; my $borrowernumber = $params->{borrowernumber} || 0; @@ -142,6 +149,10 @@ sub get_some_shelves { ); } +=head3 get_shelves_containing_record + +=cut + sub get_shelves_containing_record { my ( $self, $params ) = @_; my $borrowernumber = $params->{borrowernumber}; @@ -180,6 +191,10 @@ sub get_shelves_containing_record { ); } +=head3 get_shared_shelves + +=cut + sub get_shared_shelves { my ( $self, $params ) = @_; my $borrowernumber = $params->{borrowernumber} || 0; @@ -193,10 +208,18 @@ sub get_shared_shelves { ); } +=head3 _type + +=cut + sub _type { return 'Virtualshelve'; } +=head3 object_class + +=cut + sub object_class { return 'Koha::Virtualshelf'; } -- 2.20.1