@@ -, +, @@ --- Koha/CmsPage.pm | 2 +- Koha/CmsPages.pm | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) --- a/Koha/CmsPage.pm +++ a/Koha/CmsPage.pm @@ -50,7 +50,7 @@ sub parentObj { return scalar Koha::CmsPages->find( $p ); } -=head3 isParent +=head3 isaParent Returns true if page is a parent --- a/Koha/CmsPages.pm +++ a/Koha/CmsPages.pm @@ -44,6 +44,10 @@ sub _type { return 'CmsPage'; } +=head3 object_class + +=cut + sub object_class { return 'Koha::CmsPage'; } --