Bugzilla – Attachment 179456 Details for
Bug 39367
Add POD to all subroutines/methods
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 39367: Automatic changes
Bug-39367-Automatic-changes.patch (text/plain), 254.41 KB, created by
Jonathan Druart
on 2025-03-18 15:32:31 UTC
(
hide
)
Description:
Bug 39367: Automatic changes
Filename:
MIME Type:
Creator:
Jonathan Druart
Created:
2025-03-18 15:32:31 UTC
Size:
254.41 KB
patch
obsolete
>From 393958571ade5d242932dfdc86315fb6a4d2c35b Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Tue, 18 Mar 2025 14:02:19 +0100 >Subject: [PATCH] Bug 39367: Automatic changes > >Added head2 right before sub with missing POD >--- > C4/Acquisition.pm | 18 + > C4/Auth.pm | 32 ++ > C4/Auth_with_cas.pm | 55 +++ > C4/Auth_with_shibboleth.pm | 7 + > C4/AuthoritiesMarc.pm | 6 + > C4/Barcodes.pm | 96 ++++++ > C4/Barcodes/hbyymmincr.pm | 36 ++ > C4/Budgets.pm | 152 +++++++++ > C4/Circulation.pm | 84 +++++ > C4/Context.pm | 13 + > C4/Contract.pm | 18 + > C4/CourseReserves.pm | 21 +- > C4/Creators/PDF.pm | 240 +++++++++++++ > C4/Creators/Template.pm | 6 + > C4/External/BakerTaylor.pm | 24 ++ > C4/External/Syndetics.pm | 36 ++ > C4/HoldsQueue.pm | 18 + > C4/ImportBatch.pm | 6 + > C4/InstallAuth.pm | 6 + > C4/Installer.pm | 91 +++++ > C4/Installer/PerlModules.pm | 6 + > C4/Installer/UpgradeBackup.pm | 6 + > C4/ItemCirculationAlertPreference.pm | 6 + > C4/Items.pm | 12 + > C4/Koha.pm | 49 +++ > C4/Labels/Label.pm | 6 + > C4/Languages.pm | 19 ++ > C4/Linker.pm | 6 + > C4/Linker/Default.pm | 18 + > C4/Linker/FirstMatch.pm | 24 ++ > C4/Linker/LastMatch.pm | 24 ++ > C4/Matcher.pm | 6 + > C4/Message.pm | 7 + > C4/Output.pm | 30 ++ > C4/Output/JSONStream.pm | 18 + > C4/Overdues.pm | 6 + > C4/Patroncards/Lib.pm | 24 ++ > C4/Record.pm | 6 + > C4/Reports/Guided.pm | 78 +++++ > C4/Ris.pm | 111 ++++++ > C4/SIP/ILS.pm | 48 +++ > C4/SIP/ILS/Item.pm | 79 +++++ > C4/SIP/ILS/Patron.pm | 128 +++++++ > C4/SIP/ILS/Transaction/Checkin.pm | 24 ++ > C4/SIP/Sip.pm | 65 ++++ > C4/Scheduler.pm | 6 + > C4/Scrubber.pm | 8 +- > C4/Search.pm | 6 + > C4/Search/History.pm | 6 + > C4/Search/PazPar2.pm | 42 +++ > C4/ShelfBrowser.pm | 7 + > C4/Suggestions.pm | 6 + > C4/Tags.pm | 134 ++++++++ > C4/Templates.pm | 37 ++ > C4/TmplToken.pm | 132 ++++++++ > C4/TmplTokenType.pm | 6 + > C4/UsageStats.pm | 6 + > C4/Utils/DataTables/TablesSettings.pm | 24 ++ > C4/XISBN.pm | 6 + > C4/XSLT.pm | 12 + > Koha/Account.pm | 6 + > Koha/Account/Lines.pm | 6 + > Koha/Acquisition/Currencies.pm | 6 + > Koha/Acquisition/Invoice/Adjustments.pm | 6 + > Koha/AdditionalFieldValues.pm | 9 +- > Koha/AdditionalFields.pm | 9 +- > Koha/ArticleRequests.pm | 6 + > Koha/AuthorisedValueCategories.pm | 6 + > Koha/AuthorisedValues.pm | 42 +++ > Koha/Authority/Type.pm | 6 + > Koha/Authority/Types.pm | 6 + > Koha/Biblio/Metadatas.pm | 6 + > Koha/BiblioFrameworks.pm | 6 + > Koha/Biblioitems.pm | 6 + > Koha/Cache.pm | 12 + > Koha/Cities.pm | 6 + > Koha/Club.pm | 6 + > Koha/Club/Enrollment/Fields.pm | 6 + > Koha/Club/Enrollments.pm | 6 + > Koha/Club/Fields.pm | 6 + > Koha/Club/Template.pm | 6 + > Koha/Club/Template/EnrollmentFields.pm | 6 + > Koha/Club/Template/Fields.pm | 6 + > Koha/Club/Templates.pm | 6 + > Koha/Clubs.pm | 6 + > Koha/Config/SysPrefs.pm | 6 + > Koha/CoverImages.pm | 6 + > Koha/CsvProfiles.pm | 6 + > Koha/DateUtils.pm | 6 + > Koha/ERM/EHoldings/Package/Agreements.pm | 6 + > Koha/ERM/EHoldings/Packages.pm | 6 + > Koha/ERM/EHoldings/Resources.pm | 6 + > Koha/ERM/EHoldings/Titles.pm | 6 + > Koha/Edifact/Line.pm | 315 ++++++++++++++++++ > Koha/Edifact/Message.pm | 78 +++++ > Koha/Edifact/Transport.pm | 18 + > Koha/ExternalContent.pm | 30 ++ > Koha/ExternalContent/OverDrive.pm | 36 ++ > Koha/Item/Transfer/Limits.pm | 6 + > Koha/Item/Transfers.pm | 6 + > Koha/Items.pm | 6 + > Koha/Libraries.pm | 6 + > Koha/Linktracker.pm | 6 + > Koha/MetadataRecord/Authority.pm | 6 + > Koha/Middleware/SetEnv.pm | 6 + > Koha/Notice/Messages.pm | 6 + > Koha/Notice/Templates.pm | 6 + > Koha/OAI/Server/ListBase.pm | 6 + > Koha/OAI/Server/Repository.pm | 24 ++ > Koha/Patron.pm | 6 + > Koha/Patron/Attribute/Types.pm | 6 + > Koha/Patron/Attributes.pm | 6 + > Koha/Patron/Category.pm | 6 + > Koha/Patron/Files.pm | 6 + > Koha/Patron/HouseboundProfiles.pm | 6 + > Koha/Patron/HouseboundRoles.pm | 6 + > Koha/Patron/HouseboundVisits.pm | 6 + > Koha/Patron/Images.pm | 6 + > Koha/Plugins/Base.pm | 12 + > Koha/REST/Plugin/Auth/IdP.pm | 6 + > Koha/REST/Plugin/Exceptions.pm | 6 + > Koha/REST/Plugin/Objects.pm | 6 + > Koha/REST/Plugin/Responses.pm | 6 + > Koha/Ratings.pm | 6 + > Koha/Reviews.pm | 6 + > Koha/Schema/Result/AccountCreditType.pm | 12 + > Koha/Schema/Result/AccountDebitType.pm | 12 + > Koha/Schema/Result/AccountOffset.pm | 12 + > Koha/Schema/Result/Accountline.pm | 12 + > Koha/Schema/Result/Aqbasket.pm | 12 + > Koha/Schema/Result/Aqbasketgroup.pm | 12 + > Koha/Schema/Result/Aqbookseller.pm | 12 + > Koha/Schema/Result/AqbooksellerAlias.pm | 12 + > Koha/Schema/Result/AqbooksellerInterface.pm | 12 + > Koha/Schema/Result/AqbooksellerIssue.pm | 12 + > Koha/Schema/Result/Aqbudget.pm | 12 + > Koha/Schema/Result/Aqbudgetperiod.pm | 12 + > Koha/Schema/Result/Aqcontact.pm | 12 + > Koha/Schema/Result/Aqinvoice.pm | 12 + > Koha/Schema/Result/AqinvoiceAdjustment.pm | 12 + > Koha/Schema/Result/Aqorder.pm | 12 + > Koha/Schema/Result/AqordersClaim.pm | 12 + > Koha/Schema/Result/AuthHeader.pm | 12 + > Koha/Schema/Result/AuthSubfieldStructure.pm | 12 + > Koha/Schema/Result/AuthTagStructure.pm | 12 + > Koha/Schema/Result/AuthType.pm | 12 + > Koha/Schema/Result/AuthorisedValueCategory.pm | 6 + > Koha/Schema/Result/BiblioMetadata.pm | 12 + > Koha/Schema/Result/Borrower.pm | 12 + > Koha/Schema/Result/BorrowerAttribute.pm | 12 + > Koha/Schema/Result/BorrowerAttributeType.pm | 12 + > Koha/Schema/Result/BorrowerDebarment.pm | 12 + > .../Result/BorrowerMessagePreference.pm | 12 + > .../BorrowerMessageTransportPreference.pm | 12 + > Koha/Schema/Result/BorrowerModification.pm | 12 + > Koha/Schema/Result/BorrowerRelationship.pm | 12 + > Koha/Schema/Result/Branch.pm | 12 + > Koha/Schema/Result/BranchTransferLimit.pm | 12 + > Koha/Schema/Result/BranchesOverdrive.pm | 12 + > Koha/Schema/Result/Branchtransfer.pm | 12 + > Koha/Schema/Result/CashRegister.pm | 12 + > Koha/Schema/Result/CashRegisterAction.pm | 12 + > Koha/Schema/Result/Category.pm | 12 + > Koha/Schema/Result/CheckoutRenewal.pm | 12 + > Koha/Schema/Result/CirculationRule.pm | 12 + > Koha/Schema/Result/City.pm | 6 + > Koha/Schema/Result/ClubEnrollment.pm | 12 + > Koha/Schema/Result/ClubEnrollmentField.pm | 12 + > Koha/Schema/Result/ClubField.pm | 12 + > Koha/Schema/Result/ClubHold.pm | 12 + > Koha/Schema/Result/ClubHoldsToPatronHold.pm | 12 + > Koha/Schema/Result/ClubTemplate.pm | 12 + > .../Result/ClubTemplateEnrollmentField.pm | 12 + > Koha/Schema/Result/ClubTemplateField.pm | 12 + > Koha/Schema/Result/CourseInstructor.pm | 12 + > Koha/Schema/Result/CourseItem.pm | 12 + > Koha/Schema/Result/CourseReserve.pm | 12 + > Koha/Schema/Result/CurbsidePickupPolicy.pm | 12 + > Koha/Schema/Result/Currency.pm | 12 + > Koha/Schema/Result/Deletedbiblio.pm | 12 + > Koha/Schema/Result/DeletedbiblioMetadata.pm | 12 + > Koha/Schema/Result/Deletedbiblioitem.pm | 12 + > Koha/Schema/Result/Deletedborrower.pm | 12 + > Koha/Schema/Result/Deleteditem.pm | 12 + > Koha/Schema/Result/ErmAgreement.pm | 12 + > Koha/Schema/Result/ErmAgreementLicense.pm | 12 + > Koha/Schema/Result/ErmAgreementPeriod.pm | 12 + > .../Schema/Result/ErmAgreementRelationship.pm | 12 + > Koha/Schema/Result/ErmCounterFile.pm | 12 + > Koha/Schema/Result/ErmCounterLog.pm | 12 + > Koha/Schema/Result/ErmDefaultUsageReport.pm | 12 + > Koha/Schema/Result/ErmDocument.pm | 12 + > Koha/Schema/Result/ErmEholdingsPackage.pm | 12 + > .../Result/ErmEholdingsPackagesAgreement.pm | 12 + > Koha/Schema/Result/ErmEholdingsResource.pm | 12 + > Koha/Schema/Result/ErmEholdingsTitle.pm | 12 + > Koha/Schema/Result/ErmLicense.pm | 12 + > Koha/Schema/Result/ErmUsageDataProvider.pm | 12 + > Koha/Schema/Result/ErmUsageDatabase.pm | 12 + > Koha/Schema/Result/ErmUsageItem.pm | 12 + > Koha/Schema/Result/ErmUsageMus.pm | 12 + > Koha/Schema/Result/ErmUsagePlatform.pm | 12 + > Koha/Schema/Result/ErmUsageTitle.pm | 12 + > Koha/Schema/Result/ErmUsageYus.pm | 12 + > Koha/Schema/Result/ErmUserRole.pm | 12 + > Koha/Schema/Result/ExportFormat.pm | 12 + > Koha/Schema/Result/HoldCancellationRequest.pm | 12 + > Koha/Schema/Result/HouseboundProfile.pm | 12 + > Koha/Schema/Result/HouseboundRole.pm | 12 + > Koha/Schema/Result/HouseboundVisit.pm | 12 + > Koha/Schema/Result/IdentityProvider.pm | 12 + > Koha/Schema/Result/IdentityProviderDomain.pm | 12 + > Koha/Schema/Result/Illbatch.pm | 12 + > Koha/Schema/Result/IllbatchStatus.pm | 12 + > Koha/Schema/Result/Illcomment.pm | 12 + > Koha/Schema/Result/Illrequest.pm | 12 + > Koha/Schema/Result/Illrequestattribute.pm | 12 + > Koha/Schema/Result/ImportAuth.pm | 12 + > Koha/Schema/Result/ImportBiblio.pm | 12 + > Koha/Schema/Result/ImportItem.pm | 12 + > Koha/Schema/Result/ImportOaiAuthority.pm | 12 + > Koha/Schema/Result/ImportOaiBiblio.pm | 12 + > Koha/Schema/Result/ImportRecord.pm | 12 + > Koha/Schema/Result/ImportRecordMatch.pm | 12 + > Koha/Schema/Result/Issue.pm | 12 + > Koha/Schema/Result/Item.pm | 6 + > Koha/Schema/Result/ItemGroup.pm | 12 + > Koha/Schema/Result/ItemGroupItem.pm | 12 + > Koha/Schema/Result/Itemtype.pm | 12 + > Koha/Schema/Result/Letter.pm | 12 + > Koha/Schema/Result/LibraryGroup.pm | 12 + > Koha/Schema/Result/LibraryHour.pm | 12 + > Koha/Schema/Result/Linktracker.pm | 12 + > Koha/Schema/Result/Message.pm | 12 + > Koha/Schema/Result/MessageAttribute.pm | 12 + > Koha/Schema/Result/MessageQueue.pm | 12 + > Koha/Schema/Result/MessageTransport.pm | 12 + > Koha/Schema/Result/MessageTransportType.pm | 12 + > Koha/Schema/Result/NeedMergeAuthority.pm | 12 + > Koha/Schema/Result/OaiServer.pm | 12 + > Koha/Schema/Result/OauthAccessToken.pm | 12 + > Koha/Schema/Result/OldIssue.pm | 12 + > Koha/Schema/Result/OldReserve.pm | 12 + > Koha/Schema/Result/Overduerule.pm | 12 + > Koha/Schema/Result/PatronConsent.pm | 12 + > Koha/Schema/Result/Patronimage.pm | 12 + > Koha/Schema/Result/PluginData.pm | 12 + > Koha/Schema/Result/PluginMethod.pm | 12 + > Koha/Schema/Result/PreservationProcessing.pm | 12 + > .../Result/PreservationProcessingAttribute.pm | 12 + > .../PreservationProcessingAttributesItem.pm | 12 + > Koha/Schema/Result/PreservationTrain.pm | 12 + > Koha/Schema/Result/PreservationTrainsItem.pm | 12 + > Koha/Schema/Result/Reserve.pm | 12 + > Koha/Schema/Result/RestrictionType.pm | 12 + > Koha/Schema/Result/ReturnClaim.pm | 12 + > Koha/Schema/Result/SavedSql.pm | 12 + > Koha/Schema/Result/Serialitem.pm | 12 + > Koha/Schema/Result/SmsProvider.pm | 12 + > Koha/Schema/Result/SmtpServer.pm | 12 + > Koha/Schema/Result/Stockrotationitem.pm | 12 + > Koha/Schema/Result/Stockrotationrota.pm | 12 + > Koha/Schema/Result/Stockrotationstage.pm | 12 + > Koha/Schema/Result/SubscriptionFrequency.pm | 12 + > .../Result/SubscriptionNumberpattern.pm | 12 + > Koha/Schema/Result/Subscriptionhistory.pm | 12 + > Koha/Schema/Result/Subscriptionroutinglist.pm | 12 + > Koha/Schema/Result/Suggestion.pm | 12 + > Koha/Schema/Result/Systempreference.pm | 12 + > Koha/Schema/Result/TagAll.pm | 12 + > Koha/Schema/Result/TagsApproval.pm | 12 + > Koha/Schema/Result/TagsIndex.pm | 12 + > Koha/Schema/Result/TicketUpdate.pm | 12 + > Koha/Schema/Result/TmpHoldsqueue.pm | 12 + > Koha/Schema/Result/Virtualshelve.pm | 12 + > Koha/Schema/Result/Z3950server.pm | 12 + > Koha/SearchEngine/Elasticsearch.pm | 19 ++ > Koha/SearchField.pm | 6 + > Koha/SearchFields.pm | 6 + > Koha/SearchMarcMap.pm | 6 + > Koha/SearchMarcMaps.pm | 6 + > Koha/Serial/Items.pm | 6 + > Koha/Serials.pm | 6 + > Koha/SimpleMARC.pm | 18 + > Koha/Subscription/Histories.pm | 6 + > Koha/Subscriptions.pm | 6 + > Koha/Template/Plugin/AuthorisedValues.pm | 12 + > Koha/Template/Plugin/HtmlId.pm | 6 + > Koha/Template/Plugin/Koha.pm | 18 + > Koha/TrackedLinks.pm | 6 + > Koha/Virtualshelf.pm | 102 ++++++ > Koha/Virtualshelfcontents.pm | 6 + > Koha/Virtualshelfshares.pm | 6 + > t/lib/Mocks/Zebra.pm | 43 +++ > t/lib/QA/TemplateFilters.pm | 6 + > t/lib/Selenium.pm | 18 + > t/lib/TestBuilder.pm | 18 + > 297 files changed, 5234 insertions(+), 4 deletions(-) > >diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm >index a81a6b9acd1..62c5d91d5f1 100644 >--- a/C4/Acquisition.pm >+++ b/C4/Acquisition.pm >@@ -95,6 +95,12 @@ BEGIN { > ); > } > >+=head2 GetOrderFromItemnumber >+ >+Missing POD for GetOrderFromItemnumber. >+ >+=cut >+ > sub GetOrderFromItemnumber { > my ($itemnumber) = @_; > my $dbh = C4::Context->dbh; >@@ -491,6 +497,12 @@ reopen a basketgroup > > =cut > >+=head2 ReOpenBasketgroup >+ >+Missing POD for ReOpenBasketgroup. >+ >+=cut >+ > sub ReOpenBasketgroup { > my ($basketgroupno) = @_; > my $dbh = C4::Context->dbh; >@@ -2904,6 +2916,12 @@ sub ModOrderUsers { > } > } > >+=head2 NotifyOrderUsers >+ >+Missing POD for NotifyOrderUsers. >+ >+=cut >+ > sub NotifyOrderUsers { > my ($ordernumber) = @_; > >diff --git a/C4/Auth.pm b/C4/Auth.pm >index 2443db5c625..ab7625cfa3d 100644 >--- a/C4/Auth.pm >+++ b/C4/Auth.pm >@@ -63,6 +63,13 @@ use vars qw($ldap $cas $caslogout); > our ( @ISA, @EXPORT_OK ); > > #NOTE: The utility of keeping the safe_exit function is that it can be easily re-defined in unit tests and plugins >+ >+=head2 safe_exit >+ >+Missing POD for safe_exit. >+ >+=cut >+ > sub safe_exit { > > # It's fine for us to "exit" because CGI::Compile (used in Plack::App::WrapCGI) redefines "exit" for us automatically. >@@ -2029,6 +2036,13 @@ sub create_basic_session { > # (or something similar) > # Currently it's only passed from C4::SIP::ILS::Patron::check_password, but > # not having a userenv defined could cause a crash. >+ >+=head2 checkpw >+ >+Missing POD for checkpw. >+ >+=cut >+ > sub checkpw { > my ( $userid, $password, $query, $type, $no_set_userenv ) = @_; > $type = 'opac' unless $type; >@@ -2138,6 +2152,12 @@ sub checkpw { > return @return; > } > >+=head2 checkpw_internal >+ >+Missing POD for checkpw_internal. >+ >+=cut >+ > sub checkpw_internal { > my ( $userid, $password, $no_set_userenv ) = @_; > >@@ -2169,6 +2189,12 @@ sub checkpw_internal { > return 0; > } > >+=head2 checkpw_hash >+ >+Missing POD for checkpw_hash. >+ >+=cut >+ > sub checkpw_hash { > my ( $password, $stored_hash ) = @_; > >@@ -2434,6 +2460,12 @@ sub in_iprange { > return $result ? 1 : 0; > } > >+=head2 getborrowernumber >+ >+Missing POD for getborrowernumber. >+ >+=cut >+ > sub getborrowernumber { > my ($userid) = @_; > my $userenv = C4::Context->userenv; >diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm >index b107ca7e3a7..7a564fed8a2 100644 >--- a/C4/Auth_with_cas.pm >+++ b/C4/Auth_with_cas.pm >@@ -57,16 +57,37 @@ if ( multipleAuth() ) { > =cut > > # Is there a configuration file for multiple cas servers? >+ >+=head2 multipleAuth >+ >+Missing POD for multipleAuth. >+ >+=cut >+ > sub multipleAuth { > return ( -e qq($yamlauthfile) ); > } > > # Returns configured CAS servers' list if multiple authentication is enabled >+ >+=head2 getMultipleAuth >+ >+Missing POD for getMultipleAuth. >+ >+=cut >+ > sub getMultipleAuth { > return $casservers; > } > > # Logout from CAS >+ >+=head2 logout_cas >+ >+Missing POD for logout_cas. >+ >+=cut >+ > sub logout_cas { > my ( $query, $type ) = @_; > my ( $cas, $uri ) = _get_cas_and_service( $query, undef, $type ); >@@ -83,6 +104,13 @@ sub logout_cas { > } > > # Login to CAS >+ >+=head2 login_cas >+ >+Missing POD for login_cas. >+ >+=cut >+ > sub login_cas { > my ( $query, $type ) = @_; > my ( $cas, $uri ) = _get_cas_and_service( $query, undef, $type ); >@@ -90,6 +118,13 @@ sub login_cas { > } > > # Returns CAS login URL with callback to the requesting URL >+ >+=head2 login_cas_url >+ >+Missing POD for login_cas_url. >+ >+=cut >+ > sub login_cas_url { > my ( $query, $key, $type ) = @_; > my ( $cas, $uri ) = _get_cas_and_service( $query, $key, $type ); >@@ -98,6 +133,13 @@ sub login_cas_url { > > # Checks for password correctness > # In our case : is there a ticket, is it valid and does it match one of our users ? >+ >+=head2 checkpw_cas >+ >+Missing POD for checkpw_cas. >+ >+=cut >+ > sub checkpw_cas { > my ( $ticket, $query, $type ) = @_; > my $retnumber; >@@ -143,6 +185,13 @@ sub checkpw_cas { > } > > # Proxy CAS auth >+ >+=head2 check_api_auth_cas >+ >+Missing POD for check_api_auth_cas. >+ >+=cut >+ > sub check_api_auth_cas { > my ( $PT, $query, $type ) = @_; > my $retnumber; >@@ -263,6 +312,12 @@ sub logout_if_required { > exit; > } > >+=head2 delete_cas_session >+ >+Missing POD for delete_cas_session. >+ >+=cut >+ > sub delete_cas_session { > my $session = shift; > my $ticket = shift; >diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm >index decf28f6a36..3bd2d1f96fd 100644 >--- a/C4/Auth_with_shibboleth.pm >+++ b/C4/Auth_with_shibboleth.pm >@@ -39,6 +39,13 @@ BEGIN { > } > > # Check that shib config is not malformed >+ >+=head2 shib_ok >+ >+Missing POD for shib_ok. >+ >+=cut >+ > sub shib_ok { > my $config = _get_shib_config(); > >diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm >index 8d0c994ad61..40fe83c96a7 100644 >--- a/C4/AuthoritiesMarc.pm >+++ b/C4/AuthoritiesMarc.pm >@@ -1775,6 +1775,12 @@ sub _merge_newtag { > return @same_block ? $same_block[0] : $new_tags->[0]; > } > >+=head2 append_fields_ordered >+ >+Missing POD for append_fields_ordered. >+ >+=cut >+ > sub append_fields_ordered { > > # while we lack this function in MARC::Record >diff --git a/C4/Barcodes.pm b/C4/Barcodes.pm >index 9a04cc1ce52..c32f0355f9c 100644 >--- a/C4/Barcodes.pm >+++ b/C4/Barcodes.pm >@@ -40,24 +40,54 @@ sub _prefformat { > return $prefformat; > } > >+=head2 initial >+ >+Missing POD for initial. >+ >+=cut >+ > sub initial { > return '0000001'; > } > >+=head2 width >+ >+Missing POD for width. >+ >+=cut >+ > sub width { > return; > } > >+=head2 process_head >+ >+Missing POD for process_head. >+ >+=cut >+ > sub process_head { # (self,head,whole,specific) > my $self = shift; > return shift; # Default: just return the head unchanged. > } > >+=head2 process_tail >+ >+Missing POD for process_tail. >+ >+=cut >+ > sub process_tail { # (self,tail,whole,specific) > my $self = shift; > return shift; # Default: just return the tail unchanged. > } > >+=head2 is_max >+ >+Missing POD for is_max. >+ >+=cut >+ > sub is_max { > my $self = shift; > ref($self) or carp "Called is_max on a non-object: '$self'"; >@@ -65,6 +95,12 @@ sub is_max { > return $self->{is_max} || 0; > } > >+=head2 value >+ >+Missing POD for value. >+ >+=cut >+ > sub value { > my $self = shift; > if (@_) { >@@ -76,6 +112,12 @@ sub value { > return $self->{value}; > } > >+=head2 autoBarcode >+ >+Missing POD for autoBarcode. >+ >+=cut >+ > sub autoBarcode { > (@_) or return _prefformat; > my $self = shift; >@@ -84,6 +126,12 @@ sub autoBarcode { > return $value; > } > >+=head2 parse >+ >+Missing POD for parse. >+ >+=cut >+ > sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing > my $self = shift; > my $barcode = (@_) ? shift : $self->value; >@@ -94,6 +142,12 @@ sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non- > return ( $1, $2, '' ); # the third part is in anticipation of barcodes that include checkdigits > } > >+=head2 max >+ >+Missing POD for max. >+ >+=cut >+ > sub max { > my $self = shift; > if ( $self->{is_max} ) { >@@ -102,6 +156,12 @@ sub max { > return $self->db_max; > } > >+=head2 db_max >+ >+Missing POD for db_max. >+ >+=cut >+ > sub db_max { > my $self = shift; > my $query = "SELECT max(abs(CAST(barcode AS UNSIGNED))) FROM items LIMIT 1" >@@ -111,6 +171,12 @@ sub db_max { > return $sth->fetchrow_array || $self->initial; > } > >+=head2 next_value >+ >+Missing POD for next_value. >+ >+=cut >+ > sub next_value { > my $self = shift; > my $specific = ( scalar @_ ) ? 1 : 0; >@@ -136,24 +202,48 @@ sub next_value { > return $next_value; > } > >+=head2 next >+ >+Missing POD for next. >+ >+=cut >+ > sub next { > my $self = shift or return; > (@_) and $self->{next} = shift; > return $self->{next}; > } > >+=head2 previous >+ >+Missing POD for previous. >+ >+=cut >+ > sub previous { > my $self = shift or return; > (@_) and $self->{previous} = shift; > return $self->{previous}; > } > >+=head2 serial >+ >+Missing POD for serial. >+ >+=cut >+ > sub serial { > my $self = shift or return; > (@_) and $self->{serial} = shift; > return $self->{serial}; > } > >+=head2 default_self >+ >+Missing POD for default_self. >+ >+=cut >+ > sub default_self { > (@_) or carp "default_self called with no argument. Reverting to _prefformat."; > my $autoBarcode = (@_) ? shift : _prefformat; >@@ -221,6 +311,12 @@ sub new { > return; > } > >+=head2 new_object >+ >+Missing POD for new_object. >+ >+=cut >+ > sub new_object { > my $class_or_object = shift; > my $type = ref($class_or_object) || $class_or_object; >diff --git a/C4/Barcodes/hbyymmincr.pm b/C4/Barcodes/hbyymmincr.pm >index 72d648166da..d3f1704a081 100644 >--- a/C4/Barcodes/hbyymmincr.pm >+++ b/C4/Barcodes/hbyymmincr.pm >@@ -37,6 +37,12 @@ BEGIN { > # Generates barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number, > # increment resets yearly -fbcit > >+=head2 db_max >+ >+Missing POD for db_max. >+ >+=cut >+ > sub db_max { > my $self = shift; > my $width = WIDTH; >@@ -68,6 +74,12 @@ sub db_max { > return ( $max || 0 ); > } > >+=head2 initial >+ >+Missing POD for initial. >+ >+=cut >+ > sub initial { > my $self = shift; > >@@ -78,6 +90,12 @@ sub initial { > return $self->branch . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 ) . sprintf( '%' . "$width.$width" . 'd', 1 ); > } > >+=head2 parse >+ >+Missing POD for parse. >+ >+=cut >+ > sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non-incrementing > my $self = shift; > my $barcode = (@_) ? shift : $self->value; >@@ -89,6 +107,12 @@ sub parse { # return 3 parts of barcode: non-incrementing, incrementing, non- > return ( $1, $2, '' ); # the third part is in anticipation of barcodes that include checkdigits > } > >+=head2 branch >+ >+Missing POD for branch. >+ >+=cut >+ > sub branch { > my $self = shift; > (@_) and $self->{branch} = shift; >@@ -102,6 +126,12 @@ sub branch { > # return $width; > #} > >+=head2 process_head >+ >+Missing POD for process_head. >+ >+=cut >+ > sub process_head { # (self,head,whole,specific) > my ( $self, $head, $whole, $specific ) = @_; > $specific and return $head; # if this is built off an existing barcode, just return the head unchanged. >@@ -110,6 +140,12 @@ sub process_head { # (self,head,whole,specific) > return $head . substr( $iso, 2, 2 ) . substr( $iso, 5, 2 ); > } > >+=head2 new_object >+ >+Missing POD for new_object. >+ >+=cut >+ > sub new_object { > my $class_or_object = shift; > >diff --git a/C4/Budgets.pm b/C4/Budgets.pm >index c40b25519db..c34ea421db2 100644 >--- a/C4/Budgets.pm >+++ b/C4/Budgets.pm >@@ -90,6 +90,12 @@ BEGIN { > > =cut > >+=head2 HideCols >+ >+Missing POD for HideCols. >+ >+=cut >+ > sub HideCols { > my ( $authcat, @hide_cols ) = @_; > my $dbh = C4::Context->dbh; >@@ -107,6 +113,12 @@ sub HideCols { > } > } > >+=head2 GetCols >+ >+Missing POD for GetCols. >+ >+=cut >+ > sub GetCols { > my ( $authcat, $authvalue ) = @_; > >@@ -126,6 +138,12 @@ sub GetCols { > > } > >+=head2 CheckBudgetParentPerm >+ >+Missing POD for CheckBudgetParentPerm. >+ >+=cut >+ > sub CheckBudgetParentPerm { > my ( $budget, $borrower_id ) = @_; > my $depth = $budget->{depth}; >@@ -141,6 +159,12 @@ sub CheckBudgetParentPerm { > return 0; > } > >+=head2 AddBudgetPeriod >+ >+Missing POD for AddBudgetPeriod. >+ >+=cut >+ > sub AddBudgetPeriod { > my ($budgetperiod) = @_; > return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} ); >@@ -151,6 +175,13 @@ sub AddBudgetPeriod { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetPeriodsCount >+ >+Missing POD for GetPeriodsCount. >+ >+=cut >+ > sub GetPeriodsCount { > my $dbh = C4::Context->dbh; > my $sth = $dbh->prepare( " >@@ -161,6 +192,13 @@ sub GetPeriodsCount { > } > > # ------------------------------------------------------------------- >+ >+=head2 CheckBudgetParent >+ >+Missing POD for CheckBudgetParent. >+ >+=cut >+ > sub CheckBudgetParent { > my ( $new_parent, $budget ) = @_; > my $new_parent_id = $new_parent->{'budget_id'}; >@@ -188,6 +226,13 @@ sub CheckBudgetParent { > } > > # ------------------------------------------------------------------- >+ >+=head2 BudgetHasChildren >+ >+Missing POD for BudgetHasChildren. >+ >+=cut >+ > sub BudgetHasChildren { > my ($budget_id) = @_; > my $dbh = C4::Context->dbh; >@@ -201,6 +246,12 @@ sub BudgetHasChildren { > return $sum->{'sum'}; > } > >+=head2 GetBudgetChildren >+ >+Missing POD for GetBudgetChildren. >+ >+=cut >+ > sub GetBudgetChildren { > my ($budget_id) = @_; > my $dbh = C4::Context->dbh; >@@ -212,6 +263,12 @@ sub GetBudgetChildren { > ); > } > >+=head2 SetOwnerToFundHierarchy >+ >+Missing POD for SetOwnerToFundHierarchy. >+ >+=cut >+ > sub SetOwnerToFundHierarchy { > my ( $budget_id, $borrowernumber ) = @_; > >@@ -225,6 +282,13 @@ sub SetOwnerToFundHierarchy { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetsPlanCell >+ >+Missing POD for GetBudgetsPlanCell. >+ >+=cut >+ > sub GetBudgetsPlanCell { > my ( $cell, $period, $budget ) = @_; #FIXME we don't use $period > my ( $actual, $sth ); >@@ -324,6 +388,13 @@ sub GetBudgetsPlanCell { > } > > # ------------------------------------------------------------------- >+ >+=head2 ModBudgetPlan >+ >+Missing POD for ModBudgetPlan. >+ >+=cut >+ > sub ModBudgetPlan { > my ( $budget_plan, $budget_period_id, $authcat ) = @_; > my $dbh = C4::Context->dbh; >@@ -364,6 +435,13 @@ sub ModBudgetPlan { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetSpent >+ >+Missing POD for GetBudgetSpent. >+ >+=cut >+ > sub GetBudgetSpent { > my ($budget_id) = @_; > my $dbh = C4::Context->dbh; >@@ -408,6 +486,13 @@ sub GetBudgetSpent { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetOrdered >+ >+Missing POD for GetBudgetOrdered. >+ >+=cut >+ > sub GetBudgetOrdered { > my ($budget_id) = @_; > my $dbh = C4::Context->dbh; >@@ -483,6 +568,13 @@ sub GetBudgetAuthCats { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetPeriods >+ >+Missing POD for GetBudgetPeriods. >+ >+=cut >+ > sub GetBudgetPeriods { > my ( $filters, $orderby ) = @_; > >@@ -493,6 +585,13 @@ sub GetBudgetPeriods { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetPeriod >+ >+Missing POD for GetBudgetPeriod. >+ >+=cut >+ > sub GetBudgetPeriod { > my ($budget_period_id) = @_; > my $dbh = C4::Context->dbh; >@@ -506,6 +605,12 @@ sub GetBudgetPeriod { > return $sth->fetchrow_hashref; > } > >+=head2 DelBudgetPeriod >+ >+Missing POD for DelBudgetPeriod. >+ >+=cut >+ > sub DelBudgetPeriod { > my ($budget_period_id) = @_; > my $dbh = C4::Context->dbh; >@@ -523,6 +628,13 @@ sub DelBudgetPeriod { > } > > # ------------------------------------------------------------------- >+ >+=head2 ModBudgetPeriod >+ >+Missing POD for ModBudgetPeriod. >+ >+=cut >+ > sub ModBudgetPeriod { > my ($budget_period) = @_; > my $result = Koha::Database->new()->schema->resultset('Aqbudgetperiod')->find($budget_period); >@@ -533,6 +645,13 @@ sub ModBudgetPeriod { > } > > # ------------------------------------------------------------------- >+ >+=head2 GetBudgetHierarchy >+ >+Missing POD for GetBudgetHierarchy. >+ >+=cut >+ > sub GetBudgetHierarchy { > my ( $budget_period_id, $branchcode, $owner, $skiptotals ) = @_; > my @bind_params; >@@ -715,6 +834,13 @@ sub _add_budget_children { > > # ------------------------------------------------------------------- > # FIXME Must be replaced by Koha::Acquisition::Fund->store >+ >+=head2 AddBudget >+ >+Missing POD for AddBudget. >+ >+=cut >+ > sub AddBudget { > my ($budget) = @_; > return unless ($budget); >@@ -743,6 +869,13 @@ sub AddBudget { > > # ------------------------------------------------------------------- > # FIXME Must be replaced by Koha::Acquisition::Fund->store >+ >+=head2 ModBudget >+ >+Missing POD for ModBudget. >+ >+=cut >+ > sub ModBudget { > my ($budget) = @_; > my $result = Koha::Database->new()->schema->resultset('Aqbudget')->find($budget); >@@ -775,6 +908,13 @@ sub ModBudget { > > # ------------------------------------------------------------------- > # FIXME Must be replaced by Koha::Acquisition::Fund->delete >+ >+=head2 DelBudget >+ >+Missing POD for DelBudget. >+ >+=cut >+ > sub DelBudget { > my ($budget_id) = @_; > my $dbh = C4::Context->dbh; >@@ -1106,6 +1246,12 @@ sub ModBudgetUsers { > } > } > >+=head2 CanUserUseBudget >+ >+Missing POD for CanUserUseBudget. >+ >+=cut >+ > sub CanUserUseBudget { > my ( $borrower, $budget, $userflags ) = @_; > >@@ -1188,6 +1334,12 @@ sub CanUserUseBudget { > return 1; > } > >+=head2 CanUserModifyBudget >+ >+Missing POD for CanUserModifyBudget. >+ >+=cut >+ > sub CanUserModifyBudget { > my ( $borrower, $budget, $userflags ) = @_; > >diff --git a/C4/Circulation.pm b/C4/Circulation.pm >index 31794b7c02f..60dc4dc765e 100644 >--- a/C4/Circulation.pm >+++ b/C4/Circulation.pm >@@ -417,6 +417,12 @@ sub transferbook { > return ( $dotransfer, $messages ); > } > >+=head2 TooMany >+ >+Missing POD for TooMany. >+ >+=cut >+ > sub TooMany { > my ( $patron, $item, $params ) = @_; > my $onsite_checkout = $params->{onsite_checkout} || 0; >@@ -1416,6 +1422,12 @@ sub CanBookBeReturned { > > =cut > >+=head2 checkHighHolds >+ >+Missing POD for checkHighHolds. >+ >+=cut >+ > sub checkHighHolds { > my ( $item, $patron ) = @_; > my $branchcode = _GetCircControlBranch( $item, $patron ); >@@ -3533,6 +3545,12 @@ sub AddRenewal { > return $datedue; > } > >+=head2 GetRenewCount >+ >+Missing POD for GetRenewCount. >+ >+=cut >+ > sub GetRenewCount { > > # check renewal status >@@ -4154,6 +4172,12 @@ sub CalcDateDue { > return $datedue; > } > >+=head2 CheckValidBarcode >+ >+Missing POD for CheckValidBarcode. >+ >+=cut >+ > sub CheckValidBarcode { > my ($barcode) = @_; > my $dbh = C4::Context->dbh; >@@ -4243,6 +4267,12 @@ sub DeleteBranchTransferLimits { > return $sth->execute($branch); > } > >+=head2 ReturnLostItem >+ >+Missing POD for ReturnLostItem. >+ >+=cut >+ > sub ReturnLostItem { > my ( $borrowernumber, $itemnum ) = @_; > MarkIssueReturned( $borrowernumber, $itemnum ); >@@ -4330,6 +4360,12 @@ sub LostItem { > } > } > >+=head2 GetOfflineOperations >+ >+Missing POD for GetOfflineOperations. >+ >+=cut >+ > sub GetOfflineOperations { > my $dbh = C4::Context->dbh; > my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp"); >@@ -4338,6 +4374,12 @@ sub GetOfflineOperations { > return $results; > } > >+=head2 GetOfflineOperation >+ >+Missing POD for GetOfflineOperation. >+ >+=cut >+ > sub GetOfflineOperation { > my $operationid = shift; > return unless $operationid; >@@ -4347,6 +4389,12 @@ sub GetOfflineOperation { > return $sth->fetchrow_hashref; > } > >+=head2 AddOfflineOperation >+ >+Missing POD for AddOfflineOperation. >+ >+=cut >+ > sub AddOfflineOperation { > my ( $userid, $branchcode, $timestamp, $action, $barcode, $cardnumber, $amount ) = @_; > my $dbh = C4::Context->dbh; >@@ -4357,6 +4405,12 @@ sub AddOfflineOperation { > return "Added."; > } > >+=head2 DeleteOfflineOperation >+ >+Missing POD for DeleteOfflineOperation. >+ >+=cut >+ > sub DeleteOfflineOperation { > my $dbh = C4::Context->dbh; > my $sth = $dbh->prepare("DELETE FROM pending_offline_operations WHERE operationid=?"); >@@ -4364,6 +4418,12 @@ sub DeleteOfflineOperation { > return "Deleted."; > } > >+=head2 ProcessOfflineOperation >+ >+Missing POD for ProcessOfflineOperation. >+ >+=cut >+ > sub ProcessOfflineOperation { > my $operation = shift; > >@@ -4381,6 +4441,12 @@ sub ProcessOfflineOperation { > return $report; > } > >+=head2 ProcessOfflineReturn >+ >+Missing POD for ProcessOfflineReturn. >+ >+=cut >+ > sub ProcessOfflineReturn { > my $operation = shift; > >@@ -4408,6 +4474,12 @@ sub ProcessOfflineReturn { > } > } > >+=head2 ProcessOfflineIssue >+ >+Missing POD for ProcessOfflineIssue. >+ >+=cut >+ > sub ProcessOfflineIssue { > my $operation = shift; > >@@ -4444,6 +4516,12 @@ sub ProcessOfflineIssue { > } > } > >+=head2 ProcessOfflinePayment >+ >+Missing POD for ProcessOfflinePayment. >+ >+=cut >+ > sub ProcessOfflinePayment { > my $operation = shift; > >@@ -4617,6 +4695,12 @@ sub GetPendingOnSiteCheckouts { > ); > } > >+=head2 GetTopIssues >+ >+Missing POD for GetTopIssues. >+ >+=cut >+ > sub GetTopIssues { > my ($params) = @_; > >diff --git a/C4/Context.pm b/C4/Context.pm >index 4968a001bbe..647019be9fe 100644 >--- a/C4/Context.pm >+++ b/C4/Context.pm >@@ -234,6 +234,12 @@ sub config { > return _common_config( $_[1], 'config' ); > } > >+=head2 zebraconfig >+ >+Missing POD for zebraconfig. >+ >+=cut >+ > sub zebraconfig { > return _common_config( $_[1], 'server' ); > } >@@ -823,6 +829,13 @@ sub interface { > } > > # always returns a string for OK comparison via "eq" or "ne" >+ >+=head2 mybranch >+ >+Missing POD for mybranch. >+ >+=cut >+ > sub mybranch { > C4::Context->userenv or return ''; > return C4::Context->userenv->{branch} || ''; >diff --git a/C4/Contract.pm b/C4/Contract.pm >index d18fd295ca5..4be5687a3b8 100644 >--- a/C4/Contract.pm >+++ b/C4/Contract.pm >@@ -109,6 +109,12 @@ sub GetContract { > return $contracts->[0]; > } > >+=head2 AddContract >+ >+Missing POD for AddContract. >+ >+=cut >+ > sub AddContract { > my ($contract) = @_; > return unless ( $contract->{booksellerid} ); >@@ -117,6 +123,12 @@ sub AddContract { > return $rs->create($contract)->id; > } > >+=head2 ModContract >+ >+Missing POD for ModContract. >+ >+=cut >+ > sub ModContract { > my ($contract) = @_; > my $result = Koha::Database->new()->schema->resultset('Aqcontract')->find($contract); >@@ -126,6 +138,12 @@ sub ModContract { > return $result->in_storage; > } > >+=head2 DelContract >+ >+Missing POD for DelContract. >+ >+=cut >+ > sub DelContract { > my ($contract) = @_; > return unless ( $contract->{contractnumber} ); >diff --git a/C4/CourseReserves.pm b/C4/CourseReserves.pm >index 994aadb2dcd..794c49b3270 100644 >--- a/C4/CourseReserves.pm >+++ b/C4/CourseReserves.pm >@@ -1081,9 +1081,28 @@ sub SearchCourses { > return $courses; > } > >-sub whoami { ( caller(1) )[3] } >+=head2 whoami >+ >+Missing POD for whoami. >+ >+=cut >+ >+sub whoami { ( caller(1) )[3] } >+ >+=head2 whowasi >+ >+Missing POD for whowasi. >+ >+=cut >+ > sub whowasi { ( caller(2) )[3] } > >+=head2 stringify_params >+ >+Missing POD for stringify_params. >+ >+=cut >+ > sub stringify_params { > my (%params) = @_; > >diff --git a/C4/Creators/PDF.pm b/C4/Creators/PDF.pm >index 8dbbf017955..d067cd6f7a6 100644 >--- a/C4/Creators/PDF.pm >+++ b/C4/Creators/PDF.pm >@@ -61,6 +61,12 @@ sub _InitVars { > prInitVars($param); > } > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $invocant = shift; > my $type = ref($invocant) || $invocant; >@@ -81,6 +87,12 @@ sub new { > return $self; > } > >+=head2 End >+ >+Missing POD for End. >+ >+=cut >+ > sub End { > my $self = shift; > >@@ -94,48 +106,96 @@ sub End { > unlink $self->{filename}; > } > >+=head2 Add >+ >+Missing POD for Add. >+ >+=cut >+ > sub Add { > my $self = shift; > my $string = shift; > prAdd($string); > } > >+=head2 Bookmark >+ >+Missing POD for Bookmark. >+ >+=cut >+ > sub Bookmark { > my $self = shift; > my $reference = shift; > prBookmark($reference); > } > >+=head2 Compress >+ >+Missing POD for Compress. >+ >+=cut >+ > sub Compress { > my $self = shift; > my $directive = shift; > prCompress($directive); > } > >+=head2 Doc >+ >+Missing POD for Doc. >+ >+=cut >+ > sub Doc { > my $self = shift; > my %params = @_; > prDoc(%params); > } > >+=head2 DocForm >+ >+Missing POD for DocForm. >+ >+=cut >+ > sub DocForm { > my $self = shift; > my %params = @_; > return prDocForm(%params); > } > >+=head2 Extract >+ >+Missing POD for Extract. >+ >+=cut >+ > sub Extract { > my $self = shift; > my ( $pdfFile, $pageNo, $oldInternalName ) = @_; > return prExtract( $pdfFile, $pageNo, $oldInternalName ); > } > >+=head2 Field >+ >+Missing POD for Field. >+ >+=cut >+ > sub Field { > my $self = shift; > my ( $fieldName, $value ) = @_; > prField( $fieldName, $value ); > } > >+=head2 Font >+ >+Missing POD for Font. >+ >+=cut >+ > sub Font { > my $self = shift; > my $fontName = shift; >@@ -153,41 +213,83 @@ sub Font { > return prFont($fontName); > } > >+=head2 FontSize >+ >+Missing POD for FontSize. >+ >+=cut >+ > sub FontSize { > my $self = shift; > my $size = shift; > return prFontSize($size); > } > >+=head2 Form >+ >+Missing POD for Form. >+ >+=cut >+ > sub Form { > my $self = shift; > my %params = @_; > return prForm(%params); > } > >+=head2 GetLogBuffer >+ >+Missing POD for GetLogBuffer. >+ >+=cut >+ > sub GetLogBuffer { > my $self = shift; > return prGetLogBuffer(); > } > >+=head2 GraphState >+ >+Missing POD for GraphState. >+ >+=cut >+ > sub GraphState { > my $self = shift; > my $string = shift; > prGraphState($string); > } > >+=head2 Image >+ >+Missing POD for Image. >+ >+=cut >+ > sub Image { > my $self = shift; > my %params = @_; > return prImage(%params); > } > >+=head2 Init >+ >+Missing POD for Init. >+ >+=cut >+ > sub Init { > my $self = shift; > my ( $string, $duplicateCode ) = @_; > prInit( $string, $duplicateCode ); > } > >+=head2 AltJpeg >+ >+Missing POD for AltJpeg. >+ >+=cut >+ > sub AltJpeg { > my $self = shift; > my ( $imageData, $width, $height, $imageFormat, $altImageData, $altImageWidth, $altImageHeight, $altImageFormat ) = >@@ -198,54 +300,108 @@ sub AltJpeg { > ); > } > >+=head2 Jpeg >+ >+Missing POD for Jpeg. >+ >+=cut >+ > sub Jpeg { > my $self = shift; > my ( $imageData, $width, $height, $imageFormat ) = @_; > return prJpeg( $imageData, $width, $height, $imageFormat ); > } > >+=head2 Js >+ >+Missing POD for Js. >+ >+=cut >+ > sub Js { > my $self = shift; > my $string_or_fileName = shift; > prJs($string_or_fileName); > } > >+=head2 Link >+ >+Missing POD for Link. >+ >+=cut >+ > sub Link { > my $self = shift; > my %params = @_; > prLink(%params); > } > >+=head2 Log >+ >+Missing POD for Log. >+ >+=cut >+ > sub Log { > my $self = shift; > my $string = shift; > prLog($string); > } > >+=head2 LogDir >+ >+Missing POD for LogDir. >+ >+=cut >+ > sub LogDir { > my $self = shift; > my $directory = shift; > prLogDir($directory); > } > >+=head2 Mbox >+ >+Missing POD for Mbox. >+ >+=cut >+ > sub Mbox { > my $self = shift; > my ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ) = @_; > prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ); > } > >+=head2 Page >+ >+Missing POD for Page. >+ >+=cut >+ > sub Page { > my $self = shift; > my $noLog = shift; > prPage($noLog); > } > >+=head2 SinglePage >+ >+Missing POD for SinglePage. >+ >+=cut >+ > sub SinglePage { > my $self = shift; > my ( $file, $pageNumber ) = @_; > return prSinglePage( $file, $pageNumber ); > } > >+=head2 StrWidth >+ >+Missing POD for StrWidth. >+ >+=cut >+ > sub StrWidth { > my $self = shift; > my ( $string, $font, $fontSize ) = @_; >@@ -256,84 +412,168 @@ sub StrWidth { > return prStrWidth( $string, $font, $fontSize ); > } > >+=head2 Text >+ >+Missing POD for Text. >+ >+=cut >+ > sub Text { > my $self = shift; > my ( $x, $y, $string, $align, $rotation ) = @_; > return prText( $x, $y, $string, $align, $rotation ); > } > >+=head2 TTFont >+ >+Missing POD for TTFont. >+ >+=cut >+ > sub TTFont { > my $self = shift; > my $path = shift; > return prTTFont($path); > } > >+=head2 Code128 >+ >+Missing POD for Code128. >+ >+=cut >+ > sub Code128 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::Code128(%opts); > } > >+=head2 Code39 >+ >+Missing POD for Code39. >+ >+=cut >+ > sub Code39 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::Code39(%opts); > } > >+=head2 COOP2of5 >+ >+Missing POD for COOP2of5. >+ >+=cut >+ > sub COOP2of5 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::COOP2of5(%opts); > } > >+=head2 EAN13 >+ >+Missing POD for EAN13. >+ >+=cut >+ > sub EAN13 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::EAN13(%opts); > } > >+=head2 EAN8 >+ >+Missing POD for EAN8. >+ >+=cut >+ > sub EAN8 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::EAN8(%opts); > } > >+=head2 IATA2of5 >+ >+Missing POD for IATA2of5. >+ >+=cut >+ > sub IATA2of5 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::IATA2of5(%opts); > } > >+=head2 Industrial2of5 >+ >+Missing POD for Industrial2of5. >+ >+=cut >+ > sub Industrial2of5 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::Industrial2of5(%opts); > } > >+=head2 ITF >+ >+Missing POD for ITF. >+ >+=cut >+ > sub ITF { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::ITF(%opts); > } > >+=head2 Matrix2of5 >+ >+Missing POD for Matrix2of5. >+ >+=cut >+ > sub Matrix2of5 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::Matrix2of5(%opts); > } > >+=head2 NW7 >+ >+Missing POD for NW7. >+ >+=cut >+ > sub NW7 { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::NW7(%opts); > } > >+=head2 UPCA >+ >+Missing POD for UPCA. >+ >+=cut >+ > sub UPCA { > my $self = shift; > my %opts = @_; > PDF::Reuse::Barcode::UPCA(%opts); > } > >+=head2 UPCE >+ >+Missing POD for UPCE. >+ >+=cut >+ > sub UPCE { > my $self = shift; > my %opts = @_; >diff --git a/C4/Creators/Template.pm b/C4/Creators/Template.pm >index 412efbcfc3e..d75e9adc8b4 100644 >--- a/C4/Creators/Template.pm >+++ b/C4/Creators/Template.pm >@@ -266,6 +266,12 @@ sub get_label_position { > } > } > >+=head2 get_next_label_pos >+ >+Missing POD for get_next_label_pos. >+ >+=cut >+ > sub get_next_label_pos { > my $self = shift; > my $current_label = $self->{'current_label'}; >diff --git a/C4/External/BakerTaylor.pm b/C4/External/BakerTaylor.pm >index d3db6145af0..b37e71d0643 100644 >--- a/C4/External/BakerTaylor.pm >+++ b/C4/External/BakerTaylor.pm >@@ -49,6 +49,12 @@ sub _initialize { > #"Mozilla/4.76 [en] (Win98; U)", # if for some reason you want to go stealth, you might prefer this > } > >+=head2 image_url >+ >+Missing POD for image_url. >+ >+=cut >+ > sub image_url { > _initialize(); > ( $user and $pass ) or return; >@@ -57,6 +63,12 @@ sub image_url { > return $image_url . $isbn; > } > >+=head2 link_url >+ >+Missing POD for link_url. >+ >+=cut >+ > sub link_url { > _initialize(); > my $isbn = ( @_ ? shift : '' ); >@@ -65,6 +77,12 @@ sub link_url { > return $link_url . $isbn; > } > >+=head2 content_cafe_url >+ >+Missing POD for content_cafe_url. >+ >+=cut >+ > sub content_cafe_url { > _initialize(); > ( $user and $pass ) or return; >@@ -74,6 +92,12 @@ sub content_cafe_url { > "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn"; > } > >+=head2 http_jacket_link >+ >+Missing POD for http_jacket_link. >+ >+=cut >+ > sub http_jacket_link { > _initialize(); > my $isbn = shift or return; >diff --git a/C4/External/Syndetics.pm b/C4/External/Syndetics.pm >index 6f9d5517bcd..bdc7508aeff 100644 >--- a/C4/External/Syndetics.pm >+++ b/C4/External/Syndetics.pm >@@ -61,6 +61,12 @@ Get Summary data from Syndetics > > =cut > >+=head2 get_syndetics_index >+ >+Missing POD for get_syndetics_index. >+ >+=cut >+ > sub get_syndetics_index { > my ( $isbn, $upc, $oclc ) = @_; > >@@ -114,6 +120,12 @@ sub get_syndetics_summary { > return $summary if $summary; > } > >+=head2 get_syndetics_toc >+ >+Missing POD for get_syndetics_toc. >+ >+=cut >+ > sub get_syndetics_toc { > my ( $isbn, $upc, $oclc ) = @_; > >@@ -135,6 +147,12 @@ sub get_syndetics_toc { > return $toc if $toc; > } > >+=head2 get_syndetics_excerpt >+ >+Missing POD for get_syndetics_excerpt. >+ >+=cut >+ > sub get_syndetics_excerpt { > my ( $isbn, $upc, $oclc ) = @_; > >@@ -156,6 +174,12 @@ sub get_syndetics_excerpt { > return XMLout( $excerpt, NoEscape => 1 ) if $excerpt; > } > >+=head2 get_syndetics_reviews >+ >+Missing POD for get_syndetics_reviews. >+ >+=cut >+ > sub get_syndetics_reviews { > my ( $isbn, $upc, $oclc, $syndetics_elements ) = @_; > >@@ -208,6 +232,12 @@ sub get_syndetics_reviews { > return \@reviews; > } > >+=head2 get_syndetics_editions >+ >+Missing POD for get_syndetics_editions. >+ >+=cut >+ > sub get_syndetics_editions { > my ( $isbn, $upc, $oclc ) = @_; > >@@ -230,6 +260,12 @@ sub get_syndetics_editions { > return $similar_items if $similar_items; > } > >+=head2 get_syndetics_anotes >+ >+Missing POD for get_syndetics_anotes. >+ >+=cut >+ > sub get_syndetics_anotes { > my ( $isbn, $upc, $oclc ) = @_; > >diff --git a/C4/HoldsQueue.pm b/C4/HoldsQueue.pm >index 93cc6ce750d..1a4b2ae58a5 100644 >--- a/C4/HoldsQueue.pm >+++ b/C4/HoldsQueue.pm >@@ -992,6 +992,12 @@ sub _can_item_fill_request { > > =cut > >+=head2 CreatePicklistFromItemMap >+ >+Missing POD for CreatePicklistFromItemMap. >+ >+=cut >+ > sub CreatePicklistFromItemMap { > my $item_map = shift; > >@@ -1073,6 +1079,12 @@ sub _trim { > $_[0]; > } > >+=head2 load_branches_to_pull_from >+ >+Missing POD for load_branches_to_pull_from. >+ >+=cut >+ > sub load_branches_to_pull_from { > my $use_transport_cost_matrix = shift; > >@@ -1098,6 +1110,12 @@ sub load_branches_to_pull_from { > return \@branches_to_use; > } > >+=head2 least_cost_branch >+ >+Missing POD for least_cost_branch. >+ >+=cut >+ > sub least_cost_branch { > > #$from - arrayref >diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm >index b476da0e513..b7b9635af90 100644 >--- a/C4/ImportBatch.pm >+++ b/C4/ImportBatch.pm >@@ -1165,6 +1165,12 @@ WHERE import_batch_id = ?|; > > =cut > >+=head2 GetNumberOfNonZ3950ImportBatches >+ >+Missing POD for GetNumberOfNonZ3950ImportBatches. >+ >+=cut >+ > sub GetNumberOfNonZ3950ImportBatches { > my $dbh = C4::Context->dbh; > my $sth = $dbh->prepare("SELECT COUNT(*) FROM import_batches WHERE batch_type != 'z3950'"); >diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm >index 36261e1c617..8e968e28030 100644 >--- a/C4/InstallAuth.pm >+++ b/C4/InstallAuth.pm >@@ -413,6 +413,12 @@ sub checkauth { > exit; > } > >+=head2 checkpw >+ >+Missing POD for checkpw. >+ >+=cut >+ > sub checkpw { > > my ( $userid, $password ) = @_; >diff --git a/C4/Installer.pm b/C4/Installer.pm >index 1f9df85aa3b..68b40b0d0f8 100644 >--- a/C4/Installer.pm >+++ b/C4/Installer.pm >@@ -662,6 +662,12 @@ sub get_file_path_from_name { > > } > >+=head2 primary_key_exists >+ >+Missing POD for primary_key_exists. >+ >+=cut >+ > sub primary_key_exists { > my ( $table_name, $key_name ) = @_; > my $dbh = C4::Context->dbh; >@@ -677,6 +683,12 @@ sub primary_key_exists { > return $exists; > } > >+=head2 foreign_key_exists >+ >+Missing POD for foreign_key_exists. >+ >+=cut >+ > sub foreign_key_exists { > my ( $table_name, $constraint_name ) = @_; > my $dbh = C4::Context->dbh; >@@ -684,6 +696,12 @@ sub foreign_key_exists { > return $infos =~ m|CONSTRAINT `$constraint_name` FOREIGN KEY|; > } > >+=head2 unique_key_exists >+ >+Missing POD for unique_key_exists. >+ >+=cut >+ > sub unique_key_exists { > my ( $table_name, $constraint_name ) = @_; > my $dbh = C4::Context->dbh; >@@ -691,6 +709,12 @@ sub unique_key_exists { > return $infos =~ m|UNIQUE KEY `$constraint_name`|; > } > >+=head2 index_exists >+ >+Missing POD for index_exists. >+ >+=cut >+ > sub index_exists { > my ( $table_name, $key_name ) = @_; > my $dbh = C4::Context->dbh; >@@ -703,6 +727,12 @@ sub index_exists { > return $exists; > } > >+=head2 column_exists >+ >+Missing POD for column_exists. >+ >+=cut >+ > sub column_exists { > my ( $table_name, $column_name ) = @_; > return unless TableExists($table_name); >@@ -716,6 +746,12 @@ sub column_exists { > return $exists; > } > >+=head2 TableExists >+ >+Missing POD for TableExists. >+ >+=cut >+ > sub TableExists { # Could be renamed table_exists for consistency > my $table = shift; > eval { >@@ -728,12 +764,24 @@ sub TableExists { # Could be renamed table_exists for consistency > return 0; > } > >+=head2 version_from_file >+ >+Missing POD for version_from_file. >+ >+=cut >+ > sub version_from_file { > my $file = shift; > return unless $file =~ m|(^\|/)(\d{2})(\d{2})(\d{2})(\d{3}).pl$|; > return sprintf "%s.%s.%s.%s", $2, $3, $4, $5; > } > >+=head2 get_db_entries >+ >+Missing POD for get_db_entries. >+ >+=cut >+ > sub get_db_entries { > my $db_revs_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/db_revs'; > opendir my $dh, $db_revs_dir or die "Cannot open $db_revs_dir dir ($!)"; >@@ -754,6 +802,12 @@ sub get_db_entries { > return \@need_update; > } > >+=head2 run_db_rev >+ >+Missing POD for run_db_rev. >+ >+=cut >+ > sub run_db_rev { > my ($file) = @_; > >@@ -790,6 +844,12 @@ sub run_db_rev { > return $db_entry; > } > >+=head2 update >+ >+Missing POD for update. >+ >+=cut >+ > sub update { > my ( $files, $params ) = @_; > >@@ -813,6 +873,12 @@ sub update { > return { success => \@done, error => \@errors }; > } > >+=head2 generate_output_db_entry >+ >+Missing POD for generate_output_db_entry. >+ >+=cut >+ > sub generate_output_db_entry { > my ($db_entry) = @_; > >@@ -859,11 +925,23 @@ sub generate_output_db_entry { > return \@output; > } > >+=head2 get_atomic_updates >+ >+Missing POD for get_atomic_updates. >+ >+=cut >+ > sub get_atomic_updates { > my $atomic_updates = Koha::Installer::get_atomic_updates(); > return $atomic_updates; > } > >+=head2 run_atomic_updates >+ >+Missing POD for run_atomic_updates. >+ >+=cut >+ > sub run_atomic_updates { > my ($files) = @_; > >@@ -990,6 +1068,13 @@ sub SetVersion { > > # DEPRECATED Don't use it! > # Used for compatibility with older versions (from updatedatabase.pl) >+ >+=head2 NewVersion >+ >+Missing POD for NewVersion. >+ >+=cut >+ > sub NewVersion { > my ( $DBversion, $bug_number, $descriptions ) = @_; > >@@ -1044,6 +1129,12 @@ sub CheckVersion { > return 0; > } > >+=head2 sanitize_zero_date >+ >+Missing POD for sanitize_zero_date. >+ >+=cut >+ > sub sanitize_zero_date { > my ( $table_name, $column_name ) = @_; > >diff --git a/C4/Installer/PerlModules.pm b/C4/Installer/PerlModules.pm >index c1dea59f02b..2342b89bf69 100644 >--- a/C4/Installer/PerlModules.pm >+++ b/C4/Installer/PerlModules.pm >@@ -19,6 +19,12 @@ sub new { > return $self; > } > >+=head2 prereqs >+ >+Missing POD for prereqs. >+ >+=cut >+ > sub prereqs { > my $self = shift; > >diff --git a/C4/Installer/UpgradeBackup.pm b/C4/Installer/UpgradeBackup.pm >index 1c12e8f88d1..bab724ce525 100644 >--- a/C4/Installer/UpgradeBackup.pm >+++ b/C4/Installer/UpgradeBackup.pm >@@ -41,6 +41,12 @@ creates backups of files updated during an upgrade. > > =cut > >+=head2 backup_changed_files >+ >+Missing POD for backup_changed_files. >+ >+=cut >+ > sub backup_changed_files { > my $from_to = shift; > my $suffix = shift; >diff --git a/C4/ItemCirculationAlertPreference.pm b/C4/ItemCirculationAlertPreference.pm >index 7263575f4d8..f32d105e5a9 100644 >--- a/C4/ItemCirculationAlertPreference.pm >+++ b/C4/ItemCirculationAlertPreference.pm >@@ -223,6 +223,12 @@ B<Example>: > > =cut > >+=head2 is_disabled_for >+ >+Missing POD for is_disabled_for. >+ >+=cut >+ > sub is_disabled_for { > my ( $class, $opts ) = @_; > $valid->($opts); >diff --git a/C4/Items.pm b/C4/Items.pm >index 763ed4cd971..b131cc24827 100644 >--- a/C4/Items.pm >+++ b/C4/Items.pm >@@ -827,6 +827,12 @@ sub GetMarcItem { > > } > >+=head2 Item2Marc >+ >+Missing POD for Item2Marc. >+ >+=cut >+ > sub Item2Marc { > my ( $itemrecord, $biblionumber ) = @_; > my $mungeditem = { >@@ -1653,6 +1659,12 @@ sub PrepareItemrecordDisplay { > }; > } > >+=head2 ToggleNewStatus >+ >+Missing POD for ToggleNewStatus. >+ >+=cut >+ > sub ToggleNewStatus { > my ($params) = @_; > my @rules = @{ $params->{rules} }; >diff --git a/C4/Koha.pm b/C4/Koha.pm >index d97172e333f..7ded6109d6c 100644 >--- a/C4/Koha.pm >+++ b/C4/Koha.pm >@@ -132,6 +132,12 @@ sub getitemtypeimagedir { > } > } > >+=head2 getitemtypeimagesrc >+ >+Missing POD for getitemtypeimagesrc. >+ >+=cut >+ > sub getitemtypeimagesrc { > my $src = shift || 'opac'; > if ( $src eq 'intranet' ) { >@@ -141,6 +147,12 @@ sub getitemtypeimagesrc { > } > } > >+=head2 getitemtypeimagelocation >+ >+Missing POD for getitemtypeimagelocation. >+ >+=cut >+ > sub getitemtypeimagelocation { > my ( $src, $image ) = @_; > >@@ -319,6 +331,12 @@ sub getallthemes { > return @themes; > } > >+=head2 getFacets >+ >+Missing POD for getFacets. >+ >+=cut >+ > sub getFacets { > my $facets; > if ( C4::Context->preference("marcflavour") eq "UNIMARC" ) { >@@ -584,6 +602,12 @@ sub display_marc_indicators { > return $indicators; > } > >+=head2 GetNormalizedUPC >+ >+Missing POD for GetNormalizedUPC. >+ >+=cut >+ > sub GetNormalizedUPC { > my ( $marcrecord, $marcflavour ) = @_; > >@@ -613,6 +637,13 @@ sub GetNormalizedUPC { > > # Normalizes and returns the first valid ISBN found in the record > # ISBN13 are converted into ISBN10. This is required to get some book cover images. >+ >+=head2 GetNormalizedISBN >+ >+Missing POD for GetNormalizedISBN. >+ >+=cut >+ > sub GetNormalizedISBN { > my ( $isbn, $marcrecord, $marcflavour ) = @_; > if ($isbn) { >@@ -644,6 +675,12 @@ sub GetNormalizedISBN { > } > } > >+=head2 GetNormalizedEAN >+ >+Missing POD for GetNormalizedEAN. >+ >+=cut >+ > sub GetNormalizedEAN { > my ( $marcrecord, $marcflavour ) = @_; > >@@ -669,6 +706,12 @@ sub GetNormalizedEAN { > } > } > >+=head2 GetNormalizedOCLCNumber >+ >+Missing POD for GetNormalizedOCLCNumber. >+ >+=cut >+ > sub GetNormalizedOCLCNumber { > my ( $marcrecord, $marcflavour ) = @_; > return unless $marcrecord; >@@ -830,6 +873,12 @@ sub GetVariationsOfISBNs { > > =cut > >+=head2 NormalizeISSN >+ >+Missing POD for NormalizeISSN. >+ >+=cut >+ > sub NormalizeISSN { > my ($params) = @_; > >diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm >index dc77111cf2c..4abe14a8f35 100644 >--- a/C4/Labels/Label.pm >+++ b/C4/Labels/Label.pm >@@ -504,6 +504,12 @@ LABEL_FIELDS: # process data for requested fields on current label > return \@label_text; > } > >+=head2 draw_guide_box >+ >+Missing POD for draw_guide_box. >+ >+=cut >+ > sub draw_guide_box { > return $_[0]->{'guidebox'}; > } >diff --git a/C4/Languages.pm b/C4/Languages.pm >index 7b1776874df..7d86a970dd2 100644 >--- a/C4/Languages.pm >+++ b/C4/Languages.pm >@@ -474,6 +474,12 @@ sub _build_languages_arrayref { > return \@languages_loop; > } > >+=head2 language_get_description >+ >+Missing POD for language_get_description. >+ >+=cut >+ > sub language_get_description { > my ( $script, $lang, $type ) = @_; > my $dbh = C4::Context->dbh; >@@ -585,6 +591,13 @@ sub regex_lang_subtags { > > # Script Direction Resources: > # http://www.w3.org/International/questions/qa-scripts >+ >+=head2 get_bidi >+ >+Missing POD for get_bidi. >+ >+=cut >+ > sub get_bidi { > my ($language_script) = @_; > my $dbh = C4::Context->dbh; >@@ -597,6 +610,12 @@ sub get_bidi { > return $bidi; > } > >+=head2 accept_language >+ >+Missing POD for accept_language. >+ >+=cut >+ > sub accept_language { > > # referenced http://search.cpan.org/src/CGILMORE/I18N-AcceptLanguage-1.04/lib/I18N/AcceptLanguage.pm >diff --git a/C4/Linker.pm b/C4/Linker.pm >index 1a1888ce172..5a6e45edebc 100644 >--- a/C4/Linker.pm >+++ b/C4/Linker.pm >@@ -53,6 +53,12 @@ use base qw(Class::Accessor); > > __PACKAGE__->mk_accessors(qw( )); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $param = shift; >diff --git a/C4/Linker/Default.pm b/C4/Linker/Default.pm >index 63bde4855c6..72476e3b082 100644 >--- a/C4/Linker/Default.pm >+++ b/C4/Linker/Default.pm >@@ -24,6 +24,12 @@ use C4::Heading; > > use base qw(C4::Linker); > >+=head2 get_link >+ >+Missing POD for get_link. >+ >+=cut >+ > sub get_link { > my $self = shift; > my $heading = shift; >@@ -82,6 +88,12 @@ sub get_link { > return $self->SUPER::_handle_auth_limit($authid), $fuzzy, $match_count; > } > >+=head2 update_cache >+ >+Missing POD for update_cache. >+ >+=cut >+ > sub update_cache { > my $self = shift; > my $heading = shift; >@@ -97,6 +109,12 @@ sub update_cache { > $self->{'cache'}->{ $search_form . $auth_type . $thesaurus }->{'fuzzy'} = $fuzzy; > } > >+=head2 flip_heading >+ >+Missing POD for flip_heading. >+ >+=cut >+ > sub flip_heading { > my $self = shift; > my $heading = shift; >diff --git a/C4/Linker/FirstMatch.pm b/C4/Linker/FirstMatch.pm >index 37d12f8d178..378ea095372 100644 >--- a/C4/Linker/FirstMatch.pm >+++ b/C4/Linker/FirstMatch.pm >@@ -24,6 +24,12 @@ use C4::Linker::Default; # Use Default for flipping > > use base qw(C4::Linker); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $param = shift; >@@ -34,12 +40,24 @@ sub new { > return $self; > } > >+=head2 get_link >+ >+Missing POD for get_link. >+ >+=cut >+ > sub get_link { > my $self = shift; > my $heading = shift; > return $self->{'default_linker'}->get_link( $heading, 'first' ); > } > >+=head2 update_cache >+ >+Missing POD for update_cache. >+ >+=cut >+ > sub update_cache { > my $self = shift; > my $heading = shift; >@@ -47,6 +65,12 @@ sub update_cache { > $self->{'default_linker'}->update_cache( $heading, $authid ); > } > >+=head2 flip_heading >+ >+Missing POD for flip_heading. >+ >+=cut >+ > sub flip_heading { > my $self = shift; > my $heading = shift; >diff --git a/C4/Linker/LastMatch.pm b/C4/Linker/LastMatch.pm >index 237bea05f8a..60f0de51208 100644 >--- a/C4/Linker/LastMatch.pm >+++ b/C4/Linker/LastMatch.pm >@@ -24,6 +24,12 @@ use C4::Linker::Default; # Use Default for flipping > > use base qw(C4::Linker); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $param = shift; >@@ -34,12 +40,24 @@ sub new { > return $self; > } > >+=head2 get_link >+ >+Missing POD for get_link. >+ >+=cut >+ > sub get_link { > my $self = shift; > my $heading = shift; > return $self->{'default_linker'}->get_link( $heading, 'last' ); > } > >+=head2 update_cache >+ >+Missing POD for update_cache. >+ >+=cut >+ > sub update_cache { > my $self = shift; > my $heading = shift; >@@ -47,6 +65,12 @@ sub update_cache { > $self->{'default_linker'}->update_cache( $heading, $authid ); > } > >+=head2 flip_heading >+ >+Missing POD for flip_heading. >+ >+=cut >+ > sub flip_heading { > my $self = shift; > my $heading = shift; >diff --git a/C4/Matcher.pm b/C4/Matcher.pm >index 9369782ff21..0b1e7754de9 100644 >--- a/C4/Matcher.pm >+++ b/C4/Matcher.pm >@@ -958,6 +958,12 @@ sub _parse_match_component { > return $component; > } > >+=head2 valid_normalization_routines >+ >+Missing POD for valid_normalization_routines. >+ >+=cut >+ > sub valid_normalization_routines { > > return ( >diff --git a/C4/Message.pm b/C4/Message.pm >index efcd2f3293c..08734211001 100644 >--- a/C4/Message.pm >+++ b/C4/Message.pm >@@ -279,6 +279,13 @@ sub metadata { > } > > # turn $object->metadata into a string suitable for $object->content >+ >+=head2 render_metadata >+ >+Missing POD for render_metadata. >+ >+=cut >+ > sub render_metadata { > my ( $self, $format ) = @_; > $format ||= sub { $_[0] || "" }; >diff --git a/C4/Output.pm b/C4/Output.pm >index e1a28e10544..2e34ee6f321 100644 >--- a/C4/Output.pm >+++ b/C4/Output.pm >@@ -276,11 +276,23 @@ sub output_with_http_headers { > print $query->header($options), $data; > } > >+=head2 output_html_with_http_headers >+ >+Missing POD for output_html_with_http_headers. >+ >+=cut >+ > sub output_html_with_http_headers { > my ( $query, $cookie, $data, $status, $extra_options ) = @_; > output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options ); > } > >+=head2 output_ajax_with_http_headers >+ >+Missing POD for output_ajax_with_http_headers. >+ >+=cut >+ > sub output_ajax_with_http_headers { > my ( $query, $js ) = @_; > print $query->header( >@@ -292,6 +304,12 @@ sub output_ajax_with_http_headers { > ), $js; > } > >+=head2 is_ajax >+ >+Missing POD for is_ajax. >+ >+=cut >+ > sub is_ajax { > my $x_req = $ENV{HTTP_X_REQUESTED_WITH}; > return ( $x_req and $x_req =~ /XMLHttpRequest/i ) ? 1 : 0; >@@ -369,6 +387,12 @@ sub output_and_exit { > exit; > } > >+=head2 output_error >+ >+Missing POD for output_error. >+ >+=cut >+ > sub output_error { > my ( $query, $error ) = @_; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >@@ -387,6 +411,12 @@ sub output_error { > output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found'; > } > >+=head2 parametrized_url >+ >+Missing POD for parametrized_url. >+ >+=cut >+ > sub parametrized_url { > my $url = shift || ''; # ie page.pl?ln={LANG} > my $vars = shift || {}; # ie { LANG => en } >diff --git a/C4/Output/JSONStream.pm b/C4/Output/JSONStream.pm >index f6c8372a76c..5ff07c043d1 100644 >--- a/C4/Output/JSONStream.pm >+++ b/C4/Output/JSONStream.pm >@@ -41,6 +41,12 @@ use warnings; > > use JSON qw( to_json ); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $self = { >@@ -53,6 +59,12 @@ sub new { > return $self; > } > >+=head2 param >+ >+Missing POD for param. >+ >+=cut >+ > sub param { > my $self = shift; > >@@ -65,6 +77,12 @@ sub param { > } > } > >+=head2 output >+ >+Missing POD for output. >+ >+=cut >+ > sub output { > my $self = shift; > >diff --git a/C4/Overdues.pm b/C4/Overdues.pm >index 4d6e50f27a8..5485b09d4a6 100644 >--- a/C4/Overdues.pm >+++ b/C4/Overdues.pm >@@ -456,6 +456,12 @@ C<$itemnumber> is item number. > > =cut > >+=head2 GetWdayFromItemnumber >+ >+Missing POD for GetWdayFromItemnumber. >+ >+=cut >+ > sub GetWdayFromItemnumber { > my ($itemnumber) = @_; > my $iteminfo = GetIssuesIteminfo($itemnumber); >diff --git a/C4/Patroncards/Lib.pm b/C4/Patroncards/Lib.pm >index 6f0472e17e1..a709a3fb902 100644 >--- a/C4/Patroncards/Lib.pm >+++ b/C4/Patroncards/Lib.pm >@@ -84,6 +84,12 @@ sub box { > $pdf->Add($obj_stream); > } > >+=head2 get_borrower_attributes >+ >+Missing POD for get_borrower_attributes. >+ >+=cut >+ > sub get_borrower_attributes { > my ( $borrower_number, @fields ) = @_; > my $get_branch = 0; >@@ -117,6 +123,12 @@ sub get_borrower_attributes { > return $borrower_attributes; > } > >+=head2 put_image >+ >+Missing POD for put_image. >+ >+=cut >+ > sub put_image { > my ( $image_name, $image_file ) = @_; > if ( my $image_limit = C4::Context->preference('ImageLimit') ) { # enforce quota if set >@@ -140,6 +152,12 @@ sub put_image { > return; > } > >+=head2 get_image >+ >+Missing POD for get_image. >+ >+=cut >+ > sub get_image { > my ( $image_name, $fields ) = @_; > $fields = '*' unless $fields; >@@ -158,6 +176,12 @@ sub get_image { > return $sth->fetchall_arrayref( {} ); > } > >+=head2 rm_image >+ >+Missing POD for rm_image. >+ >+=cut >+ > sub rm_image { > my $image_ids = shift; > my $errstr = (); >diff --git a/C4/Record.pm b/C4/Record.pm >index 74ad9defcc9..ab1bc60bd00 100644 >--- a/C4/Record.pm >+++ b/C4/Record.pm >@@ -361,6 +361,12 @@ sub _transformWithStylesheet { > return C4::XSLT::engine->transform( $xmlrecord, $xslfile ); > } > >+=head2 marc2endnote >+ >+Missing POD for marc2endnote. >+ >+=cut >+ > sub marc2endnote { > my ($marc) = @_; > my $marc_rec_obj = MARC::Record->new_from_usmarc($marc); >diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm >index f5f65d9639b..e1a5fe3a12f 100644 >--- a/C4/Reports/Guided.pm >+++ b/C4/Reports/Guided.pm >@@ -81,6 +81,12 @@ This will return a list of all the available report areas > > =cut > >+=head2 get_area_name_sql_snippet >+ >+Missing POD for get_area_name_sql_snippet. >+ >+=cut >+ > sub get_area_name_sql_snippet { > my @REPORT_AREA = ( > [ CIRC => "Circulation" ], >@@ -101,6 +107,12 @@ sub get_report_areas { > return $report_areas; > } > >+=head2 get_table_areas >+ >+Missing POD for get_table_areas. >+ >+=cut >+ > sub get_table_areas { > return ( > CIRC => [ 'borrowers', 'statistics', 'items', 'biblioitems' ], >@@ -430,6 +442,12 @@ sub get_criteria { > return ( \@criteria_array ); > } > >+=head2 nb_rows >+ >+Missing POD for nb_rows. >+ >+=cut >+ > sub nb_rows { > my $sql = shift or return; > >@@ -690,6 +708,12 @@ sub save_report { > return $report->id; > } > >+=head2 update_sql >+ >+Missing POD for update_sql. >+ >+=cut >+ > sub update_sql { > my $id = shift || croak "No Id given"; > my $fields = shift; >@@ -720,6 +744,12 @@ sub update_sql { > return $report; > } > >+=head2 store_results >+ >+Missing POD for store_results. >+ >+=cut >+ > sub store_results { > my ( $id, $json ) = @_; > my $dbh = C4::Context->dbh(); >@@ -730,6 +760,12 @@ sub store_results { > ); > } > >+=head2 format_results >+ >+Missing POD for format_results. >+ >+=cut >+ > sub format_results { > my ($id) = @_; > my $dbh = C4::Context->dbh(); >@@ -749,6 +785,12 @@ sub format_results { > }; > } > >+=head2 delete_report >+ >+Missing POD for delete_report. >+ >+=cut >+ > sub delete_report { > my (@ids) = @_; > return unless @ids; >@@ -763,6 +805,12 @@ sub delete_report { > return $sth->execute(@ids); > } > >+=head2 get_saved_reports_base_query >+ >+Missing POD for get_saved_reports_base_query. >+ >+=cut >+ > sub get_saved_reports_base_query { > my $area_name_sql_snippet = get_area_name_sql_snippet; > return <<EOQ; >@@ -776,6 +824,12 @@ LEFT OUTER JOIN borrowers b USING (borrowernumber) > EOQ > } > >+=head2 get_saved_reports >+ >+Missing POD for get_saved_reports. >+ >+=cut >+ > sub get_saved_reports { > > # $filter is either { date => $d, author => $a, keyword => $kw, } >@@ -874,6 +928,12 @@ sub get_distinct_values { > return $sth->fetchall_arrayref( {} ); > } > >+=head2 save_dictionary >+ >+Missing POD for save_dictionary. >+ >+=cut >+ > sub save_dictionary { > my ( $name, $description, $sql, $area ) = @_; > my $dbh = C4::Context->dbh(); >@@ -884,6 +944,12 @@ sub save_dictionary { > return 1; > } > >+=head2 get_from_dictionary >+ >+Missing POD for get_from_dictionary. >+ >+=cut >+ > sub get_from_dictionary { > my ( $area, $id ) = @_; > my $dbh = C4::Context->dbh(); >@@ -913,6 +979,12 @@ EOQ > return ( \@loop ); > } > >+=head2 delete_definition >+ >+Missing POD for delete_definition. >+ >+=cut >+ > sub delete_definition { > my ($id) = @_ or return; > my $dbh = C4::Context->dbh(); >@@ -938,6 +1010,12 @@ sub get_sql { > return $data->{'savedsql'}; > } > >+=head2 get_results >+ >+Missing POD for get_results. >+ >+=cut >+ > sub get_results { > my ($report_id) = @_; > my $dbh = C4::Context->dbh; >diff --git a/C4/Ris.pm b/C4/Ris.pm >index 39703c94f5e..9ba4bbbe895 100644 >--- a/C4/Ris.pm >+++ b/C4/Ris.pm >@@ -87,6 +87,12 @@ C<$record> - a MARC::Record object > > =cut > >+=head2 marc2ris >+ >+Missing POD for marc2ris. >+ >+=cut >+ > sub marc2ris { > my ($record) = @_; > >@@ -337,6 +343,13 @@ sub marc2ris { > ## Argument: the leader of a MARC dataset > ## Returns: the value at leader position 06 > ##******************************************************************** >+ >+=head2 print_typetag >+ >+Missing POD for print_typetag. >+ >+=cut >+ > sub print_typetag { > my ($leader) = @_; > ## the keys of typehash are the allowed values at position 06 >@@ -426,6 +439,13 @@ sub print_typetag { > ## 3=family, clan, dynasty name > ## Returns: the normalized authorname > ##******************************************************************** >+ >+=head2 normalize_author >+ >+Missing POD for normalize_author. >+ >+=cut >+ > sub normalize_author { > my ( $rawauthora, $rawauthorb, $rawauthorc, $nametype ) = @_; > >@@ -465,6 +485,13 @@ sub normalize_author { > ## Argument: field (100 or 700) > ## Returns: an author string in the format found in the record > ##******************************************************************** >+ >+=head2 get_author >+ >+Missing POD for get_author. >+ >+=cut >+ > sub get_author { > my ($authorfield) = @_; > my ($indicator); >@@ -503,6 +530,13 @@ sub get_author { > ## Argument: field (110, 111, 710, or 711) > ## Returns: an author string in the format found in the record > ##******************************************************************** >+ >+=head2 get_editor >+ >+Missing POD for get_editor. >+ >+=cut >+ > sub get_editor { > my ($editorfield) = @_; > >@@ -521,6 +555,13 @@ sub get_editor { > ## Arguments: field (245) > ## Returns: > ##******************************************************************** >+ >+=head2 print_title >+ >+Missing POD for print_title. >+ >+=cut >+ > sub print_title { > my ($titlefield) = @_; > if ( !$titlefield ) { >@@ -572,6 +613,13 @@ sub print_title { > ## Arguments: field > ## Returns: > ##******************************************************************** >+ >+=head2 print_stitle >+ >+Missing POD for print_stitle. >+ >+=cut >+ > sub print_stitle { > my ($titlefield) = @_; > >@@ -603,6 +651,13 @@ sub print_stitle { > ## print_isbn(): gets info from MARC field 020 > ## Arguments: field (020) > ##******************************************************************** >+ >+=head2 print_isbn >+ >+Missing POD for print_isbn. >+ >+=cut >+ > sub print_isbn { > my ($isbnfield) = @_; > >@@ -624,6 +679,13 @@ sub print_isbn { > ## print_issn(): gets info from MARC field 022 > ## Arguments: field (022) > ##******************************************************************** >+ >+=head2 print_issn >+ >+Missing POD for print_issn. >+ >+=cut >+ > sub print_issn { > my ($issnfield) = @_; > >@@ -644,6 +706,13 @@ sub print_issn { > ### > # print_uri() prints info from 856 u > ### >+ >+=head2 print_uri >+ >+Missing POD for print_uri. >+ >+=cut >+ > sub print_uri { > my @f856s = @_; > >@@ -658,6 +727,13 @@ sub print_uri { > ## print_loc_callno(): gets info from MARC field 050 > ## Arguments: field (050) > ##******************************************************************** >+ >+=head2 print_loc_callno >+ >+Missing POD for print_loc_callno. >+ >+=cut >+ > sub print_loc_callno { > my ($callnofield) = @_; > >@@ -673,6 +749,13 @@ sub print_loc_callno { > ## print_dewey(): gets info from MARC field 082 > ## Arguments: field (082) > ##******************************************************************** >+ >+=head2 print_dewey >+ >+Missing POD for print_dewey. >+ >+=cut >+ > sub print_dewey { > my ($deweyfield) = @_; > >@@ -688,6 +771,13 @@ sub print_dewey { > ## print_pubinfo(): gets info from MARC field 260 > ## Arguments: field (260) > ##******************************************************************** >+ >+=head2 print_pubinfo >+ >+Missing POD for print_pubinfo. >+ >+=cut >+ > sub print_pubinfo { > my ($pubinfofield) = @_; > >@@ -802,6 +892,13 @@ sub print_pubinfo { > ## get_keywords(): prints info from MARC fields 6XX > ## Arguments: list of fields (6XX) > ##******************************************************************** >+ >+=head2 get_keywords >+ >+Missing POD for get_keywords. >+ >+=cut >+ > sub get_keywords { > my ( $fieldname, @keywords ) = @_; > >@@ -859,6 +956,13 @@ sub get_keywords { > ## field name > ## list of fields (5XX) > ##******************************************************************** >+ >+=head2 pool_subx >+ >+Missing POD for pool_subx. >+ >+=cut >+ > sub pool_subx { > my ( $aref, $fieldname, @notefields ) = @_; > >@@ -948,6 +1052,13 @@ sub pool_subx { > ## print_abstract(): prints abstract fields > ## Arguments: list of fields (520) > ##******************************************************************** >+ >+=head2 print_abstract >+ >+Missing POD for print_abstract. >+ >+=cut >+ > sub print_abstract { > > # ToDo: take care of repeatable subfields >diff --git a/C4/SIP/ILS.pm b/C4/SIP/ILS.pm >index 8fdfc473408..f3702c7b91a 100644 >--- a/C4/SIP/ILS.pm >+++ b/C4/SIP/ILS.pm >@@ -47,6 +47,12 @@ my %supports = ( > "renew all" => 1, > ); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $institution ) = @_; > my $type = ref($class) || $class; >@@ -56,11 +62,23 @@ sub new { > return bless $self, $type; > } > >+=head2 find_patron >+ >+Missing POD for find_patron. >+ >+=cut >+ > sub find_patron { > my $self = shift; > return C4::SIP::ILS::Patron->new(@_); > } > >+=head2 find_item >+ >+Missing POD for find_item. >+ >+=cut >+ > sub find_item { > my $self = shift; > return C4::SIP::ILS::Item->new(@_); >@@ -71,16 +89,34 @@ sub institution { > return $self->{institution}->{id}; # consider making this return the whole institution > } > >+=head2 institution_id >+ >+Missing POD for institution_id. >+ >+=cut >+ > sub institution_id { > my $self = shift; > return $self->{institution}->{id}; > } > >+=head2 supports >+ >+Missing POD for supports. >+ >+=cut >+ > sub supports { > my ( $self, $op ) = @_; > return ( exists( $supports{$op} ) && $supports{$op} ); > } > >+=head2 check_inst_id >+ >+Missing POD for check_inst_id. >+ >+=cut >+ > sub check_inst_id { > my ( $self, $id, $whence ) = @_; > if ( $id ne $self->{institution}->{id} ) { >@@ -93,6 +129,12 @@ sub check_inst_id { > } > } > >+=head2 to_bool >+ >+Missing POD for to_bool. >+ >+=cut >+ > sub to_bool { > my $bool = shift; > >@@ -243,6 +285,12 @@ sub _ci_cardnumber_cmp { > > # wrapper which allows above to be called for testing > >+=head2 test_cardnumber_compare >+ >+Missing POD for test_cardnumber_compare. >+ >+=cut >+ > sub test_cardnumber_compare { > my ( $self, $str1, $str2 ) = @_; > return _ci_cardnumber_cmp( $str1, $str2 ); >diff --git a/C4/SIP/ILS/Item.pm b/C4/SIP/ILS/Item.pm >index 69abf8b5243..a340f1e592d 100644 >--- a/C4/SIP/ILS/Item.pm >+++ b/C4/SIP/ILS/Item.pm >@@ -72,6 +72,12 @@ use Koha::TemplateUtils qw( process_tt ); > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $item_id ) = @_; > my $type = ref($class) || $class; >@@ -162,6 +168,12 @@ my %fields = ( > itemtype => 0, > ); > >+=head2 next_hold >+ >+Missing POD for next_hold. >+ >+=cut >+ > sub next_hold { > my $self = shift; > >@@ -181,6 +193,13 @@ sub next_hold { > # hold_patron_id is NOT the barcode. It's the borrowernumber. > # If a return triggers capture for a hold the borrowernumber is passed > # and saved so that other hold info can be retrieved >+ >+=head2 hold_patron_id >+ >+Missing POD for hold_patron_id. >+ >+=cut >+ > sub hold_patron_id { > my $self = shift; > my $id = shift; >@@ -194,6 +213,12 @@ sub hold_patron_id { > > } > >+=head2 hold_patron_name >+ >+Missing POD for hold_patron_name. >+ >+=cut >+ > sub hold_patron_name { > my ( $self, $template ) = @_; > my $borrowernumber = $self->hold_patron_id() or return q{}; >@@ -218,6 +243,12 @@ sub hold_patron_name { > return $name; > } > >+=head2 hold_patron_bcode >+ >+Missing POD for hold_patron_bcode. >+ >+=cut >+ > sub hold_patron_bcode { > my $self = shift; > my $borrowernumber = ( @_ ? shift : $self->hold_patron_id() ) or return q{}; >@@ -228,6 +259,12 @@ sub hold_patron_bcode { > return q(); > } > >+=head2 destination_loc >+ >+Missing POD for destination_loc. >+ >+=cut >+ > sub destination_loc { > my $self = shift; > my $set_loc = shift; >@@ -263,6 +300,12 @@ sub AUTOLOAD { > } > } > >+=head2 status_update >+ >+Missing POD for status_update. >+ >+=cut >+ > sub status_update { # FIXME: this looks unimplemented > my ( $self, $props ) = @_; > my $status = C4::SIP::ILS::Transaction->new(); >@@ -339,12 +382,24 @@ sub hold_queue { > return $self->{hold_queue}; > } > >+=head2 pending_queue >+ >+Missing POD for pending_queue. >+ >+=cut >+ > sub pending_queue { > my $self = shift; > ( defined $self->{pending_queue} ) or return []; > return $self->{pending_queue}; > } > >+=head2 hold_attached >+ >+Missing POD for hold_attached. >+ >+=cut >+ > sub hold_attached { > my $self = shift; > ( defined $self->{hold_attached} ) or return []; >@@ -422,6 +477,12 @@ sub _barcode_to_borrowernumber { > return $patron->borrowernumber; > } > >+=head2 barcode_is_borrowernumber >+ >+Missing POD for barcode_is_borrowernumber. >+ >+=cut >+ > sub barcode_is_borrowernumber { # because hold_queue only has borrowernumber... > my $self = shift; > my $barcode = shift; >@@ -439,6 +500,12 @@ to send in the item related message responses > > =cut > >+=head2 build_additional_item_fields_string >+ >+Missing POD for build_additional_item_fields_string. >+ >+=cut >+ > sub build_additional_item_fields_string { > my ( $self, $server ) = @_; > >@@ -482,6 +549,12 @@ This method builds the part of the sip message for custom item fields as defined > > =cut > >+=head2 build_custom_field_string >+ >+Missing POD for build_custom_field_string. >+ >+=cut >+ > sub build_custom_field_string { > my ( $self, $server ) = @_; > >@@ -497,6 +570,12 @@ If errors are encountered in processing template we log them and return nothing > > =cut > >+=head2 format >+ >+Missing POD for format. >+ >+=cut >+ > sub format { > my ( $self, $template ) = @_; > >diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm >index f51cf63cbd4..d7361083a2e 100644 >--- a/C4/SIP/ILS/Patron.pm >+++ b/C4/SIP/ILS/Patron.pm >@@ -38,6 +38,12 @@ our $kp; # koha patron > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $patron_id ) = @_; > my $type = ref($class) || $class; >@@ -302,6 +308,12 @@ If errors are encountered in processing template we log them and return nothing > > =cut > >+=head2 format >+ >+Missing POD for format. >+ >+=cut >+ > sub format { > my ( $self, $template ) = @_; > >@@ -335,6 +347,12 @@ This method checks if number of checkouts of lost items exceeds a threshold (def > > =cut > >+=head2 too_many_lost >+ >+Missing POD for too_many_lost. >+ >+=cut >+ > sub too_many_lost { > my ( $self, $server ) = @_; > my $too_many_lost = 0; >@@ -357,6 +375,12 @@ sub fee_amount { > return 0; > } > >+=head2 fines_amount >+ >+Missing POD for fines_amount. >+ >+=cut >+ > sub fines_amount { > my $self = shift; > return $self->fee_amount; >@@ -367,6 +391,12 @@ sub language { > return $self->{language} || '000'; # Unspecified > } > >+=head2 expired >+ >+Missing POD for expired. >+ >+=cut >+ > sub expired { > my $self = shift; > return $self->{expired}; >@@ -396,6 +426,13 @@ sub drop_hold { > # Accessor method for array_ref values, designed to get the "start" and "end" values > # from the SIP request. Note those incoming values are 1-indexed, not 0-indexed. > # >+ >+=head2 x_items >+ >+Missing POD for x_items. >+ >+=cut >+ > sub x_items { > my $self = shift; > my $array_var = shift or return; >@@ -424,6 +461,13 @@ sub x_items { > # > # List of outstanding holds placed > # >+ >+=head2 hold_items >+ >+Missing POD for hold_items. >+ >+=cut >+ > sub hold_items { > my $self = shift; > my $item_arr = $self->x_items( 'hold_items', @_ ); >@@ -434,16 +478,34 @@ sub hold_items { > return $item_arr; > } > >+=head2 overdue_items >+ >+Missing POD for overdue_items. >+ >+=cut >+ > sub overdue_items { > my $self = shift; > return $self->x_items( 'overdue_items', @_ ); > } > >+=head2 charged_items >+ >+Missing POD for charged_items. >+ >+=cut >+ > sub charged_items { > my $self = shift; > return $self->x_items( 'items', @_ ); > } > >+=head2 fine_items >+ >+Missing POD for fine_items. >+ >+=cut >+ > sub fine_items { > > require Koha::Database; >@@ -481,11 +543,23 @@ sub fine_items { > > } > >+=head2 recall_items >+ >+Missing POD for recall_items. >+ >+=cut >+ > sub recall_items { > my $self = shift; > return $self->x_items( 'recall_items', @_ ); > } > >+=head2 unavail_holds >+ >+Missing POD for unavail_holds. >+ >+=cut >+ > sub unavail_holds { > my $self = shift; > return $self->x_items( 'unavail_holds', @_ ); >@@ -517,26 +591,56 @@ sub enable { > return $self; > } > >+=head2 inet_privileges >+ >+Missing POD for inet_privileges. >+ >+=cut >+ > sub inet_privileges { > my $self = shift; > return $self->{inet} ? 'Y' : 'N'; > } > >+=head2 excessive_fees >+ >+Missing POD for excessive_fees. >+ >+=cut >+ > sub excessive_fees { > my $self = shift; > return ( $self->fee_amount and $self->fee_amount > $self->fee_limit ); > } > >+=head2 excessive_fines >+ >+Missing POD for excessive_fines. >+ >+=cut >+ > sub excessive_fines { > my $self = shift; > return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha > } > >+=head2 holds_blocked_by_excessive_fees >+ >+Missing POD for holds_blocked_by_excessive_fees. >+ >+=cut >+ > sub holds_blocked_by_excessive_fees { > my $self = shift; > return ( $self->fee_amount && $self->fee_amount > C4::Context->preference("maxoutstanding") ); > } > >+=head2 library_name >+ >+Missing POD for library_name. >+ >+=cut >+ > sub library_name { > my $self = shift; > unless ( $self->{library_name} ) { >@@ -549,11 +653,23 @@ sub library_name { > # Messages > # > >+=head2 invalid_patron >+ >+Missing POD for invalid_patron. >+ >+=cut >+ > sub invalid_patron { > my $self = shift; > return "Please contact library staff"; > } > >+=head2 charge_denied >+ >+Missing POD for charge_denied. >+ >+=cut >+ > sub charge_denied { > my $self = shift; > return "Please contact library staff"; >@@ -608,6 +724,12 @@ attributes as defined in the sip config > > =cut > >+=head2 build_patron_attributes_string >+ >+Missing POD for build_patron_attributes_string. >+ >+=cut >+ > sub build_patron_attributes_string { > my ( $self, $server ) = @_; > >@@ -642,6 +764,12 @@ This method builds the part of the sip message for custom patron fields as defin > > =cut > >+=head2 build_custom_field_string >+ >+Missing POD for build_custom_field_string. >+ >+=cut >+ > sub build_custom_field_string { > my ( $self, $server ) = @_; > >diff --git a/C4/SIP/ILS/Transaction/Checkin.pm b/C4/SIP/ILS/Transaction/Checkin.pm >index 1ad0a4b7368..10b688bc91a 100644 >--- a/C4/SIP/ILS/Transaction/Checkin.pm >+++ b/C4/SIP/ILS/Transaction/Checkin.pm >@@ -33,6 +33,12 @@ my %fields = ( > hold => undef, > ); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $self = $class->SUPER::new(); # start with an ILS::Transaction object >@@ -45,6 +51,12 @@ sub new { > return bless $self, $class; > } > >+=head2 do_checkin >+ >+Missing POD for do_checkin. >+ >+=cut >+ > sub do_checkin { > my $self = shift; > my $branch = shift; >@@ -190,6 +202,12 @@ sub do_checkin { > return { messages => $messages }; > } > >+=head2 resensitize >+ >+Missing POD for resensitize. >+ >+=cut >+ > sub resensitize { > my $self = shift; > unless ( $self->{item} ) { >@@ -199,6 +217,12 @@ sub resensitize { > return !$self->{item}->magnetic_media; > } > >+=head2 patron_id >+ >+Missing POD for patron_id. >+ >+=cut >+ > sub patron_id { > my $self = shift; > unless ( $self->{patron} ) { >diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm >index 666c2761f04..fbd4c26a3a6 100644 >--- a/C4/SIP/Sip.pm >+++ b/C4/SIP/Sip.pm >@@ -48,6 +48,12 @@ our $field_delimiter = '|'; # Protocol Default > > our $last_response = ''; > >+=head2 timestamp >+ >+Missing POD for timestamp. >+ >+=cut >+ > sub timestamp { > my $time = $_[0] || time(); > if ( ref $time eq 'DateTime' ) { >@@ -64,6 +70,13 @@ sub timestamp { > # add_field(field_id, value) > # return constructed field value > # >+ >+=head2 add_field >+ >+Missing POD for add_field. >+ >+=cut >+ > sub add_field { > my ( $field_id, $value, $server ) = @_; > >@@ -97,6 +110,13 @@ sub add_field { > # constructed field value, otherwise return the empty string. > # NOTE: if zero is a valid value for your field, don't use maybe_add! > # >+ >+=head2 maybe_add >+ >+Missing POD for maybe_add. >+ >+=cut >+ > sub maybe_add { > my ( $fid, $value, $server ) = @_; > >@@ -118,6 +138,12 @@ sub maybe_add { > : ''; > } > >+=head2 should_hide >+ >+Missing POD for should_hide. >+ >+=cut >+ > sub should_hide { > my ( $field_id, $value, $server ) = @_; > >@@ -141,6 +167,13 @@ sub should_hide { > # or a string of four spaces if the count is invalid for some > # reason > # >+ >+=head2 add_count >+ >+Missing POD for add_count. >+ >+=cut >+ > sub add_count { > my ( $label, $count ) = @_; > >@@ -169,11 +202,24 @@ sub add_count { > # that the user's not permitted to renew. I assume that the ILS has > # real positive tests. > # >+ >+=head2 denied >+ >+Missing POD for denied. >+ >+=cut >+ > sub denied { > my $bool = shift; > return boolspace( !$bool ); > } > >+=head2 sipbool >+ >+Missing POD for sipbool. >+ >+=cut >+ > sub sipbool { > my $bool = shift; > return $bool ? 'Y' : 'N'; >@@ -182,6 +228,13 @@ sub sipbool { > # > # boolspace: ' ' is false, 'Y' is true. (don't ask) > # >+ >+=head2 boolspace >+ >+Missing POD for boolspace. >+ >+=cut >+ > sub boolspace { > my $bool = shift; > return $bool ? 'Y' : ' '; >@@ -198,6 +251,12 @@ sub boolspace { > # just write to the default destination. > # > >+=head2 write_msg >+ >+Missing POD for write_msg. >+ >+=cut >+ > sub write_msg { > my ( $self, $msg, $server ) = @_; > my $terminator = $server->{account}->{terminator}; >@@ -230,6 +289,12 @@ sub write_msg { > $last_response = $msg; > } > >+=head2 siplog >+ >+Missing POD for siplog. >+ >+=cut >+ > sub siplog { > my ( $level, $mask, @args ) = @_; > >diff --git a/C4/Scheduler.pm b/C4/Scheduler.pm >index e0ba896cbd1..7c70c7ebb0f 100644 >--- a/C4/Scheduler.pm >+++ b/C4/Scheduler.pm >@@ -125,6 +125,12 @@ sub add_at_job { > } > } > >+=head2 remove_at_job >+ >+Missing POD for remove_at_job. >+ >+=cut >+ > sub remove_at_job { > my ($jobid) = @_; > Schedule::At::remove( JOBID => $jobid ); >diff --git a/C4/Scrubber.pm b/C4/Scrubber.pm >index 57abd918ea5..856dcb62549 100644 >--- a/C4/Scrubber.pm >+++ b/C4/Scrubber.pm >@@ -37,8 +37,14 @@ my %scrubbertypes = ( > }, > ); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { >- shift; # ignore our class we are wrapper >+ shift; # ignore our class we are wrapper > my $type = (@_) ? shift : 'default'; > if ( !exists $scrubbertypes{$type} ) { > croak "New called with unrecognized type '$type'"; >diff --git a/C4/Search.pm b/C4/Search.pm >index 6ae9ddcc8d5..13f35813689 100644 >--- a/C4/Search.pm >+++ b/C4/Search.pm >@@ -563,6 +563,12 @@ sub getRecords { > return ( undef, $results_hashref, \@facets_loop ); > } > >+=head2 GetFacets >+ >+Missing POD for GetFacets. >+ >+=cut >+ > sub GetFacets { > > my $rs = shift; >diff --git a/C4/Search/History.pm b/C4/Search/History.pm >index 79113df2f11..69c114f20be 100644 >--- a/C4/Search/History.pm >+++ b/C4/Search/History.pm >@@ -118,6 +118,12 @@ sub delete { > ); > } > >+=head2 delete_from_cookie >+ >+Missing POD for delete_from_cookie. >+ >+=cut >+ > sub delete_from_cookie { > my ($params) = @_; > my $cookie = $params->{cookie}; >diff --git a/C4/Search/PazPar2.pm b/C4/Search/PazPar2.pm >index a2a0ddbc278..4a0c6911b67 100644 >--- a/C4/Search/PazPar2.pm >+++ b/C4/Search/PazPar2.pm >@@ -39,6 +39,12 @@ C4::Search::PazPar2 - implement client for PazPar2 > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $endpoint = shift; >@@ -52,6 +58,12 @@ sub new { > return $self; > } > >+=head2 init >+ >+Missing POD for init. >+ >+=cut >+ > sub init { > my $self = shift; > >@@ -68,6 +80,12 @@ sub init { > } > } > >+=head2 search >+ >+Missing POD for search. >+ >+=cut >+ > sub search { > my $self = shift; > my $query = shift; >@@ -86,6 +104,12 @@ sub search { > > } > >+=head2 stat >+ >+Missing POD for stat. >+ >+=cut >+ > sub stat { > my $self = shift; > >@@ -101,6 +125,12 @@ sub stat { > } > } > >+=head2 show >+ >+Missing POD for show. >+ >+=cut >+ > sub show { > my $self = shift; > my $start = shift; >@@ -125,6 +155,12 @@ sub show { > > } > >+=head2 record >+ >+Missing POD for record. >+ >+=cut >+ > sub record { > my $self = shift; > my $id = shift; >@@ -145,6 +181,12 @@ sub record { > } > } > >+=head2 termlist >+ >+Missing POD for termlist. >+ >+=cut >+ > sub termlist { > my $self = shift; > my $name = shift; >diff --git a/C4/ShelfBrowser.pm b/C4/ShelfBrowser.pm >index 6af35ec3246..33154ee92aa 100644 >--- a/C4/ShelfBrowser.pm >+++ b/C4/ShelfBrowser.pm >@@ -216,6 +216,13 @@ sub GetNearbyItems { > > # populate an item list with its title and upc, oclc and isbn normalized. > # Not really intended to be exported. >+ >+=head2 GetShelfInfo >+ >+Missing POD for GetShelfInfo. >+ >+=cut >+ > sub GetShelfInfo { > my @items = @_; > my $marcflavour = C4::Context->preference("marcflavour"); >diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm >index 154b2e845c7..e563b9d99fd 100644 >--- a/C4/Suggestions.pm >+++ b/C4/Suggestions.pm >@@ -384,6 +384,12 @@ sub DelSuggestionsOlderThan { > $sth->execute("-$days"); > } > >+=head2 GetUnprocessedSuggestions >+ >+Missing POD for GetUnprocessedSuggestions. >+ >+=cut >+ > sub GetUnprocessedSuggestions { > my ($number_of_days_since_the_last_modification) = @_; > >diff --git a/C4/Tags.pm b/C4/Tags.pm >index f55fe7f3006..c5ed17a014f 100644 >--- a/C4/Tags.pm >+++ b/C4/Tags.pm >@@ -68,6 +68,12 @@ BEGIN { > > =cut > >+=head2 get_filters >+ >+Missing POD for get_filters. >+ >+=cut >+ > sub get_filters { > my $query = "SELECT * FROM tags_filters "; > my ($sth); >@@ -84,6 +90,12 @@ sub get_filters { > # (SELECT count(*) FROM tags_all ) as tags_all, > # (SELECT count(*) FROM tags_index ) as tags_index, > >+=head2 approval_counts >+ >+Missing POD for approval_counts. >+ >+=cut >+ > sub approval_counts { > my $query = "SELECT > (SELECT count(*) FROM tags_approval WHERE approved= 1) as approved_count, >@@ -114,6 +126,12 @@ sub get_count_by_tag_status { > return $sth->fetchrow; > } > >+=head2 remove_tag >+ >+Missing POD for remove_tag. >+ >+=cut >+ > sub remove_tag { > my $tag_id = shift or return; > my $user_id = (@_) ? shift : undef; >@@ -141,6 +159,12 @@ sub remove_tag { > Koha::Tags->search( { tag_id => $tag_id } )->delete; > } > >+=head2 get_tag_rows >+ >+Missing POD for get_tag_rows. >+ >+=cut >+ > sub get_tag_rows { > my $hash = shift || {}; > my @ok_fields = TAG_FIELDS; >@@ -179,6 +203,12 @@ sub get_tag_rows { > return $sth->fetchall_arrayref( {} ); > } > >+=head2 get_tags >+ >+Missing POD for get_tags. >+ >+=cut >+ > sub get_tags { # i.e., from tags_index > my $hash = shift || {}; > my @ok_fields = qw(term biblionumber weight limit sort approved); >@@ -245,6 +275,12 @@ sub get_tags { # i.e., from tags_index > return $sth->fetchall_arrayref( {} ); > } > >+=head2 get_approval_rows >+ >+Missing POD for get_approval_rows. >+ >+=cut >+ > sub get_approval_rows { # i.e., from tags_approval > my $hash = shift || {}; > my @ok_fields = qw(term approved date_approved approved_by weight_total limit sort borrowernumber); >@@ -315,6 +351,12 @@ sub get_approval_rows { # i.e., from tags_approval > return $sth->fetchall_arrayref( {} ); > } > >+=head2 is_approved >+ >+Missing POD for is_approved. >+ >+=cut >+ > sub is_approved { > my $term = shift or return; > my $sth = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?"); >@@ -327,6 +369,12 @@ sub is_approved { > return $sth->fetchrow; > } > >+=head2 get_tag_index >+ >+Missing POD for get_tag_index. >+ >+=cut >+ > sub get_tag_index { > my $term = shift or return; > my $sth; >@@ -340,6 +388,12 @@ sub get_tag_index { > return $sth->fetchrow_hashref; > } > >+=head2 whitelist >+ >+Missing POD for whitelist. >+ >+=cut >+ > sub whitelist { > my $operator = shift; > defined $operator or return; # have to test defined to allow =0 (kohaadmin) >@@ -364,6 +418,13 @@ sub whitelist { > # note: there is no "unwhitelist" operation because there is no remove for Ispell. > # The blacklist regexps should operate "in front of" the whitelist, so if you approve > # a term mistakenly, you can still reverse it. But there is no going back to "neutral". >+ >+=head2 blacklist >+ >+Missing POD for blacklist. >+ >+=cut >+ > sub blacklist { > my $operator = shift; > defined $operator or return; # have to test defined to allow =0 (kohaadmin) >@@ -378,6 +439,12 @@ sub blacklist { > return scalar @_; > } > >+=head2 add_filter >+ >+Missing POD for add_filter. >+ >+=cut >+ > sub add_filter { > my $operator = shift; > defined $operator or return; # have to test defined to allow =0 (kohaadmin) >@@ -387,6 +454,12 @@ sub add_filter { > return scalar @_; > } > >+=head2 remove_filter >+ >+Missing POD for remove_filter. >+ >+=cut >+ > sub remove_filter { > my $operator = shift; > defined $operator or return; # have to test defined to allow =0 (kohaadmin) >@@ -397,6 +470,12 @@ sub remove_filter { > return scalar @_; > } > >+=head2 add_tag_approval >+ >+Missing POD for add_tag_approval. >+ >+=cut >+ > sub add_tag_approval { # or disapproval > my $term = shift or return; > my $query = "SELECT * FROM tags_approval WHERE term = ?"; >@@ -421,6 +500,12 @@ sub add_tag_approval { # or disapproval > return $sth->rows; > } > >+=head2 mod_tag_approval >+ >+Missing POD for mod_tag_approval. >+ >+=cut >+ > sub mod_tag_approval { > my $operator = shift; > defined $operator or return; # have to test defined to allow =0 (kohaadmin) >@@ -431,6 +516,12 @@ sub mod_tag_approval { > $sth->execute( $operator, $approval, $term ); > } > >+=head2 add_tag_index >+ >+Missing POD for add_tag_index. >+ >+=cut >+ > sub add_tag_index { > my $term = shift or return; > my $biblionumber = shift or return; >@@ -444,28 +535,64 @@ sub add_tag_index { > return $sth->rows; > } > >+=head2 increment_weights >+ >+Missing POD for increment_weights. >+ >+=cut >+ > sub increment_weights { > increment_weight(@_); > increment_weight_total(shift); > } > >+=head2 decrement_weights >+ >+Missing POD for decrement_weights. >+ >+=cut >+ > sub decrement_weights { > decrement_weight(@_); > decrement_weight_total(shift); > } > >+=head2 increment_weight_total >+ >+Missing POD for increment_weight_total. >+ >+=cut >+ > sub increment_weight_total { > _set_weight_total( 'weight_total+1', shift ); > } > >+=head2 increment_weight >+ >+Missing POD for increment_weight. >+ >+=cut >+ > sub increment_weight { > _set_weight( 'weight+1', shift, shift ); > } > >+=head2 decrement_weight_total >+ >+Missing POD for decrement_weight_total. >+ >+=cut >+ > sub decrement_weight_total { > _set_weight_total( 'weight_total-1', shift ); > } > >+=head2 decrement_weight >+ >+Missing POD for decrement_weight. >+ >+=cut >+ > sub decrement_weight { > _set_weight( 'weight-1', shift, shift ); > } >@@ -538,6 +665,13 @@ sub add_tag { # biblionumber,term,[borrowernumber,approvernumber] > # is only one weight. Beware of divide by zeros. > # This will add a field to the tag called "stratum" containing the calculated > # value. >+ >+=head2 stratify_tags >+ >+Missing POD for stratify_tags. >+ >+=cut >+ > sub stratify_tags { > my ( $strata, $tags ) = @_; > return ( 0, 0 ) if !@$tags; >diff --git a/C4/Templates.pm b/C4/Templates.pm >index 40ae0b7c193..ca9f50c1aa2 100644 >--- a/C4/Templates.pm >+++ b/C4/Templates.pm >@@ -43,6 +43,12 @@ __PACKAGE__->mk_accessors(qw( theme activethemes preferredtheme lang filename ht > > Template::Filters->use_rfc3986(); > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $interface = shift; >@@ -99,6 +105,12 @@ sub new { > > } > >+=head2 output >+ >+Missing POD for output. >+ >+=cut >+ > sub output { > my $self = shift; > my $vars = shift; >@@ -137,6 +149,13 @@ sub output { > } > > # wrapper method to allow easier transition from HTML template pro to Template Toolkit >+ >+=head2 param >+ >+Missing POD for param. >+ >+=cut >+ > sub param { > my $self = shift; > while (@_) { >@@ -219,6 +238,12 @@ sub badtemplatecheck { > } > } > >+=head2 gettemplate >+ >+Missing POD for gettemplate. >+ >+=cut >+ > sub gettemplate { > my ( $tmplbase, $interface, $query ) = @_; > my ( $htdocs, $theme, $lang, $filename ) = _get_template_file( $tmplbase, $interface, $query ); >@@ -286,6 +311,12 @@ sub themelanguage { > return availablethemes( $htdocs, $tmpl, $interface, $lang ); > } > >+=head2 availablethemes >+ >+Missing POD for availablethemes. >+ >+=cut >+ > sub availablethemes { > my ( $htdocs, $tmpl, $interface, $lang ) = @_; > >@@ -329,6 +360,12 @@ sub availablethemes { > } > } > >+=head2 setlanguagecookie >+ >+Missing POD for setlanguagecookie. >+ >+=cut >+ > sub setlanguagecookie { > my ( $query, $language, $uri ) = @_; > >diff --git a/C4/TmplToken.pm b/C4/TmplToken.pm >index 9823bb37cbd..1067b1b321f 100644 >--- a/C4/TmplToken.pm >+++ b/C4/TmplToken.pm >@@ -31,6 +31,12 @@ This is a class representing a token scanned from an HTML::Template .tmpl file. > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $this = shift; > my $class = ref($this) || $this; >@@ -40,31 +46,67 @@ sub new { > return $self; > } > >+=head2 string >+ >+Missing POD for string. >+ >+=cut >+ > sub string { > my $this = shift; > return $this->{'_string'}; > } > >+=head2 type >+ >+Missing POD for type. >+ >+=cut >+ > sub type { > my $this = shift; > return $this->{'_type'}; > } > >+=head2 pathname >+ >+Missing POD for pathname. >+ >+=cut >+ > sub pathname { > my $this = shift; > return $this->{'_path'}; > } > >+=head2 line_number >+ >+Missing POD for line_number. >+ >+=cut >+ > sub line_number { > my $this = shift; > return $this->{'_lc'}; > } > >+=head2 attributes >+ >+Missing POD for attributes. >+ >+=cut >+ > sub attributes { > my $this = shift; > return $this->{'_attr'}; > } > >+=head2 set_attributes >+ >+Missing POD for set_attributes. >+ >+=cut >+ > sub set_attributes { > my $this = shift; > $this->{'_attr'} = ref $_[0] eq 'HASH' ? $_[0] : \@_; >@@ -72,12 +114,26 @@ sub set_attributes { > } > > # only meaningful for TEXT_PARAMETRIZED tokens >+ >+=head2 children >+ >+Missing POD for children. >+ >+=cut >+ > sub children { > my $this = shift; > return $this->{'_kids'}; > } > > # only meaningful for TEXT_PARAMETRIZED tokens >+ >+=head2 set_children >+ >+Missing POD for set_children. >+ >+=cut >+ > sub set_children { > my $this = shift; > $this->{'_kids'} = ref $_[0] eq 'ARRAY' ? $_[0] : \@_; >@@ -86,6 +142,13 @@ sub set_children { > > # only meaningful for TEXT_PARAMETRIZED tokens > # FIXME: DIRECTIVE is not necessarily TMPL_VAR !! >+ >+=head2 parameters_and_fields >+ >+Missing POD for parameters_and_fields. >+ >+=cut >+ > sub parameters_and_fields { > my $this = shift; > return map { >@@ -97,34 +160,73 @@ sub parameters_and_fields { > } > > # only meaningful for TEXT_PARAMETRIZED tokens >+ >+=head2 anchors >+ >+Missing POD for anchors. >+ >+=cut >+ > sub anchors { > my $this = shift; > return map { $_->type == C4::TmplTokenType::TAG && $_->string =~ /^<a\b/is ? $_ : () } @{ $this->{'_kids'} }; > } > > # only meaningful for TEXT_PARAMETRIZED tokens >+ >+=head2 form >+ >+Missing POD for form. >+ >+=cut >+ > sub form { > my $this = shift; > return $this->{'_form'}; > } > > # only meaningful for TEXT_PARAMETRIZED tokens >+ >+=head2 set_form >+ >+Missing POD for set_form. >+ >+=cut >+ > sub set_form { > my $this = shift; > $this->{'_form'} = $_[0]; > return $this; > } > >+=head2 has_js_data >+ >+Missing POD for has_js_data. >+ >+=cut >+ > sub has_js_data { > my $this = shift; > return defined $this->{'_js_data'} && ref( $this->{'_js_data'} ) eq 'ARRAY'; > } > >+=head2 js_data >+ >+Missing POD for js_data. >+ >+=cut >+ > sub js_data { > my $this = shift; > return $this->{'_js_data'}; > } > >+=head2 set_js_data >+ >+Missing POD for set_js_data. >+ >+=cut >+ > sub set_js_data { > my $this = shift; > $this->{'_js_data'} = $_[0]; >@@ -133,26 +235,56 @@ sub set_js_data { > > # predefined tests > >+=head2 tag_p >+ >+Missing POD for tag_p. >+ >+=cut >+ > sub tag_p { > my $this = shift; > return $this->type == C4::TmplTokenType::TAG; > } > >+=head2 cdata_p >+ >+Missing POD for cdata_p. >+ >+=cut >+ > sub cdata_p { > my $this = shift; > return $this->type == C4::TmplTokenType::CDATA; > } > >+=head2 text_p >+ >+Missing POD for text_p. >+ >+=cut >+ > sub text_p { > my $this = shift; > return $this->type == C4::TmplTokenType::TEXT; > } > >+=head2 text_parametrized_p >+ >+Missing POD for text_parametrized_p. >+ >+=cut >+ > sub text_parametrized_p { > my $this = shift; > return $this->type == C4::TmplTokenType::TEXT_PARAMETRIZED; > } > >+=head2 directive_p >+ >+Missing POD for directive_p. >+ >+=cut >+ > sub directive_p { > my $this = shift; > return $this->type == C4::TmplTokenType::DIRECTIVE; >diff --git a/C4/TmplTokenType.pm b/C4/TmplTokenType.pm >index 4b7a16a016d..18fa6c4ef3a 100644 >--- a/C4/TmplTokenType.pm >+++ b/C4/TmplTokenType.pm >@@ -77,6 +77,12 @@ BEGIN { > $_unknown = &$new( 7, 'UNKNOWN' ); > } > >+=head2 to_string >+ >+Missing POD for to_string. >+ >+=cut >+ > sub to_string { > my $this = shift; > return $this->{'name'}; >diff --git a/C4/UsageStats.pm b/C4/UsageStats.pm >index a8b1b934f23..226ec900ec5 100644 >--- a/C4/UsageStats.pm >+++ b/C4/UsageStats.pm >@@ -38,6 +38,12 @@ their structure,... > > =cut > >+=head2 BuildReport >+ >+Missing POD for BuildReport. >+ >+=cut >+ > sub BuildReport { > my $report; > my @libraries; >diff --git a/C4/Utils/DataTables/TablesSettings.pm b/C4/Utils/DataTables/TablesSettings.pm >index 21a1abb2f1c..1c3ab24ba11 100644 >--- a/C4/Utils/DataTables/TablesSettings.pm >+++ b/C4/Utils/DataTables/TablesSettings.pm >@@ -17,6 +17,12 @@ C4::Utils::DataTables::TablesSettings - Koha DataTables Settings > > =cut > >+=head2 get_yaml >+ >+Missing POD for get_yaml. >+ >+=cut >+ > sub get_yaml { > my $yml_path = C4::Context->config('intranetdir') . '/admin/columns_settings.yml'; > my $cache = Koha::Caches->get_instance(); >@@ -32,6 +38,12 @@ sub get_yaml { > return $yaml; > } > >+=head2 get_columns >+ >+Missing POD for get_columns. >+ >+=cut >+ > sub get_columns { > my ( $module, $page, $tablename ) = @_; > >@@ -118,6 +130,12 @@ sub get_table_settings { > }; > } > >+=head2 get_modules >+ >+Missing POD for get_modules. >+ >+=cut >+ > sub get_modules { > my $list = get_yaml; > >@@ -136,6 +154,12 @@ sub get_modules { > return $list->{modules}; > } > >+=head2 update_columns >+ >+Missing POD for update_columns. >+ >+=cut >+ > sub update_columns { > my ($params) = @_; > my $columns = $params->{columns}; >diff --git a/C4/XISBN.pm b/C4/XISBN.pm >index 343616355eb..73e8ef1c44e 100644 >--- a/C4/XISBN.pm >+++ b/C4/XISBN.pm >@@ -82,6 +82,12 @@ sub _get_biblio_from_xisbn { > > =cut > >+=head2 get_xisbns >+ >+Missing POD for get_xisbns. >+ >+=cut >+ > sub get_xisbns { > my ( $isbn, $biblionumber ) = @_; > my ( $response, $thing_response, $syndetics_response, $errors ); >diff --git a/C4/XSLT.pm b/C4/XSLT.pm >index 6f7d686d6b3..422a02b1ea7 100644 >--- a/C4/XSLT.pm >+++ b/C4/XSLT.pm >@@ -85,6 +85,12 @@ sub _get_best_default_xslt_filename { > return $xslfilename; > } > >+=head2 get_xslt_sysprefs >+ >+Missing POD for get_xslt_sysprefs. >+ >+=cut >+ > sub get_xslt_sysprefs { > my $sysxml = "<sysprefs>\n"; > foreach my $syspref ( >@@ -118,6 +124,12 @@ sub get_xslt_sysprefs { > return $sysxml; > } > >+=head2 get_xsl_filename >+ >+Missing POD for get_xsl_filename. >+ >+=cut >+ > sub get_xsl_filename { > my ($xslsyspref) = @_; > >diff --git a/Koha/Account.pm b/Koha/Account.pm >index bae36450781..729ded1eee3 100644 >--- a/Koha/Account.pm >+++ b/Koha/Account.pm >@@ -45,6 +45,12 @@ Koha::Accounts - Module for managing payments and fees for patrons > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $params ) = @_; > >diff --git a/Koha/Account/Lines.pm b/Koha/Account/Lines.pm >index 0a9d0eea2e0..7c0b0319e99 100644 >--- a/Koha/Account/Lines.pm >+++ b/Koha/Account/Lines.pm >@@ -148,6 +148,12 @@ sub _type { > return 'Accountline'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Account::Line'; > } >diff --git a/Koha/Acquisition/Currencies.pm b/Koha/Acquisition/Currencies.pm >index 76969af6c9e..7a82c01446c 100644 >--- a/Koha/Acquisition/Currencies.pm >+++ b/Koha/Acquisition/Currencies.pm >@@ -50,6 +50,12 @@ sub _type { > return 'Currency'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Acquisition::Currency'; > } >diff --git a/Koha/Acquisition/Invoice/Adjustments.pm b/Koha/Acquisition/Invoice/Adjustments.pm >index fc524e6375b..304e7f026f5 100644 >--- a/Koha/Acquisition/Invoice/Adjustments.pm >+++ b/Koha/Acquisition/Invoice/Adjustments.pm >@@ -42,6 +42,12 @@ sub _type { > return 'AqinvoiceAdjustment'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Acquisition::Invoice::Adjustment'; > } >diff --git a/Koha/AdditionalFieldValues.pm b/Koha/AdditionalFieldValues.pm >index b40a7e345e0..b52abb6a3cf 100644 >--- a/Koha/AdditionalFieldValues.pm >+++ b/Koha/AdditionalFieldValues.pm >@@ -12,7 +12,14 @@ use Koha::AdditionalFieldValue; > > use base 'Koha::Objects'; > >-sub _type { 'AdditionalFieldValue' } >+sub _type { 'AdditionalFieldValue' } >+ >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { 'Koha::AdditionalFieldValue' } > > =head1 AUTHOR >diff --git a/Koha/AdditionalFields.pm b/Koha/AdditionalFields.pm >index dbb16375e25..0e8a2beb643 100644 >--- a/Koha/AdditionalFields.pm >+++ b/Koha/AdditionalFields.pm >@@ -12,7 +12,14 @@ use base 'Koha::Objects'; > > use Koha::AdditionalField; > >-sub _type { 'AdditionalField' } >+sub _type { 'AdditionalField' } >+ >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { 'Koha::AdditionalField' } > > =head1 AUTHOR >diff --git a/Koha/ArticleRequests.pm b/Koha/ArticleRequests.pm >index 48abf179608..cc18c1b6100 100644 >--- a/Koha/ArticleRequests.pm >+++ b/Koha/ArticleRequests.pm >@@ -166,6 +166,12 @@ sub _type { > return 'ArticleRequest'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::ArticleRequest'; > } >diff --git a/Koha/AuthorisedValueCategories.pm b/Koha/AuthorisedValueCategories.pm >index cf3fb3fea0d..6ed49b1892d 100644 >--- a/Koha/AuthorisedValueCategories.pm >+++ b/Koha/AuthorisedValueCategories.pm >@@ -61,6 +61,12 @@ sub _type { > return 'AuthorisedValueCategory'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::AuthorisedValueCategory'; > } >diff --git a/Koha/AuthorisedValues.pm b/Koha/AuthorisedValues.pm >index 02562e0ddd5..934b1e6a7b3 100644 >--- a/Koha/AuthorisedValues.pm >+++ b/Koha/AuthorisedValues.pm >@@ -37,6 +37,12 @@ Koha::AuthorisedValues - Koha Authorised value Object set class > > =cut > >+=head2 search_by_marc_field >+ >+Missing POD for search_by_marc_field. >+ >+=cut >+ > sub search_by_marc_field { > my ( $self, $params ) = @_; > my $frameworkcode = $params->{frameworkcode} || ''; >@@ -58,6 +64,12 @@ sub search_by_marc_field { > ); > } > >+=head2 search_by_koha_field >+ >+Missing POD for search_by_koha_field. >+ >+=cut >+ > sub search_by_koha_field { > my ( $self, $params ) = @_; > my $frameworkcode = $params->{frameworkcode} || ''; >@@ -80,6 +92,12 @@ sub search_by_koha_field { > ); > } > >+=head2 find_by_koha_field >+ >+Missing POD for find_by_koha_field. >+ >+=cut >+ > sub find_by_koha_field { > my ( $self, $params ) = @_; > my $frameworkcode = $params->{frameworkcode} || ''; >@@ -100,6 +118,12 @@ sub find_by_koha_field { > return $av->count ? $av->next : undef; > } > >+=head2 get_description_by_koha_field >+ >+Missing POD for get_description_by_koha_field. >+ >+=cut >+ > sub get_description_by_koha_field { > my ( $self, $params ) = @_; > my $frameworkcode = $params->{frameworkcode} || ''; >@@ -123,6 +147,12 @@ sub get_description_by_koha_field { > return $descriptions; > } > >+=head2 get_descriptions_by_koha_field >+ >+Missing POD for get_descriptions_by_koha_field. >+ >+=cut >+ > sub get_descriptions_by_koha_field { > my ( $self, $params ) = @_; > my $frameworkcode = $params->{frameworkcode} || ''; >@@ -177,6 +207,12 @@ sub get_descriptions_by_marc_field { > return $descriptions; > } > >+=head2 categories >+ >+Missing POD for categories. >+ >+=cut >+ > sub categories { > my ($self) = @_; > my $rs = $self->_resultset->search( >@@ -198,6 +234,12 @@ sub _type { > return 'AuthorisedValue'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::AuthorisedValue'; > } >diff --git a/Koha/Authority/Type.pm b/Koha/Authority/Type.pm >index 7ec7283db51..b9fa5770d9e 100644 >--- a/Koha/Authority/Type.pm >+++ b/Koha/Authority/Type.pm >@@ -31,6 +31,12 @@ Koha::Authority::Type - Koha Authority Type Object class > > =cut > >+=head2 auth_tag_structures >+ >+Missing POD for auth_tag_structures. >+ >+=cut >+ > sub auth_tag_structures { > my ($self) = @_; > return $self->_result->auth_tag_structures; >diff --git a/Koha/Authority/Types.pm b/Koha/Authority/Types.pm >index 3ebae36a156..55702efada3 100644 >--- a/Koha/Authority/Types.pm >+++ b/Koha/Authority/Types.pm >@@ -41,6 +41,12 @@ sub _type { > return 'AuthType'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Authority::Type'; > } >diff --git a/Koha/Biblio/Metadatas.pm b/Koha/Biblio/Metadatas.pm >index 24dee9ea2cc..8f782840185 100644 >--- a/Koha/Biblio/Metadatas.pm >+++ b/Koha/Biblio/Metadatas.pm >@@ -41,6 +41,12 @@ sub _type { > return 'BiblioMetadata'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Biblio::Metadata'; > } >diff --git a/Koha/BiblioFrameworks.pm b/Koha/BiblioFrameworks.pm >index a66958955e5..f673537396d 100644 >--- a/Koha/BiblioFrameworks.pm >+++ b/Koha/BiblioFrameworks.pm >@@ -41,6 +41,12 @@ sub _type { > return 'BiblioFramework'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::BiblioFramework'; > } >diff --git a/Koha/Biblioitems.pm b/Koha/Biblioitems.pm >index 5f342b38140..59742ab14d0 100644 >--- a/Koha/Biblioitems.pm >+++ b/Koha/Biblioitems.pm >@@ -41,6 +41,12 @@ sub _type { > return 'Biblioitem'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Biblioitem'; > } >diff --git a/Koha/Cache.pm b/Koha/Cache.pm >index 709b6a5e36b..311743847ee 100644 >--- a/Koha/Cache.pm >+++ b/Koha/Cache.pm >@@ -330,6 +330,12 @@ sub flush_all { > return $self->{$cache}->clear(); > } > >+=head2 flush_L1_cache >+ >+Missing POD for flush_L1_cache. >+ >+=cut >+ > sub flush_L1_cache { > my ($self) = @_; > delete $L1_cache{ $self->{namespace} }; >@@ -448,6 +454,12 @@ sub create_scalar { > return \$scalar; > } > >+=head2 create_hash >+ >+Missing POD for create_hash. >+ >+=cut >+ > sub create_hash { > my ( $self, $args ) = @_; > >diff --git a/Koha/Cities.pm b/Koha/Cities.pm >index ea47b865723..c6945c954ad 100644 >--- a/Koha/Cities.pm >+++ b/Koha/Cities.pm >@@ -41,6 +41,12 @@ sub _type { > return 'City'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::City'; > } >diff --git a/Koha/Club.pm b/Koha/Club.pm >index 799531cc1cd..fcc0ba50e13 100644 >--- a/Koha/Club.pm >+++ b/Koha/Club.pm >@@ -77,6 +77,12 @@ sub club_enrollments { > > =cut > >+=head2 branch >+ >+Missing POD for branch. >+ >+=cut >+ > sub branch { > my ($self) = @_; > >diff --git a/Koha/Club/Enrollment/Fields.pm b/Koha/Club/Enrollment/Fields.pm >index 706e36128aa..450227fbc08 100644 >--- a/Koha/Club/Enrollment/Fields.pm >+++ b/Koha/Club/Enrollment/Fields.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubEnrollmentField'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Enrollment::Field'; > } >diff --git a/Koha/Club/Enrollments.pm b/Koha/Club/Enrollments.pm >index bf4bff3743b..1691f42c58e 100644 >--- a/Koha/Club/Enrollments.pm >+++ b/Koha/Club/Enrollments.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubEnrollment'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Enrollment'; > } >diff --git a/Koha/Club/Fields.pm b/Koha/Club/Fields.pm >index 94d130e5390..d6a20f2ece7 100644 >--- a/Koha/Club/Fields.pm >+++ b/Koha/Club/Fields.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubField'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Field'; > } >diff --git a/Koha/Club/Template.pm b/Koha/Club/Template.pm >index 23333e6e019..6bdfd9fa07e 100644 >--- a/Koha/Club/Template.pm >+++ b/Koha/Club/Template.pm >@@ -50,6 +50,12 @@ sub club_template_fields { > return Koha::Club::Template::Fields->search( { club_template_id => $self->id() } ); > } > >+=head2 club_template_enrollment_fields >+ >+Missing POD for club_template_enrollment_fields. >+ >+=cut >+ > sub club_template_enrollment_fields { > my ($self) = @_; > >diff --git a/Koha/Club/Template/EnrollmentFields.pm b/Koha/Club/Template/EnrollmentFields.pm >index 8087c5e1141..506a209adb4 100644 >--- a/Koha/Club/Template/EnrollmentFields.pm >+++ b/Koha/Club/Template/EnrollmentFields.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubTemplateEnrollmentField'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Template::EnrollmentField'; > } >diff --git a/Koha/Club/Template/Fields.pm b/Koha/Club/Template/Fields.pm >index 103ce0921d0..76226b7f5f0 100644 >--- a/Koha/Club/Template/Fields.pm >+++ b/Koha/Club/Template/Fields.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubTemplateField'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Template::Field'; > } >diff --git a/Koha/Club/Templates.pm b/Koha/Club/Templates.pm >index 8197f212c8c..ea3109b4429 100644 >--- a/Koha/Club/Templates.pm >+++ b/Koha/Club/Templates.pm >@@ -45,6 +45,12 @@ sub _type { > return 'ClubTemplate'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club::Template'; > } >diff --git a/Koha/Clubs.pm b/Koha/Clubs.pm >index 85e7ee5a804..959a8b369f4 100644 >--- a/Koha/Clubs.pm >+++ b/Koha/Clubs.pm >@@ -104,6 +104,12 @@ sub _type { > return 'Club'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Club'; > } >diff --git a/Koha/Config/SysPrefs.pm b/Koha/Config/SysPrefs.pm >index 9b043f8da78..a879e5e6f7e 100644 >--- a/Koha/Config/SysPrefs.pm >+++ b/Koha/Config/SysPrefs.pm >@@ -43,6 +43,12 @@ sub _type { > return 'Systempreference'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Config::SysPref'; > } >diff --git a/Koha/CoverImages.pm b/Koha/CoverImages.pm >index 10dfa59ee33..774d36ada86 100644 >--- a/Koha/CoverImages.pm >+++ b/Koha/CoverImages.pm >@@ -62,6 +62,12 @@ sub _type { > return 'CoverImage'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::CoverImage'; > } >diff --git a/Koha/CsvProfiles.pm b/Koha/CsvProfiles.pm >index 8af2ae4b1ce..d559cf4c283 100644 >--- a/Koha/CsvProfiles.pm >+++ b/Koha/CsvProfiles.pm >@@ -41,6 +41,12 @@ sub _type { > return 'ExportFormat'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::CsvProfile'; > } >diff --git a/Koha/DateUtils.pm b/Koha/DateUtils.pm >index ce484ee962e..0c4098c1333 100644 >--- a/Koha/DateUtils.pm >+++ b/Koha/DateUtils.pm >@@ -57,6 +57,12 @@ to the system preferences. If the date string is empty DateTime->now is returned > > =cut > >+=head2 dt_from_string >+ >+Missing POD for dt_from_string. >+ >+=cut >+ > sub dt_from_string { > my ( $date_string, $date_format, $tz ) = @_; > >diff --git a/Koha/ERM/EHoldings/Package/Agreements.pm b/Koha/ERM/EHoldings/Package/Agreements.pm >index 9a3214b4924..48c2ffd0db5 100644 >--- a/Koha/ERM/EHoldings/Package/Agreements.pm >+++ b/Koha/ERM/EHoldings/Package/Agreements.pm >@@ -41,6 +41,12 @@ sub _type { > return 'ErmEholdingsPackagesAgreement'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::ERM::EHoldings::Package::Agreement'; > } >diff --git a/Koha/ERM/EHoldings/Packages.pm b/Koha/ERM/EHoldings/Packages.pm >index 79ace6cd286..69e515c4436 100644 >--- a/Koha/ERM/EHoldings/Packages.pm >+++ b/Koha/ERM/EHoldings/Packages.pm >@@ -41,6 +41,12 @@ sub _type { > return 'ErmEholdingsPackage'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::ERM::EHoldings::Package'; > } >diff --git a/Koha/ERM/EHoldings/Resources.pm b/Koha/ERM/EHoldings/Resources.pm >index cf3959d300e..83364734ae8 100644 >--- a/Koha/ERM/EHoldings/Resources.pm >+++ b/Koha/ERM/EHoldings/Resources.pm >@@ -41,6 +41,12 @@ sub _type { > return 'ErmEholdingsResource'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::ERM::EHoldings::Resource'; > } >diff --git a/Koha/ERM/EHoldings/Titles.pm b/Koha/ERM/EHoldings/Titles.pm >index d50332f516f..013144dc2e4 100644 >--- a/Koha/ERM/EHoldings/Titles.pm >+++ b/Koha/ERM/EHoldings/Titles.pm >@@ -41,6 +41,12 @@ sub _type { > return 'ErmEholdingsTitle'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::ERM::EHoldings::Title'; > } >diff --git a/Koha/Edifact/Line.pm b/Koha/Edifact/Line.pm >index 9d2c823737d..6ef6227adc8 100644 >--- a/Koha/Edifact/Line.pm >+++ b/Koha/Edifact/Line.pm >@@ -176,6 +176,12 @@ sub _format_item_description { > return $bibrec; > } > >+=head2 marc_record >+ >+Missing POD for marc_record. >+ >+=cut >+ > sub marc_record { > my $self = shift; > my $b = $self->{item_description}; >@@ -270,6 +276,12 @@ sub marc_record { > return $bib; > } > >+=head2 corpcon >+ >+Missing POD for corpcon. >+ >+=cut >+ > sub corpcon { > my ( $self, $level ) = @_; > my $test_these = { >@@ -303,6 +315,12 @@ sub corpcon { > return new_field( $self->{item_description}, [ $tag, $i1, $i2 ], @spec ); > } > >+=head2 new_field >+ >+Missing POD for new_field. >+ >+=cut >+ > sub new_field { > my ( $b, $tag_ind, @sfd_elem ) = @_; > my @sfd; >@@ -322,21 +340,45 @@ sub new_field { > > # Accessor methods to line data > >+=head2 item_number_id >+ >+Missing POD for item_number_id. >+ >+=cut >+ > sub item_number_id { > my $self = shift; > return $self->{item_number_id}; > } > >+=head2 line_item_number >+ >+Missing POD for line_item_number. >+ >+=cut >+ > sub line_item_number { > my $self = shift; > return $self->{line_item_number}; > } > >+=head2 additional_product_ids >+ >+Missing POD for additional_product_ids. >+ >+=cut >+ > sub additional_product_ids { > my $self = shift; > return $self->{additional_product_ids}; > } > >+=head2 action_notification >+ >+Missing POD for action_notification. >+ >+=cut >+ > sub action_notification { > my $self = shift; > my $a = $self->{action_notification}; >@@ -346,71 +388,155 @@ sub action_notification { > return $a; > } > >+=head2 item_description >+ >+Missing POD for item_description. >+ >+=cut >+ > sub item_description { > my $self = shift; > return $self->{item_description}; > } > >+=head2 monetary_amount >+ >+Missing POD for monetary_amount. >+ >+=cut >+ > sub monetary_amount { > my $self = shift; > return $self->{monetary_amount}; > } > >+=head2 quantity >+ >+Missing POD for quantity. >+ >+=cut >+ > sub quantity { > my $self = shift; > return $self->{quantity}; > } > >+=head2 quantity_invoiced >+ >+Missing POD for quantity_invoiced. >+ >+=cut >+ > sub quantity_invoiced { > my $self = shift; > return $self->{quantity_invoiced}; > } > >+=head2 price >+ >+Missing POD for price. >+ >+=cut >+ > sub price { > my $self = shift; > return $self->{price}; > } > >+=head2 reference >+ >+Missing POD for reference. >+ >+=cut >+ > sub reference { > my $self = shift; > return $self->{reference}; > } > >+=head2 orderline_reference_number >+ >+Missing POD for orderline_reference_number. >+ >+=cut >+ > sub orderline_reference_number { > my $self = shift; > return $self->{orderline_reference_number}; > } > >+=head2 ordernumber >+ >+Missing POD for ordernumber. >+ >+=cut >+ > sub ordernumber { > my $self = shift; > return $self->{ordernumber}; > } > >+=head2 free_text >+ >+Missing POD for free_text. >+ >+=cut >+ > sub free_text { > my $self = shift; > return $self->{free_text}; > } > >+=head2 coded_free_text >+ >+Missing POD for coded_free_text. >+ >+=cut >+ > sub coded_free_text { > my $self = shift; > return $self->{coded_free_text}->{code}; > } > >+=head2 internal_notes >+ >+Missing POD for internal_notes. >+ >+=cut >+ > sub internal_notes { > my $self = shift; > return $self->{internal_notes}; > } > >+=head2 coded_internal_note >+ >+Missing POD for coded_internal_note. >+ >+=cut >+ > sub coded_internal_note { > my $self = shift; > return $self->{coded_internal_note}->{code}; > } > >+=head2 orderline_free_text >+ >+Missing POD for orderline_free_text. >+ >+=cut >+ > sub orderline_free_text { > my $self = shift; > return $self->{orderline_free_text}; > } > >+=head2 coded_orderline_text >+ >+Missing POD for coded_orderline_text. >+ >+=cut >+ > sub coded_orderline_text { > my $self = shift; > my $code = $self->{coded_orderline_text}->{code}; >@@ -427,11 +553,23 @@ sub coded_orderline_text { > return $txt; > } > >+=head2 substitute_free_text >+ >+Missing POD for substitute_free_text. >+ >+=cut >+ > sub substitute_free_text { > my $self = shift; > return $self->{substitute_free_text}; > } > >+=head2 coded_substitute_text >+ >+Missing POD for coded_substitute_text. >+ >+=cut >+ > sub coded_substitute_text { > my $self = shift; > return $self->{coded_substitute_text}->{code}; >@@ -440,6 +578,13 @@ sub coded_substitute_text { > # This will take a standard code as returned > # by (orderline|substitue)-free_text (FTX seg LIN) > # and expand it using EditEUR code list 8B >+ >+=head2 translate_8B >+ >+Missing POD for translate_8B. >+ >+=cut >+ > sub translate_8B { > my ($code) = @_; > >@@ -487,6 +632,12 @@ sub translate_8B { > } > } > >+=head2 translate_12B >+ >+Missing POD for translate_12B. >+ >+=cut >+ > sub translate_12B { > my ($code) = @_; > >@@ -542,6 +693,12 @@ sub translate_12B { > > # item_desription_fields accessors > >+=head2 title >+ >+Missing POD for title. >+ >+=cut >+ > sub title { > my $self = shift; > my $titlefield = q{050}; >@@ -551,6 +708,12 @@ sub title { > return; > } > >+=head2 author >+ >+Missing POD for author. >+ >+=cut >+ > sub author { > my $self = shift; > my $field = q{010}; >@@ -566,6 +729,12 @@ sub author { > return; > } > >+=head2 series >+ >+Missing POD for series. >+ >+=cut >+ > sub series { > my $self = shift; > my $field = q{190}; >@@ -575,6 +744,12 @@ sub series { > return; > } > >+=head2 publisher >+ >+Missing POD for publisher. >+ >+=cut >+ > sub publisher { > my $self = shift; > my $field = q{120}; >@@ -584,6 +759,12 @@ sub publisher { > return; > } > >+=head2 publication_date >+ >+Missing POD for publication_date. >+ >+=cut >+ > sub publication_date { > my $self = shift; > my $field = q{170}; >@@ -593,6 +774,12 @@ sub publication_date { > return; > } > >+=head2 dewey_class >+ >+Missing POD for dewey_class. >+ >+=cut >+ > sub dewey_class { > my $self = shift; > my $field = q{230}; >@@ -602,6 +789,12 @@ sub dewey_class { > return; > } > >+=head2 lc_class >+ >+Missing POD for lc_class. >+ >+=cut >+ > sub lc_class { > my $self = shift; > my $field = q{240}; >@@ -611,6 +804,12 @@ sub lc_class { > return; > } > >+=head2 girfield >+ >+Missing POD for girfield. >+ >+=cut >+ > sub girfield { > my ( $self, $field, $occ ) = @_; > if ( $self->number_of_girs ) { >@@ -626,6 +825,12 @@ sub girfield { > } > } > >+=head2 number_of_girs >+ >+Missing POD for number_of_girs. >+ >+=cut >+ > sub number_of_girs { > my $self = shift; > if ( $self->{GIR} ) { >@@ -638,6 +843,12 @@ sub number_of_girs { > } > } > >+=head2 extract_gir >+ >+Missing POD for extract_gir. >+ >+=cut >+ > sub extract_gir { > my $s = shift; > my %qmap = ( >@@ -684,6 +895,13 @@ sub extract_gir { > } > > # mainly for invoice processing amt_ will derive from MOA price_ from PRI and tax_ from TAX/MOA pairsn >+ >+=head2 moa_amt >+ >+Missing POD for moa_amt. >+ >+=cut >+ > sub moa_amt { > my ( $self, $qualifier ) = @_; > foreach my $s ( @{ $self->{segs} } ) { >@@ -694,6 +912,12 @@ sub moa_amt { > return; > } > >+=head2 moa_multiple_amt >+ >+Missing POD for moa_multiple_amt. >+ >+=cut >+ > sub moa_multiple_amt { > my ( $self, $qualifier ) = @_; > >@@ -712,39 +936,84 @@ sub moa_multiple_amt { > return; > } > >+=head2 amt_discount >+ >+Missing POD for amt_discount. >+ >+=cut >+ > sub amt_discount { > my $self = shift; > return $self->moa_amt('52'); > } > >+=head2 amt_prepayment >+ >+Missing POD for amt_prepayment. >+ >+=cut >+ > sub amt_prepayment { > my $self = shift; > return $self->moa_amt('113'); > } > > # total including allowances & tax >+ >+=head2 amt_total >+ >+Missing POD for amt_total. >+ >+=cut >+ > sub amt_total { > my $self = shift; > return $self->moa_amt('128'); > } > > # Used to give price in currency other than that given in price >+ >+=head2 amt_unitprice >+ >+Missing POD for amt_unitprice. >+ >+=cut >+ > sub amt_unitprice { > my $self = shift; > return $self->moa_amt('146'); > } > > # item amount after allowances excluding tax >+ >+=head2 amt_lineitem >+ >+Missing POD for amt_lineitem. >+ >+=cut >+ > sub amt_lineitem { > my $self = shift; > return $self->moa_amt('203'); > } > >+=head2 amt_taxoncharge >+ >+Missing POD for amt_taxoncharge. >+ >+=cut >+ > sub amt_taxoncharge { > my $self = shift; > return $self->moa_multiple_amt('124'); > } > >+=head2 pri_price >+ >+Missing POD for pri_price. >+ >+=cut >+ > sub pri_price { > my ( $self, $price_qualifier ) = @_; > >@@ -774,6 +1043,13 @@ sub pri_price { > } > > # unit price that will be chaged excl tax >+ >+=head2 price_net >+ >+Missing POD for price_net. >+ >+=cut >+ > sub price_net { > my $self = shift; > my $p = $self->pri_price('AAA'); >@@ -784,6 +1060,13 @@ sub price_net { > } > > # unit price excluding all allowances, charges and taxes >+ >+=head2 price_gross >+ >+Missing POD for price_gross. >+ >+=cut >+ > sub price_gross { > my $self = shift; > my $p = $self->pri_price('AAB'); >@@ -794,6 +1077,13 @@ sub price_gross { > } > > # information price incl tax excluding allowances, charges >+ >+=head2 price_info >+ >+Missing POD for price_info. >+ >+=cut >+ > sub price_info { > my $self = shift; > my $p = $self->pri_price('AAE'); >@@ -804,6 +1094,13 @@ sub price_info { > } > > # information price incl tax,allowances, charges >+ >+=head2 price_info_inclusive >+ >+Missing POD for price_info_inclusive. >+ >+=cut >+ > sub price_info_inclusive { > my $self = shift; > my $p = $self->pri_price('AAF'); >@@ -813,11 +1110,23 @@ sub price_info_inclusive { > return; > } > >+=head2 tax >+ >+Missing POD for tax. >+ >+=cut >+ > sub tax { > my $self = shift; > return $self->moa_amt('124'); > } > >+=head2 tax_rate >+ >+Missing POD for tax_rate. >+ >+=cut >+ > sub tax_rate { > my $self = shift; > my $tr = {}; >@@ -843,6 +1152,12 @@ sub tax_rate { > return; > } > >+=head2 availability_date >+ >+Missing POD for availability_date. >+ >+=cut >+ > sub availability_date { > my $self = shift; > if ( exists $self->{availability_date} ) { >diff --git a/Koha/Edifact/Message.pm b/Koha/Edifact/Message.pm >index 5c096ded41e..af2a4397838 100644 >--- a/Koha/Edifact/Message.pm >+++ b/Koha/Edifact/Message.pm >@@ -46,11 +46,23 @@ sub new { > return $self; > } > >+=head2 message_refno >+ >+Missing POD for message_refno. >+ >+=cut >+ > sub message_refno { > my $self = shift; > return $self->{message_reference_number}; > } > >+=head2 function >+ >+Missing POD for function. >+ >+=cut >+ > sub function { > my $self = shift; > my $msg_function = $self->{bgm}->elem(2); >@@ -62,26 +74,56 @@ sub function { > return; > } > >+=head2 message_reference_number >+ >+Missing POD for message_reference_number. >+ >+=cut >+ > sub message_reference_number { > my $self = shift; > return $self->{header}->elem(0); > } > >+=head2 message_type >+ >+Missing POD for message_type. >+ >+=cut >+ > sub message_type { > my $self = shift; > return $self->{header}->elem( 1, 0 ); > } > >+=head2 message_code >+ >+Missing POD for message_code. >+ >+=cut >+ > sub message_code { > my $self = shift; > return $self->{bgm}->elem( 0, 0 ); > } > >+=head2 docmsg_number >+ >+Missing POD for docmsg_number. >+ >+=cut >+ > sub docmsg_number { > my $self = shift; > return $self->{bgm}->elem(1); > } > >+=head2 message_date >+ >+Missing POD for message_date. >+ >+=cut >+ > sub message_date { > my $self = shift; > >@@ -94,6 +136,12 @@ sub message_date { > return; # this should not happen > } > >+=head2 tax_point_date >+ >+Missing POD for tax_point_date. >+ >+=cut >+ > sub tax_point_date { > my $self = shift; > if ( $self->message_type eq 'INVOIC' ) { >@@ -106,6 +154,12 @@ sub tax_point_date { > return; > } > >+=head2 expiry_date >+ >+Missing POD for expiry_date. >+ >+=cut >+ > sub expiry_date { > my $self = shift; > if ( $self->message_type eq 'QUOTES' ) { >@@ -118,6 +172,12 @@ sub expiry_date { > return; > } > >+=head2 shipment_charge >+ >+Missing POD for shipment_charge. >+ >+=cut >+ > sub shipment_charge { > my $self = shift; > >@@ -150,6 +210,12 @@ sub shipment_charge { > > # return NAD fields > >+=head2 buyer_ean >+ >+Missing POD for buyer_ean. >+ >+=cut >+ > sub buyer_ean { > my $self = shift; > foreach my $s ( @{ $self->{datasegs} } ) { >@@ -166,6 +232,12 @@ sub buyer_ean { > return; > } > >+=head2 supplier_ean >+ >+Missing POD for supplier_ean. >+ >+=cut >+ > sub supplier_ean { > my $self = shift; > foreach my $s ( @{ $self->{datasegs} } ) { >@@ -183,6 +255,12 @@ sub supplier_ean { > > } > >+=head2 lineitems >+ >+Missing POD for lineitems. >+ >+=cut >+ > sub lineitems { > my $self = shift; > if ( $self->{quotation_lines} ) { >diff --git a/Koha/Edifact/Transport.pm b/Koha/Edifact/Transport.pm >index 2eb973f4dc1..082382935f9 100644 >--- a/Koha/Edifact/Transport.pm >+++ b/Koha/Edifact/Transport.pm >@@ -88,6 +88,12 @@ sub upload_messages { > return; > } > >+=head2 file_download >+ >+Missing POD for file_download. >+ >+=cut >+ > sub file_download { > my $self = shift; > my @downloaded_files; >@@ -345,6 +351,12 @@ sub sftp_upload { > return; > } > >+=head2 file_upload >+ >+Missing POD for file_upload. >+ >+=cut >+ > sub file_upload { > my ( $self, @messages ) = @_; > my $dir = $self->{account}->upload_directory; >@@ -406,6 +418,12 @@ sub _get_file_ext { > return 'XXXX'; # non matching type > } > >+=head2 message_hash >+ >+Missing POD for message_hash. >+ >+=cut >+ > sub message_hash { > my $self = shift; > my $msg = { >diff --git a/Koha/ExternalContent.pm b/Koha/ExternalContent.pm >index 46cae690a0d..de86f8608f6 100644 >--- a/Koha/ExternalContent.pm >+++ b/Koha/ExternalContent.pm >@@ -48,10 +48,22 @@ common methods for getting Koha patron. > > =cut > >+=head2 agent_string >+ >+Missing POD for agent_string. >+ >+=cut >+ > sub agent_string { > return 'Koha/' . Koha::version(); > } > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $params = shift || {}; >@@ -67,6 +79,12 @@ sub _koha_session { > return C4::Auth::get_session($session_id); > } > >+=head2 get_from_koha_session >+ >+Missing POD for get_from_koha_session. >+ >+=cut >+ > sub get_from_koha_session { > my $self = shift; > my $key = shift or croak "No key"; >@@ -74,6 +92,12 @@ sub get_from_koha_session { > return $session->param($key); > } > >+=head2 set_in_koha_session >+ >+Missing POD for set_in_koha_session. >+ >+=cut >+ > sub set_in_koha_session { > my $self = shift; > my $key = shift or croak "No key"; >@@ -82,6 +106,12 @@ sub set_in_koha_session { > return $session->param( $key, $value ); > } > >+=head2 koha_patron >+ >+Missing POD for koha_patron. >+ >+=cut >+ > sub koha_patron { > my $self = shift; > >diff --git a/Koha/ExternalContent/OverDrive.pm b/Koha/ExternalContent/OverDrive.pm >index bc956a71c88..ce6d8ef7d22 100644 >--- a/Koha/ExternalContent/OverDrive.pm >+++ b/Koha/ExternalContent/OverDrive.pm >@@ -47,6 +47,12 @@ Takes "OverDrive*" Koha preferences > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift; > my $params = shift || {}; >@@ -181,6 +187,12 @@ sub _return_url { > > use constant RETURN_PAGE_SESSION_KEY => "overdrive.return_page"; > >+=head2 get_return_page_from_koha_session >+ >+Missing POD for get_return_page_from_koha_session. >+ >+=cut >+ > sub get_return_page_from_koha_session { > my $self = shift; > my $return_page = $self->get_from_koha_session(RETURN_PAGE_SESSION_KEY) || ""; >@@ -188,6 +200,12 @@ sub get_return_page_from_koha_session { > return $return_page; > } > >+=head2 set_return_page_in_koha_session >+ >+Missing POD for set_return_page_in_koha_session. >+ >+=cut >+ > sub set_return_page_in_koha_session { > my $self = shift; > my $return_page = shift || ""; >@@ -198,6 +216,12 @@ sub set_return_page_in_koha_session { > use constant ACCESS_TOKEN_SESSION_KEY => "overdrive.access_token"; > my $ACCESS_TOKEN_DELIMITER = ":"; > >+=head2 get_token_from_koha_session >+ >+Missing POD for get_token_from_koha_session. >+ >+=cut >+ > sub get_token_from_koha_session { > my $self = shift; > my ( $token, $token_type ) = split $ACCESS_TOKEN_DELIMITER, >@@ -206,6 +230,12 @@ sub get_token_from_koha_session { > return ( $token, $token_type ); > } > >+=head2 set_token_in_koha_session >+ >+Missing POD for set_token_in_koha_session. >+ >+=cut >+ > sub set_token_in_koha_session { > my $self = shift; > my $token = shift || ""; >@@ -256,6 +286,12 @@ sub is_logged_in { > return $token; > } > >+=head2 auth_by_saved_token >+ >+Missing POD for auth_by_saved_token. >+ >+=cut >+ > sub auth_by_saved_token { > my $self = shift; > >diff --git a/Koha/Item/Transfer/Limits.pm b/Koha/Item/Transfer/Limits.pm >index b6c815e9dbc..2482b3ca7bc 100644 >--- a/Koha/Item/Transfer/Limits.pm >+++ b/Koha/Item/Transfer/Limits.pm >@@ -42,6 +42,12 @@ sub _type { > return 'BranchTransferLimit'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Item::Transfer::Limit'; > } >diff --git a/Koha/Item/Transfers.pm b/Koha/Item/Transfers.pm >index 8fb354dff9a..2192006f06d 100644 >--- a/Koha/Item/Transfers.pm >+++ b/Koha/Item/Transfers.pm >@@ -58,6 +58,12 @@ sub _type { > return 'Branchtransfer'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Item::Transfer'; > } >diff --git a/Koha/Items.pm b/Koha/Items.pm >index e353cf5b171..edf66466ff0 100644 >--- a/Koha/Items.pm >+++ b/Koha/Items.pm >@@ -461,6 +461,12 @@ sub batch_update { > return ( { modified_itemnumbers => \@modified_itemnumbers, modified_fields => $modified_fields }, $self ); > } > >+=head2 apply_regex >+ >+Missing POD for apply_regex. >+ >+=cut >+ > sub apply_regex { > > # FIXME Should be moved outside of Koha::Items >diff --git a/Koha/Libraries.pm b/Koha/Libraries.pm >index 9e50c49bd00..a4fadd33d85 100644 >--- a/Koha/Libraries.pm >+++ b/Koha/Libraries.pm >@@ -71,6 +71,12 @@ sub _type { > return 'Branch'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Library'; > } >diff --git a/Koha/Linktracker.pm b/Koha/Linktracker.pm >index d4519e396d4..1c58d3f4384 100644 >--- a/Koha/Linktracker.pm >+++ b/Koha/Linktracker.pm >@@ -37,6 +37,12 @@ use base qw(Class::Accessor); > > __PACKAGE__->mk_accessors(qw( trackingmethod )); > >+=head2 trackclick >+ >+Missing POD for trackclick. >+ >+=cut >+ > sub trackclick { > my ( $self, $linkinfo ) = @_; > my $dbh = C4::Context->dbh(); >diff --git a/Koha/MetadataRecord/Authority.pm b/Koha/MetadataRecord/Authority.pm >index 397a4665582..91b563cd404 100644 >--- a/Koha/MetadataRecord/Authority.pm >+++ b/Koha/MetadataRecord/Authority.pm >@@ -162,6 +162,12 @@ sub get_from_breeding { > return $self; > } > >+=head2 authorized_heading >+ >+Missing POD for authorized_heading. >+ >+=cut >+ > sub authorized_heading { > my ($self) = @_; > if ( $self->schema =~ m/marc/ ) { >diff --git a/Koha/Middleware/SetEnv.pm b/Koha/Middleware/SetEnv.pm >index b67d0783784..e3dfb4cba52 100644 >--- a/Koha/Middleware/SetEnv.pm >+++ b/Koha/Middleware/SetEnv.pm >@@ -73,6 +73,12 @@ my $allowed_setenvs = qr/^( > TZ > )\ /x; > >+=head2 call >+ >+Missing POD for call. >+ >+=cut >+ > sub call { > my ( $self, $env ) = @_; > my $req = Plack::Request->new($env); >diff --git a/Koha/Notice/Messages.pm b/Koha/Notice/Messages.pm >index e503ef47223..7e185848c75 100644 >--- a/Koha/Notice/Messages.pm >+++ b/Koha/Notice/Messages.pm >@@ -61,6 +61,12 @@ sub _type { > return 'MessageQueue'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Notice::Message'; > } >diff --git a/Koha/Notice/Templates.pm b/Koha/Notice/Templates.pm >index 53ab3be01c1..cf3fb741f6c 100644 >--- a/Koha/Notice/Templates.pm >+++ b/Koha/Notice/Templates.pm >@@ -89,6 +89,12 @@ sub _type { > return 'Letter'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Notice::Template'; > } >diff --git a/Koha/OAI/Server/ListBase.pm b/Koha/OAI/Server/ListBase.pm >index 3e71313ea06..49d5d0ca45a 100644 >--- a/Koha/OAI/Server/ListBase.pm >+++ b/Koha/OAI/Server/ListBase.pm >@@ -35,6 +35,12 @@ use Koha::OAI::Server::DeletedRecord; > use C4::OAI::Sets qw( GetOAISetBySpec GetOAISetsBiblio ); > use MARC::File::XML; > >+=head2 GetRecords >+ >+Missing POD for GetRecords. >+ >+=cut >+ > sub GetRecords { > my ( $class, $self, $repository, $metadata, %args ) = @_; > >diff --git a/Koha/OAI/Server/Repository.pm b/Koha/OAI/Server/Repository.pm >index ae320a9624e..527b44c66a4 100644 >--- a/Koha/OAI/Server/Repository.pm >+++ b/Koha/OAI/Server/Repository.pm >@@ -102,6 +102,12 @@ Note the 'include_items' parameter which is the only mean to return item-level i > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, %args ) = @_; > my $self = $class->SUPER::new(%args); >@@ -167,6 +173,12 @@ sub DESTROY { > if $self->{mysql_orig_tz}; > } > >+=head2 get_biblio_marcxml >+ >+Missing POD for get_biblio_marcxml. >+ >+=cut >+ > sub get_biblio_marcxml { > my ( $self, $biblionumber, $format ) = @_; > my $with_items = 0; >@@ -210,6 +222,12 @@ sub get_biblio_marcxml { > return ( $record ? $record->as_xml_record( C4::Context->preference('marcflavour') ) : undef, $decoding_error ); > } > >+=head2 stylesheet >+ >+Missing POD for stylesheet. >+ >+=cut >+ > sub stylesheet { > my ( $self, $format ) = @_; > my $xsl_file = >@@ -222,6 +240,12 @@ sub stylesheet { > return $xsl_file; > } > >+=head2 items_included >+ >+Missing POD for items_included. >+ >+=cut >+ > sub items_included { > my ( $self, $format ) = @_; > >diff --git a/Koha/Patron.pm b/Koha/Patron.pm >index ecdf96dc108..2130d19f788 100644 >--- a/Koha/Patron.pm >+++ b/Koha/Patron.pm >@@ -148,6 +148,12 @@ Could be moved to Koha::Object if need to be reused > > =cut > >+=head2 trim_whitespaces >+ >+Missing POD for trim_whitespaces. >+ >+=cut >+ > sub trim_whitespaces { > my ($self) = @_; > >diff --git a/Koha/Patron/Attribute/Types.pm b/Koha/Patron/Attribute/Types.pm >index 6c6eb13866d..e131e73db73 100644 >--- a/Koha/Patron/Attribute/Types.pm >+++ b/Koha/Patron/Attribute/Types.pm >@@ -39,6 +39,12 @@ sub _type { > return 'BorrowerAttributeType'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::Attribute::Type'; > } >diff --git a/Koha/Patron/Attributes.pm b/Koha/Patron/Attributes.pm >index b53181b7519..3aacf11dcd4 100644 >--- a/Koha/Patron/Attributes.pm >+++ b/Koha/Patron/Attributes.pm >@@ -129,6 +129,12 @@ sub _type { > return 'BorrowerAttribute'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::Attribute'; > } >diff --git a/Koha/Patron/Category.pm b/Koha/Patron/Category.pm >index 0e7f01a7d4b..ab4973b544a 100644 >--- a/Koha/Patron/Category.pm >+++ b/Koha/Patron/Category.pm >@@ -145,6 +145,12 @@ sub default_messaging { > return \@messaging; > } > >+=head2 get_expiry_date >+ >+Missing POD for get_expiry_date. >+ >+=cut >+ > sub get_expiry_date { > my ( $self, $date ) = @_; > if ( $self->enrolmentperiod ) { >diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm >index 24456d6d405..178b0f7badf 100644 >--- a/Koha/Patron/Files.pm >+++ b/Koha/Patron/Files.pm >@@ -32,6 +32,12 @@ Koha::Patron::Files - Module for managing patron files > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, %args ) = @_; > my $self = bless( {}, $class ); >diff --git a/Koha/Patron/HouseboundProfiles.pm b/Koha/Patron/HouseboundProfiles.pm >index 19bafc74e19..ab1504a1aac 100644 >--- a/Koha/Patron/HouseboundProfiles.pm >+++ b/Koha/Patron/HouseboundProfiles.pm >@@ -48,6 +48,12 @@ sub _type { > return 'HouseboundProfile'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::HouseboundProfile'; > } >diff --git a/Koha/Patron/HouseboundRoles.pm b/Koha/Patron/HouseboundRoles.pm >index 0b2be60a240..2104d96876a 100644 >--- a/Koha/Patron/HouseboundRoles.pm >+++ b/Koha/Patron/HouseboundRoles.pm >@@ -44,6 +44,12 @@ sub _type { > return 'HouseboundRole'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::HouseboundRole'; > } >diff --git a/Koha/Patron/HouseboundVisits.pm b/Koha/Patron/HouseboundVisits.pm >index 6184546728e..3c6166c21a7 100644 >--- a/Koha/Patron/HouseboundVisits.pm >+++ b/Koha/Patron/HouseboundVisits.pm >@@ -89,6 +89,12 @@ sub _type { > return 'HouseboundVisit'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::HouseboundVisit'; > } >diff --git a/Koha/Patron/Images.pm b/Koha/Patron/Images.pm >index cf9ddc6d01b..95842596b8a 100644 >--- a/Koha/Patron/Images.pm >+++ b/Koha/Patron/Images.pm >@@ -41,6 +41,12 @@ sub _type { > return 'Patronimage'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Patron::Image'; > } >diff --git a/Koha/Plugins/Base.pm b/Koha/Plugins/Base.pm >index 75c628e53d7..d5a1844b773 100644 >--- a/Koha/Plugins/Base.pm >+++ b/Koha/Plugins/Base.pm >@@ -37,6 +37,12 @@ Koha::Plugins::Base - Base Module for plugins > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $args ) = @_; > >@@ -191,6 +197,12 @@ sub get_template { > return $template; > } > >+=head2 get_metadata >+ >+Missing POD for get_metadata. >+ >+=cut >+ > sub get_metadata { > my ( $self, $args ) = @_; > >diff --git a/Koha/REST/Plugin/Auth/IdP.pm b/Koha/REST/Plugin/Auth/IdP.pm >index c3448d540f5..4492490e8bf 100644 >--- a/Koha/REST/Plugin/Auth/IdP.pm >+++ b/Koha/REST/Plugin/Auth/IdP.pm >@@ -39,6 +39,12 @@ Koha::REST::Plugin::Auth::IdP > > =cut > >+=head2 register >+ >+Missing POD for register. >+ >+=cut >+ > sub register { > my ( $self, $app ) = @_; > >diff --git a/Koha/REST/Plugin/Exceptions.pm b/Koha/REST/Plugin/Exceptions.pm >index d6a0e37f565..56b89034299 100644 >--- a/Koha/REST/Plugin/Exceptions.pm >+++ b/Koha/REST/Plugin/Exceptions.pm >@@ -47,6 +47,12 @@ can centralize the behaviour control (e.g. production vs. development environmet > > =cut > >+=head2 register >+ >+Missing POD for register. >+ >+=cut >+ > sub register { > my ( $self, $app ) = @_; > >diff --git a/Koha/REST/Plugin/Objects.pm b/Koha/REST/Plugin/Objects.pm >index 2e6ae84b3fa..486509abe71 100644 >--- a/Koha/REST/Plugin/Objects.pm >+++ b/Koha/REST/Plugin/Objects.pm >@@ -31,6 +31,12 @@ Koha::REST::Plugin::Objects > > =cut > >+=head2 register >+ >+Missing POD for register. >+ >+=cut >+ > sub register { > my ( $self, $app ) = @_; > >diff --git a/Koha/REST/Plugin/Responses.pm b/Koha/REST/Plugin/Responses.pm >index 3b39ac13797..249a6836230 100644 >--- a/Koha/REST/Plugin/Responses.pm >+++ b/Koha/REST/Plugin/Responses.pm >@@ -29,6 +29,12 @@ Koha::REST::Plugin::Responses > > =cut > >+=head2 register >+ >+Missing POD for register. >+ >+=cut >+ > sub register { > my ( $self, $app ) = @_; > >diff --git a/Koha/Ratings.pm b/Koha/Ratings.pm >index 3a7001a1393..f713876a8c0 100644 >--- a/Koha/Ratings.pm >+++ b/Koha/Ratings.pm >@@ -60,6 +60,12 @@ sub _type { > return 'Rating'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Rating'; > } >diff --git a/Koha/Reviews.pm b/Koha/Reviews.pm >index d1461e0b8e6..619a6713ef5 100644 >--- a/Koha/Reviews.pm >+++ b/Koha/Reviews.pm >@@ -65,6 +65,12 @@ sub _type { > return 'Review'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Review'; > } >diff --git a/Koha/Schema/Result/AccountCreditType.pm b/Koha/Schema/Result/AccountCreditType.pm >index d246ebad990..d5d01e5c90a 100644 >--- a/Koha/Schema/Result/AccountCreditType.pm >+++ b/Koha/Schema/Result/AccountCreditType.pm >@@ -134,9 +134,21 @@ __PACKAGE__->add_columns( > '+archived' => { is_boolean => 1 } > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Account::CreditTypes'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Account::CreditType'; > } >diff --git a/Koha/Schema/Result/AccountDebitType.pm b/Koha/Schema/Result/AccountDebitType.pm >index 7b00d5883dd..a69e0ca8ebb 100644 >--- a/Koha/Schema/Result/AccountDebitType.pm >+++ b/Koha/Schema/Result/AccountDebitType.pm >@@ -164,9 +164,21 @@ __PACKAGE__->add_columns( > "+restricts_checkouts" => { is_boolean => 1 } > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Account::DebitTypes'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Account::DebitType'; > } >diff --git a/Koha/Schema/Result/AccountOffset.pm b/Koha/Schema/Result/AccountOffset.pm >index 1b1e4bea094..996fff65775 100644 >--- a/Koha/Schema/Result/AccountOffset.pm >+++ b/Koha/Schema/Result/AccountOffset.pm >@@ -162,9 +162,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-06-21 15:27:32 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:zCeE/SWvdz898zlfcvfRGg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Account::Offset'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Account::Offsets'; > } >diff --git a/Koha/Schema/Result/Accountline.pm b/Koha/Schema/Result/Accountline.pm >index 1903a552ec6..b3058d8f539 100644 >--- a/Koha/Schema/Result/Accountline.pm >+++ b/Koha/Schema/Result/Accountline.pm >@@ -504,9 +504,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Account::Lines'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Account::Line'; > } >diff --git a/Koha/Schema/Result/Aqbasket.pm b/Koha/Schema/Result/Aqbasket.pm >index eb2ce481b79..ddc2395b7e9 100644 >--- a/Koha/Schema/Result/Aqbasket.pm >+++ b/Koha/Schema/Result/Aqbasket.pm >@@ -379,9 +379,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Basket'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Baskets'; > } >diff --git a/Koha/Schema/Result/Aqbasketgroup.pm b/Koha/Schema/Result/Aqbasketgroup.pm >index 2511c2df1a7..488b8f05f5f 100644 >--- a/Koha/Schema/Result/Aqbasketgroup.pm >+++ b/Koha/Schema/Result/Aqbasketgroup.pm >@@ -142,9 +142,21 @@ __PACKAGE__->add_columns( > '+closed' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::BasketGroup'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::BasketGroups'; > } >diff --git a/Koha/Schema/Result/Aqbookseller.pm b/Koha/Schema/Result/Aqbookseller.pm >index d005ea6ef13..5cf9e93b247 100644 >--- a/Koha/Schema/Result/Aqbookseller.pm >+++ b/Koha/Schema/Result/Aqbookseller.pm >@@ -550,9 +550,21 @@ __PACKAGE__->add_columns( > '+invoiceincgst' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Bookseller'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Booksellers'; > } >diff --git a/Koha/Schema/Result/AqbooksellerAlias.pm b/Koha/Schema/Result/AqbooksellerAlias.pm >index eb329ccdbc3..0648cc312dc 100644 >--- a/Koha/Schema/Result/AqbooksellerAlias.pm >+++ b/Koha/Schema/Result/AqbooksellerAlias.pm >@@ -91,9 +91,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:19:43 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FmrIDHGkX2A+3aFZV2FZCA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Bookseller::Alias'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Bookseller::Aliases'; > } >diff --git a/Koha/Schema/Result/AqbooksellerInterface.pm b/Koha/Schema/Result/AqbooksellerInterface.pm >index 737d01fcc8e..aa86b12fa77 100644 >--- a/Koha/Schema/Result/AqbooksellerInterface.pm >+++ b/Koha/Schema/Result/AqbooksellerInterface.pm >@@ -147,9 +147,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-05 12:54:39 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NOk5VsJp5v7nTw39qxrEbw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Bookseller::Interface'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Bookseller::Interfaces'; > } >diff --git a/Koha/Schema/Result/AqbooksellerIssue.pm b/Koha/Schema/Result/AqbooksellerIssue.pm >index 81856441320..142962adaa5 100644 >--- a/Koha/Schema/Result/AqbooksellerIssue.pm >+++ b/Koha/Schema/Result/AqbooksellerIssue.pm >@@ -120,9 +120,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-30 09:54:35 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ljn21/DFV5QvS5z3kDrBwQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Bookseller::Issue'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Bookseller::Issues'; > } >diff --git a/Koha/Schema/Result/Aqbudget.pm b/Koha/Schema/Result/Aqbudget.pm >index d6fbf61f276..f6dd4989926 100644 >--- a/Koha/Schema/Result/Aqbudget.pm >+++ b/Koha/Schema/Result/Aqbudget.pm >@@ -369,9 +369,21 @@ __PACKAGE__->belongs_to( > { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Fund'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Funds'; > } >diff --git a/Koha/Schema/Result/Aqbudgetperiod.pm b/Koha/Schema/Result/Aqbudgetperiod.pm >index 211cb9504f5..5155c89ed4a 100644 >--- a/Koha/Schema/Result/Aqbudgetperiod.pm >+++ b/Koha/Schema/Result/Aqbudgetperiod.pm >@@ -149,9 +149,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:F/ipbU/Wrqy3pDInlmLOTw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Budget'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Budgets'; > } >diff --git a/Koha/Schema/Result/Aqcontact.pm b/Koha/Schema/Result/Aqcontact.pm >index 295ee9187e1..8a0e531d5fc 100644 >--- a/Koha/Schema/Result/Aqcontact.pm >+++ b/Koha/Schema/Result/Aqcontact.pm >@@ -206,9 +206,21 @@ __PACKAGE__->add_columns( > '+serialsprimary' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Bookseller::Contact'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Bookseller::Contacts'; > } >diff --git a/Koha/Schema/Result/Aqinvoice.pm b/Koha/Schema/Result/Aqinvoice.pm >index 89fea491df3..7a1a98d1ce1 100644 >--- a/Koha/Schema/Result/Aqinvoice.pm >+++ b/Koha/Schema/Result/Aqinvoice.pm >@@ -236,9 +236,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Invoice'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Invoices'; > } >diff --git a/Koha/Schema/Result/AqinvoiceAdjustment.pm b/Koha/Schema/Result/AqinvoiceAdjustment.pm >index 2977f2a4ced..bb04653ca2f 100644 >--- a/Koha/Schema/Result/AqinvoiceAdjustment.pm >+++ b/Koha/Schema/Result/AqinvoiceAdjustment.pm >@@ -166,9 +166,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:gy1vtvgPtZgUtWhwPWqlWA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Invoice::Adjustment'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Invoice::Adjustments'; > } >diff --git a/Koha/Schema/Result/Aqorder.pm b/Koha/Schema/Result/Aqorder.pm >index 2adab1a8b48..19259e8d046 100644 >--- a/Koha/Schema/Result/Aqorder.pm >+++ b/Koha/Schema/Result/Aqorder.pm >@@ -900,10 +900,22 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Orders'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Order'; > } >diff --git a/Koha/Schema/Result/AqordersClaim.pm b/Koha/Schema/Result/AqordersClaim.pm >index 10ca443eabd..9439e77e5f4 100644 >--- a/Koha/Schema/Result/AqordersClaim.pm >+++ b/Koha/Schema/Result/AqordersClaim.pm >@@ -97,9 +97,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4/GYhhysSbrh67vIq67xZw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Order::Claim'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Order::Claims'; > } >diff --git a/Koha/Schema/Result/AuthHeader.pm b/Koha/Schema/Result/AuthHeader.pm >index 253c2a53e5c..4a0ffef0964 100644 >--- a/Koha/Schema/Result/AuthHeader.pm >+++ b/Koha/Schema/Result/AuthHeader.pm >@@ -142,9 +142,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07051 @ 2025-02-21 09:20:19 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:JkZ9DrxanaiZVU6d8pzpSA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Authority'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Authorities'; > } >diff --git a/Koha/Schema/Result/AuthSubfieldStructure.pm b/Koha/Schema/Result/AuthSubfieldStructure.pm >index c11f55672b3..9336338e6df 100644 >--- a/Koha/Schema/Result/AuthSubfieldStructure.pm >+++ b/Koha/Schema/Result/AuthSubfieldStructure.pm >@@ -220,9 +220,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:c6rPINoF/ZP4YzXU1VR+UQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Authority::Subfield'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Authority::Subfields'; > } >diff --git a/Koha/Schema/Result/AuthTagStructure.pm b/Koha/Schema/Result/AuthTagStructure.pm >index b05ea261c0f..e6ce296fcdc 100644 >--- a/Koha/Schema/Result/AuthTagStructure.pm >+++ b/Koha/Schema/Result/AuthTagStructure.pm >@@ -130,9 +130,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Nfz88qZS9IgnDbZWcPwlvw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Authority::Tag'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Authority::Tags'; > } >diff --git a/Koha/Schema/Result/AuthType.pm b/Koha/Schema/Result/AuthType.pm >index ce57ceb5ee2..8649241ee7e 100644 >--- a/Koha/Schema/Result/AuthType.pm >+++ b/Koha/Schema/Result/AuthType.pm >@@ -110,9 +110,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:USULz4Y8i0JC73GxcxJ+BA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Authority::Type'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Authority::Types'; > } >diff --git a/Koha/Schema/Result/AuthorisedValueCategory.pm b/Koha/Schema/Result/AuthorisedValueCategory.pm >index 7906113cf6d..e2a40326afe 100644 >--- a/Koha/Schema/Result/AuthorisedValueCategory.pm >+++ b/Koha/Schema/Result/AuthorisedValueCategory.pm >@@ -121,6 +121,12 @@ __PACKAGE__->add_columns( > '+is_integer_only' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::AuthorisedValueCategories'; > } >diff --git a/Koha/Schema/Result/BiblioMetadata.pm b/Koha/Schema/Result/BiblioMetadata.pm >index e176f8b8cc2..6be9f5ed660 100644 >--- a/Koha/Schema/Result/BiblioMetadata.pm >+++ b/Koha/Schema/Result/BiblioMetadata.pm >@@ -165,9 +165,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-08-01 15:57:42 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ar73Sy86oYHspxu0udvnoA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Biblio::Metadata'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Biblio::Metadatas'; > } >diff --git a/Koha/Schema/Result/Borrower.pm b/Koha/Schema/Result/Borrower.pm >index e6ec93cbb32..8090e931d96 100644 >--- a/Koha/Schema/Result/Borrower.pm >+++ b/Koha/Schema/Result/Borrower.pm >@@ -2230,9 +2230,21 @@ __PACKAGE__->add_columns( > '+protected' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patrons'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron'; > } >diff --git a/Koha/Schema/Result/BorrowerAttribute.pm b/Koha/Schema/Result/BorrowerAttribute.pm >index df7acd8f38a..817b6e3eca1 100644 >--- a/Koha/Schema/Result/BorrowerAttribute.pm >+++ b/Koha/Schema/Result/BorrowerAttribute.pm >@@ -132,9 +132,21 @@ __PACKAGE__->belongs_to( > { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },); > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Attribute'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Attributes'; > } >diff --git a/Koha/Schema/Result/BorrowerAttributeType.pm b/Koha/Schema/Result/BorrowerAttributeType.pm >index a83ac83262d..bcab51d48d8 100644 >--- a/Koha/Schema/Result/BorrowerAttributeType.pm >+++ b/Koha/Schema/Result/BorrowerAttributeType.pm >@@ -285,9 +285,21 @@ __PACKAGE__->add_columns( > '+is_date' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Attribute::Type'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Attribute::Types'; > } >diff --git a/Koha/Schema/Result/BorrowerDebarment.pm b/Koha/Schema/Result/BorrowerDebarment.pm >index da2b1413284..003571c2b49 100644 >--- a/Koha/Schema/Result/BorrowerDebarment.pm >+++ b/Koha/Schema/Result/BorrowerDebarment.pm >@@ -165,9 +165,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-19 17:53:04 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:kDCkA7XrjKXlrFG5lk8Lgg > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Restrictions'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Restriction'; > } >diff --git a/Koha/Schema/Result/BorrowerMessagePreference.pm b/Koha/Schema/Result/BorrowerMessagePreference.pm >index 70d5fff24f0..1d8590ff5eb 100644 >--- a/Koha/Schema/Result/BorrowerMessagePreference.pm >+++ b/Koha/Schema/Result/BorrowerMessagePreference.pm >@@ -194,9 +194,21 @@ __PACKAGE__->many_to_many( > > # You can replace this text with custom content, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::MessagePreference'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::MessagePreferences'; > } >diff --git a/Koha/Schema/Result/BorrowerMessageTransportPreference.pm b/Koha/Schema/Result/BorrowerMessageTransportPreference.pm >index c13a760a7d9..f72230e7359 100644 >--- a/Koha/Schema/Result/BorrowerMessageTransportPreference.pm >+++ b/Koha/Schema/Result/BorrowerMessageTransportPreference.pm >@@ -113,9 +113,21 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom content, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::MessagePreference::Transport::Preference'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::MessagePreference::Transport::Preferences'; > } >diff --git a/Koha/Schema/Result/BorrowerModification.pm b/Koha/Schema/Result/BorrowerModification.pm >index faa4f7cc1da..a075db0f2a6 100644 >--- a/Koha/Schema/Result/BorrowerModification.pm >+++ b/Koha/Schema/Result/BorrowerModification.pm >@@ -658,9 +658,21 @@ __PACKAGE__->set_primary_key("verification_token", "borrowernumber"); > # Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-11-11 11:07:06 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QOqDkQ+8LuTY6qYrPhsQWw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Modification'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Modifications'; > } >diff --git a/Koha/Schema/Result/BorrowerRelationship.pm b/Koha/Schema/Result/BorrowerRelationship.pm >index 3d0852da129..02522cecbf6 100644 >--- a/Koha/Schema/Result/BorrowerRelationship.pm >+++ b/Koha/Schema/Result/BorrowerRelationship.pm >@@ -124,9 +124,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-09-19 18:12:00 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3/qVK3qiXZPvE2y5D4WaRg > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Relationships'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Relationship'; > } >diff --git a/Koha/Schema/Result/Branch.pm b/Koha/Schema/Result/Branch.pm >index aeed6695d55..aafc60a988c 100644 >--- a/Koha/Schema/Result/Branch.pm >+++ b/Koha/Schema/Result/Branch.pm >@@ -1020,9 +1020,21 @@ __PACKAGE__->add_columns( > '+public' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Library'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Libraries'; > } >diff --git a/Koha/Schema/Result/BranchTransferLimit.pm b/Koha/Schema/Result/BranchTransferLimit.pm >index 92ad181fbad..976dae544fc 100644 >--- a/Koha/Schema/Result/BranchTransferLimit.pm >+++ b/Koha/Schema/Result/BranchTransferLimit.pm >@@ -102,9 +102,21 @@ __PACKAGE__->set_primary_key("limitId"); > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-09-26 16:15:09 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:wKere4dleMGrs9RO59qx9Q > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Item::Transfer::Limit'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Item::Transfer::Limits'; > } >diff --git a/Koha/Schema/Result/BranchesOverdrive.pm b/Koha/Schema/Result/BranchesOverdrive.pm >index 6a430415b99..276303a6864 100644 >--- a/Koha/Schema/Result/BranchesOverdrive.pm >+++ b/Koha/Schema/Result/BranchesOverdrive.pm >@@ -78,9 +78,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-09 10:38:33 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fEZWWtF4MRDwupI/27laDw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Library::OverDriveInfo'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Library::OverDriveInfos'; > } >diff --git a/Koha/Schema/Result/Branchtransfer.pm b/Koha/Schema/Result/Branchtransfer.pm >index 87b1cdcfb6d..d61389c0f7a 100644 >--- a/Koha/Schema/Result/Branchtransfer.pm >+++ b/Koha/Schema/Result/Branchtransfer.pm >@@ -278,9 +278,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 16:48:17 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BkhtfptiDqKKSv/hmCQy3w > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Item::Transfer'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Item::Transfers'; > } >diff --git a/Koha/Schema/Result/CashRegister.pm b/Koha/Schema/Result/CashRegister.pm >index 339142a51c2..ac6f51c104f 100644 >--- a/Koha/Schema/Result/CashRegister.pm >+++ b/Koha/Schema/Result/CashRegister.pm >@@ -182,10 +182,22 @@ __PACKAGE__->add_columns( > '+branch_default' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Cash::Registers'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Cash::Register'; > } >diff --git a/Koha/Schema/Result/CashRegisterAction.pm b/Koha/Schema/Result/CashRegisterAction.pm >index 41c63d7e3c1..76a0db22533 100644 >--- a/Koha/Schema/Result/CashRegisterAction.pm >+++ b/Koha/Schema/Result/CashRegisterAction.pm >@@ -140,10 +140,22 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Fo6979mQEueJrDQw38Bh0w > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Cash::Register::Actions'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Cash::Register::Action'; > } >diff --git a/Koha/Schema/Result/Category.pm b/Koha/Schema/Result/Category.pm >index 25a0ba373a4..063ed67a24e 100644 >--- a/Koha/Schema/Result/Category.pm >+++ b/Koha/Schema/Result/Category.pm >@@ -405,10 +405,22 @@ __PACKAGE__->has_many( > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Category'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Categories'; > } >diff --git a/Koha/Schema/Result/CheckoutRenewal.pm b/Koha/Schema/Result/CheckoutRenewal.pm >index 569fcfc0494..f8e758f6e8e 100644 >--- a/Koha/Schema/Result/CheckoutRenewal.pm >+++ b/Koha/Schema/Result/CheckoutRenewal.pm >@@ -185,9 +185,21 @@ __PACKAGE__->add_columns( > '+seen' => { is_boolean => 1 } > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Checkouts::Renewals'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Checkouts::Renewal'; > } >diff --git a/Koha/Schema/Result/CirculationRule.pm b/Koha/Schema/Result/CirculationRule.pm >index 80e6cc2d5af..50dc93c5ad5 100644 >--- a/Koha/Schema/Result/CirculationRule.pm >+++ b/Koha/Schema/Result/CirculationRule.pm >@@ -180,10 +180,22 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-10-05 14:29:17 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QHMqvrtX0ohJe70PHUYZ0Q > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::CirculationRules'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::CirculationRule'; > } >diff --git a/Koha/Schema/Result/City.pm b/Koha/Schema/Result/City.pm >index 5855dd21ece..e3fa5a3682f 100644 >--- a/Koha/Schema/Result/City.pm >+++ b/Koha/Schema/Result/City.pm >@@ -95,6 +95,12 @@ __PACKAGE__->set_primary_key("cityid"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PF0pi+dNbKvxVDSpvHgB1Q > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Cities'; > } >diff --git a/Koha/Schema/Result/ClubEnrollment.pm b/Koha/Schema/Result/ClubEnrollment.pm >index f428a5da6f9..de463b9ba1b 100644 >--- a/Koha/Schema/Result/ClubEnrollment.pm >+++ b/Koha/Schema/Result/ClubEnrollment.pm >@@ -194,9 +194,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-12 17:59:47 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Ih/HQM4KIRDZ0ESXVR9FwA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Enrollment'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Enrollments'; > } >diff --git a/Koha/Schema/Result/ClubEnrollmentField.pm b/Koha/Schema/Result/ClubEnrollmentField.pm >index 9067bcb8b23..9e8217a08a1 100644 >--- a/Koha/Schema/Result/ClubEnrollmentField.pm >+++ b/Koha/Schema/Result/ClubEnrollmentField.pm >@@ -107,9 +107,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:tr8INu1+veRdWkRT4BgBOQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Enrollment::Field'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Enrollment::Fields'; > } >diff --git a/Koha/Schema/Result/ClubField.pm b/Koha/Schema/Result/ClubField.pm >index e430702f630..2c640754340 100644 >--- a/Koha/Schema/Result/ClubField.pm >+++ b/Koha/Schema/Result/ClubField.pm >@@ -107,9 +107,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2ySSLrl8GXRXJ38AWg6kng > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Field'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Fields'; > } >diff --git a/Koha/Schema/Result/ClubHold.pm b/Koha/Schema/Result/ClubHold.pm >index 04759bf4123..6bc456c583e 100644 >--- a/Koha/Schema/Result/ClubHold.pm >+++ b/Koha/Schema/Result/ClubHold.pm >@@ -165,9 +165,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dGkIYbw9CX0LqiH8XmuGAQ > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Holds'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Hold'; > } >diff --git a/Koha/Schema/Result/ClubHoldsToPatronHold.pm b/Koha/Schema/Result/ClubHoldsToPatronHold.pm >index fd1aa86298f..47868c1c93b 100644 >--- a/Koha/Schema/Result/ClubHoldsToPatronHold.pm >+++ b/Koha/Schema/Result/ClubHoldsToPatronHold.pm >@@ -163,9 +163,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-08-04 18:43:05 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:KjJWzFhPwQk0SZqrHQ4Alw > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Hold::PatronHolds'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Hold::PatronHold'; > } >diff --git a/Koha/Schema/Result/ClubTemplate.pm b/Koha/Schema/Result/ClubTemplate.pm >index bbc5f49a5f9..907b186da87 100644 >--- a/Koha/Schema/Result/ClubTemplate.pm >+++ b/Koha/Schema/Result/ClubTemplate.pm >@@ -192,9 +192,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1UuejI9kkTb9eeNKvSLAQQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Template'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Templates'; > } >diff --git a/Koha/Schema/Result/ClubTemplateEnrollmentField.pm b/Koha/Schema/Result/ClubTemplateEnrollmentField.pm >index 9064d9ec967..d3d35537aa7 100644 >--- a/Koha/Schema/Result/ClubTemplateEnrollmentField.pm >+++ b/Koha/Schema/Result/ClubTemplateEnrollmentField.pm >@@ -114,9 +114,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qFRwC+QtitmYq2n2TdXOxw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Template::EnrollmentField'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Template::EnrollmentFields'; > } >diff --git a/Koha/Schema/Result/ClubTemplateField.pm b/Koha/Schema/Result/ClubTemplateField.pm >index 3e02284ebae..be34f70601c 100644 >--- a/Koha/Schema/Result/ClubTemplateField.pm >+++ b/Koha/Schema/Result/ClubTemplateField.pm >@@ -114,9 +114,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-01-19 06:49:06 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:yh8KZ8fjZclGd0GicxTaBA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Club::Template::Field'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Club::Template::Fields'; > } >diff --git a/Koha/Schema/Result/CourseInstructor.pm b/Koha/Schema/Result/CourseInstructor.pm >index 961d07c7104..436c9b214bc 100644 >--- a/Koha/Schema/Result/CourseInstructor.pm >+++ b/Koha/Schema/Result/CourseInstructor.pm >@@ -98,9 +98,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:8JrMgWOtc6LGT7EjOzyjrQ > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Course::Instructors'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Course::Instructor'; > } >diff --git a/Koha/Schema/Result/CourseItem.pm b/Koha/Schema/Result/CourseItem.pm >index 76683eb517b..3e7266da00b 100644 >--- a/Koha/Schema/Result/CourseItem.pm >+++ b/Koha/Schema/Result/CourseItem.pm >@@ -394,9 +394,21 @@ __PACKAGE__->add_columns( > '+location_enabled' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Course::Items'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Course::Item'; > } >diff --git a/Koha/Schema/Result/CourseReserve.pm b/Koha/Schema/Result/CourseReserve.pm >index 65a3f743b03..ca99174aee3 100644 >--- a/Koha/Schema/Result/CourseReserve.pm >+++ b/Koha/Schema/Result/CourseReserve.pm >@@ -152,9 +152,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:K3co29iVHAcF2/S0tGT1LA > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Course::Reserves'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Course::Reserve'; > } >diff --git a/Koha/Schema/Result/CurbsidePickupPolicy.pm b/Koha/Schema/Result/CurbsidePickupPolicy.pm >index f916e0cfd18..f37b2ff7406 100644 >--- a/Koha/Schema/Result/CurbsidePickupPolicy.pm >+++ b/Koha/Schema/Result/CurbsidePickupPolicy.pm >@@ -153,9 +153,21 @@ __PACKAGE__->add_columns( > '+patron_scheduled_pickup' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::CurbsidePickupPolicy'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::CurbsidePickupPolicies'; > } >diff --git a/Koha/Schema/Result/Currency.pm b/Koha/Schema/Result/Currency.pm >index 4aa21659f1b..e00bea10d8b 100644 >--- a/Koha/Schema/Result/Currency.pm >+++ b/Koha/Schema/Result/Currency.pm >@@ -188,9 +188,21 @@ __PACKAGE__->add_columns( > "+p_cs_precedes" => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Acquisition::Currency'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Acquisition::Currencies'; > } >diff --git a/Koha/Schema/Result/Deletedbiblio.pm b/Koha/Schema/Result/Deletedbiblio.pm >index 33b8c92ead7..7ab33b518bc 100644 >--- a/Koha/Schema/Result/Deletedbiblio.pm >+++ b/Koha/Schema/Result/Deletedbiblio.pm >@@ -228,10 +228,22 @@ __PACKAGE__->has_one( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Biblios'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Biblio'; > } >diff --git a/Koha/Schema/Result/DeletedbiblioMetadata.pm b/Koha/Schema/Result/DeletedbiblioMetadata.pm >index 38fd6e974c2..67c274c04cc 100644 >--- a/Koha/Schema/Result/DeletedbiblioMetadata.pm >+++ b/Koha/Schema/Result/DeletedbiblioMetadata.pm >@@ -165,9 +165,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 13:23:01 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:n/IgiGmKu1znMd78vA+pVw > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Biblio::Metadatas'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Biblio::Metadata'; > } >diff --git a/Koha/Schema/Result/Deletedbiblioitem.pm b/Koha/Schema/Result/Deletedbiblioitem.pm >index 58f8870ff31..7f3309a7e73 100644 >--- a/Koha/Schema/Result/Deletedbiblioitem.pm >+++ b/Koha/Schema/Result/Deletedbiblioitem.pm >@@ -317,9 +317,21 @@ __PACKAGE__->set_primary_key("biblioitemnumber"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-06-29 12:50:28 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q5ULiqLlmYdZQy4qr0wBtg > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Biblioitems'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Biblioitem'; > } >diff --git a/Koha/Schema/Result/Deletedborrower.pm b/Koha/Schema/Result/Deletedborrower.pm >index dcb54bb89a0..e8cc1b301f5 100644 >--- a/Koha/Schema/Result/Deletedborrower.pm >+++ b/Koha/Schema/Result/Deletedborrower.pm >@@ -869,9 +869,21 @@ __PACKAGE__->add_columns( > '+protected' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Patrons'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Patron'; > } >diff --git a/Koha/Schema/Result/Deleteditem.pm b/Koha/Schema/Result/Deleteditem.pm >index 45673bb84f1..896d2015f4f 100644 >--- a/Koha/Schema/Result/Deleteditem.pm >+++ b/Koha/Schema/Result/Deleteditem.pm >@@ -539,9 +539,21 @@ __PACKAGE__->add_columns( > '+exclude_from_local_holds_priority' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Items'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Item'; > } >diff --git a/Koha/Schema/Result/ErmAgreement.pm b/Koha/Schema/Result/ErmAgreement.pm >index 6ea504a6df8..3b6108623b1 100644 >--- a/Koha/Schema/Result/ErmAgreement.pm >+++ b/Koha/Schema/Result/ErmAgreement.pm >@@ -312,9 +312,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::Agreement'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Agreements'; > } >diff --git a/Koha/Schema/Result/ErmAgreementLicense.pm b/Koha/Schema/Result/ErmAgreementLicense.pm >index 6a8f23fea13..6b63268552b 100644 >--- a/Koha/Schema/Result/ErmAgreementLicense.pm >+++ b/Koha/Schema/Result/ErmAgreementLicense.pm >@@ -161,9 +161,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pO0QPWFMSap1XER+0hdEqg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::Agreement::License'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Agreement::Licenses'; > } >diff --git a/Koha/Schema/Result/ErmAgreementPeriod.pm b/Koha/Schema/Result/ErmAgreementPeriod.pm >index eb8b8273119..fb8f49a8979 100644 >--- a/Koha/Schema/Result/ErmAgreementPeriod.pm >+++ b/Koha/Schema/Result/ErmAgreementPeriod.pm >@@ -120,9 +120,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:NCQpSw+rp/9B/yOrtLtK6g > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::Agreement::Period'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Agreement::Periods'; > } >diff --git a/Koha/Schema/Result/ErmAgreementRelationship.pm b/Koha/Schema/Result/ErmAgreementRelationship.pm >index 266a8fd2b8a..e6ec70846fe 100644 >--- a/Koha/Schema/Result/ErmAgreementRelationship.pm >+++ b/Koha/Schema/Result/ErmAgreementRelationship.pm >@@ -133,9 +133,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-25 11:46:59 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EYK21+2xV7p1yCXR8OFKIA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::Agreement::Relationship'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Agreement::Relationships'; > } >diff --git a/Koha/Schema/Result/ErmCounterFile.pm b/Koha/Schema/Result/ErmCounterFile.pm >index f9564b3e831..afd131292c5 100644 >--- a/Koha/Schema/Result/ErmCounterFile.pm >+++ b/Koha/Schema/Result/ErmCounterFile.pm >@@ -147,9 +147,21 @@ __PACKAGE__->belongs_to( > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PnXyJtZQBhfxPPNnkyxJ8Q > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::CounterFile'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::CounterFiles'; > } >diff --git a/Koha/Schema/Result/ErmCounterLog.pm b/Koha/Schema/Result/ErmCounterLog.pm >index 2e7fa31f1f6..afca6f5e345 100644 >--- a/Koha/Schema/Result/ErmCounterLog.pm >+++ b/Koha/Schema/Result/ErmCounterLog.pm >@@ -193,9 +193,21 @@ __PACKAGE__->belongs_to( > }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::CounterLog'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::CounterLogs'; > } >diff --git a/Koha/Schema/Result/ErmDefaultUsageReport.pm b/Koha/Schema/Result/ErmDefaultUsageReport.pm >index 29d9fb9fda7..287d806e016 100644 >--- a/Koha/Schema/Result/ErmDefaultUsageReport.pm >+++ b/Koha/Schema/Result/ErmDefaultUsageReport.pm >@@ -76,9 +76,21 @@ __PACKAGE__->set_primary_key("erm_default_usage_report_id"); > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::DefaultUsageReport'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::DefaultUsageReports'; > } >diff --git a/Koha/Schema/Result/ErmDocument.pm b/Koha/Schema/Result/ErmDocument.pm >index e39705444fc..e13aaae9b8b 100644 >--- a/Koha/Schema/Result/ErmDocument.pm >+++ b/Koha/Schema/Result/ErmDocument.pm >@@ -198,9 +198,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-21 09:22:27 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rbU2G4zjKlEcOtuwVBSXaw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::Document'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Documents'; > } >diff --git a/Koha/Schema/Result/ErmEholdingsPackage.pm b/Koha/Schema/Result/ErmEholdingsPackage.pm >index 27d2e4938a6..c56f4883186 100644 >--- a/Koha/Schema/Result/ErmEholdingsPackage.pm >+++ b/Koha/Schema/Result/ErmEholdingsPackage.pm >@@ -233,9 +233,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EHoldings::Package'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EHoldings::Packages'; > } >diff --git a/Koha/Schema/Result/ErmEholdingsPackagesAgreement.pm b/Koha/Schema/Result/ErmEholdingsPackagesAgreement.pm >index 8a5e467d004..7c58d391200 100644 >--- a/Koha/Schema/Result/ErmEholdingsPackagesAgreement.pm >+++ b/Koha/Schema/Result/ErmEholdingsPackagesAgreement.pm >@@ -98,9 +98,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-11 11:52:09 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3nCckFzWVD8oZCG6eoljxw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EHoldings::Package::Agreement'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EHoldings::Package::Agreements'; > } >diff --git a/Koha/Schema/Result/ErmEholdingsResource.pm b/Koha/Schema/Result/ErmEholdingsResource.pm >index 685330d31d6..2801e583bd6 100644 >--- a/Koha/Schema/Result/ErmEholdingsResource.pm >+++ b/Koha/Schema/Result/ErmEholdingsResource.pm >@@ -170,9 +170,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-07-20 08:58:20 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FQbMPJvUGn+kxlA+C4JvYg > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EHoldings::Resources'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EHoldings::Resource'; > } >diff --git a/Koha/Schema/Result/ErmEholdingsTitle.pm b/Koha/Schema/Result/ErmEholdingsTitle.pm >index 26466f9de18..ca352214dca 100644 >--- a/Koha/Schema/Result/ErmEholdingsTitle.pm >+++ b/Koha/Schema/Result/ErmEholdingsTitle.pm >@@ -297,9 +297,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-13 11:06:45 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SOFpN45kBTi/qvW5OBnYDA > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EHoldings::Titles'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EHoldings::Title'; > } >diff --git a/Koha/Schema/Result/ErmLicense.pm b/Koha/Schema/Result/ErmLicense.pm >index bd90014e0d9..9fe540f122d 100644 >--- a/Koha/Schema/Result/ErmLicense.pm >+++ b/Koha/Schema/Result/ErmLicense.pm >@@ -222,9 +222,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::License'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::Licenses'; > } >diff --git a/Koha/Schema/Result/ErmUsageDataProvider.pm b/Koha/Schema/Result/ErmUsageDataProvider.pm >index 6ab2ce6f410..b570d7283e4 100644 >--- a/Koha/Schema/Result/ErmUsageDataProvider.pm >+++ b/Koha/Schema/Result/ErmUsageDataProvider.pm >@@ -345,9 +345,21 @@ __PACKAGE__->has_many( > # '+active' => { is_boolean => 1 } > # ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::UsageDataProvider'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::UsageDataProviders'; > } >diff --git a/Koha/Schema/Result/ErmUsageDatabase.pm b/Koha/Schema/Result/ErmUsageDatabase.pm >index 81bbb13cf83..15053c832d4 100644 >--- a/Koha/Schema/Result/ErmUsageDatabase.pm >+++ b/Koha/Schema/Result/ErmUsageDatabase.pm >@@ -154,10 +154,22 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::UsageDatabase'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::UsageDatabases'; > } >diff --git a/Koha/Schema/Result/ErmUsageItem.pm b/Koha/Schema/Result/ErmUsageItem.pm >index f8d542d1073..bc7e6682d33 100644 >--- a/Koha/Schema/Result/ErmUsageItem.pm >+++ b/Koha/Schema/Result/ErmUsageItem.pm >@@ -144,10 +144,22 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::UsageItem'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::UsageItems'; > } >diff --git a/Koha/Schema/Result/ErmUsageMus.pm b/Koha/Schema/Result/ErmUsageMus.pm >index 54c257e0b6e..264cc4c1fe5 100644 >--- a/Koha/Schema/Result/ErmUsageMus.pm >+++ b/Koha/Schema/Result/ErmUsageMus.pm >@@ -274,9 +274,21 @@ __PACKAGE__->belongs_to( > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4BXk0QleJJOQVdWh9YQYWA > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::MonthlyUsage'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::MonthlyUsages'; > } >diff --git a/Koha/Schema/Result/ErmUsagePlatform.pm b/Koha/Schema/Result/ErmUsagePlatform.pm >index dbc1cde8e79..e9f9e392aa7 100644 >--- a/Koha/Schema/Result/ErmUsagePlatform.pm >+++ b/Koha/Schema/Result/ErmUsagePlatform.pm >@@ -122,10 +122,22 @@ __PACKAGE__->belongs_to( > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:7Qu5XYiD2K+Pn590ZoTs7Q > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::UsagePlatform'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::UsagePlatforms'; > } >diff --git a/Koha/Schema/Result/ErmUsageTitle.pm b/Koha/Schema/Result/ErmUsageTitle.pm >index 0bb84fd4292..a23fb6d92c5 100644 >--- a/Koha/Schema/Result/ErmUsageTitle.pm >+++ b/Koha/Schema/Result/ErmUsageTitle.pm >@@ -211,9 +211,21 @@ __PACKAGE__->belongs_to( > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2Y2PxWnMTavZYR0ljgZ1lQ > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::UsageTitle'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::UsageTitles'; > } >diff --git a/Koha/Schema/Result/ErmUsageYus.pm b/Koha/Schema/Result/ErmUsageYus.pm >index 0dbb1c5c482..eedd05dbab5 100644 >--- a/Koha/Schema/Result/ErmUsageYus.pm >+++ b/Koha/Schema/Result/ErmUsageYus.pm >@@ -265,9 +265,21 @@ __PACKAGE__->belongs_to( > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EkDx9M0j385DbHo4PVxyiQ > > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::EUsage::YearlyUsage'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::EUsage::YearlyUsages'; > } >diff --git a/Koha/Schema/Result/ErmUserRole.pm b/Koha/Schema/Result/ErmUserRole.pm >index 1c678edf412..b6a6f78c6af 100644 >--- a/Koha/Schema/Result/ErmUserRole.pm >+++ b/Koha/Schema/Result/ErmUserRole.pm >@@ -151,9 +151,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-16 12:23:11 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HbkogqUuTLQCaUY1VrT6Hw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ERM::UserRole'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ERM::UserRoles'; > } >diff --git a/Koha/Schema/Result/ExportFormat.pm b/Koha/Schema/Result/ExportFormat.pm >index 675c6e27388..c416c67cb0f 100644 >--- a/Koha/Schema/Result/ExportFormat.pm >+++ b/Koha/Schema/Result/ExportFormat.pm >@@ -149,9 +149,21 @@ __PACKAGE__->set_primary_key("export_format_id"); > # Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-07-20 14:15:46 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:O8kM+dd6GTS2qS39lnDG1g > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::CsvProfile'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::CsvProfiles'; > } >diff --git a/Koha/Schema/Result/HoldCancellationRequest.pm b/Koha/Schema/Result/HoldCancellationRequest.pm >index 2fec126e9b4..a382c6bafdb 100644 >--- a/Koha/Schema/Result/HoldCancellationRequest.pm >+++ b/Koha/Schema/Result/HoldCancellationRequest.pm >@@ -87,9 +87,21 @@ __PACKAGE__->might_have( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Hold::CancellationRequest'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Hold::CancellationRequests'; > } >diff --git a/Koha/Schema/Result/HouseboundProfile.pm b/Koha/Schema/Result/HouseboundProfile.pm >index 5c37bb36d53..413c2e48a1c 100644 >--- a/Koha/Schema/Result/HouseboundProfile.pm >+++ b/Koha/Schema/Result/HouseboundProfile.pm >@@ -149,9 +149,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:VmCvv8WVQCmAXCfWHsLIdg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::HouseboundProfile'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::HouseboundProfiles'; > } >diff --git a/Koha/Schema/Result/HouseboundRole.pm b/Koha/Schema/Result/HouseboundRole.pm >index d0c267f5c74..b62165f3ac8 100644 >--- a/Koha/Schema/Result/HouseboundRole.pm >+++ b/Koha/Schema/Result/HouseboundRole.pm >@@ -91,9 +91,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BocU8VE+5j4lYlxNU6Lofw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::HouseboundRole'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::HouseboundRoles'; > } >diff --git a/Koha/Schema/Result/HouseboundVisit.pm b/Koha/Schema/Result/HouseboundVisit.pm >index a0488bab0f9..fde83181b6c 100644 >--- a/Koha/Schema/Result/HouseboundVisit.pm >+++ b/Koha/Schema/Result/HouseboundVisit.pm >@@ -161,9 +161,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PJwWk4901BF+CG6AXgjffg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::HouseboundVisit'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::HouseboundVisits'; > } >diff --git a/Koha/Schema/Result/IdentityProvider.pm b/Koha/Schema/Result/IdentityProvider.pm >index efd43b18e9f..1d6dd742893 100644 >--- a/Koha/Schema/Result/IdentityProvider.pm >+++ b/Koha/Schema/Result/IdentityProvider.pm >@@ -168,9 +168,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Auth::Identity::Provider'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Auth::Identity::Providers'; > } >diff --git a/Koha/Schema/Result/IdentityProviderDomain.pm b/Koha/Schema/Result/IdentityProviderDomain.pm >index 897c796e4c8..32a5baf1b42 100644 >--- a/Koha/Schema/Result/IdentityProviderDomain.pm >+++ b/Koha/Schema/Result/IdentityProviderDomain.pm >@@ -216,9 +216,21 @@ __PACKAGE__->add_columns( > '+allow_staff' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Auth::Identity::Provider::Domain'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Auth::Identity::Provider::Domains'; > } >diff --git a/Koha/Schema/Result/Illbatch.pm b/Koha/Schema/Result/Illbatch.pm >index a0c61a0a7e3..0bb6203ff0c 100644 >--- a/Koha/Schema/Result/Illbatch.pm >+++ b/Koha/Schema/Result/Illbatch.pm >@@ -204,10 +204,22 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ILL::Batch'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ILL::Batches'; > } >diff --git a/Koha/Schema/Result/IllbatchStatus.pm b/Koha/Schema/Result/IllbatchStatus.pm >index c04a5761817..8c68f98f2ad 100644 >--- a/Koha/Schema/Result/IllbatchStatus.pm >+++ b/Koha/Schema/Result/IllbatchStatus.pm >@@ -118,10 +118,22 @@ __PACKAGE__->add_columns( > '+is_system' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ILL::Batch::Status'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ILL::Batch::Statuses'; > } >diff --git a/Koha/Schema/Result/Illcomment.pm b/Koha/Schema/Result/Illcomment.pm >index 62f0341b7ad..61f5af22234 100644 >--- a/Koha/Schema/Result/Illcomment.pm >+++ b/Koha/Schema/Result/Illcomment.pm >@@ -142,9 +142,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:z5Y6mVTLtrYxmqmyAc/E7A > # >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ILL::Comments'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ILL::Comment'; > } >diff --git a/Koha/Schema/Result/Illrequest.pm b/Koha/Schema/Result/Illrequest.pm >index fc251f6d55e..e7293afa597 100644 >--- a/Koha/Schema/Result/Illrequest.pm >+++ b/Koha/Schema/Result/Illrequest.pm >@@ -439,10 +439,22 @@ __PACKAGE__->belongs_to( > }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ILL::Request'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ILL::Requests'; > } >diff --git a/Koha/Schema/Result/Illrequestattribute.pm b/Koha/Schema/Result/Illrequestattribute.pm >index a52e87ec673..68472bd1072 100644 >--- a/Koha/Schema/Result/Illrequestattribute.pm >+++ b/Koha/Schema/Result/Illrequestattribute.pm >@@ -124,10 +124,22 @@ __PACKAGE__->add_columns( > '+readonly' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ILL::Request::Attribute'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ILL::Request::Attributes'; > } >diff --git a/Koha/Schema/Result/ImportAuth.pm b/Koha/Schema/Result/ImportAuth.pm >index 16e09818e59..707a6aa75fd 100644 >--- a/Koha/Schema/Result/ImportAuth.pm >+++ b/Koha/Schema/Result/ImportAuth.pm >@@ -100,9 +100,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SRH+gauacnrd+nD9OtAfCQ > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::Record::Auths'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::Record::Auth'; > } >diff --git a/Koha/Schema/Result/ImportBiblio.pm b/Koha/Schema/Result/ImportBiblio.pm >index bbd0d6f4ac0..5b9a3f0a405 100644 >--- a/Koha/Schema/Result/ImportBiblio.pm >+++ b/Koha/Schema/Result/ImportBiblio.pm >@@ -128,9 +128,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-17 11:17:50 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Oj/1VkjYP538OlNeu41mqA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::Record::Biblio'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::Record::Biblios'; > } >diff --git a/Koha/Schema/Result/ImportItem.pm b/Koha/Schema/Result/ImportItem.pm >index 58c098c0f50..70114c23392 100644 >--- a/Koha/Schema/Result/ImportItem.pm >+++ b/Koha/Schema/Result/ImportItem.pm >@@ -120,9 +120,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:GaUyqPnOhETQO8YuuKvfNQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::Record::Item'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::Record::Items'; > } >diff --git a/Koha/Schema/Result/ImportOaiAuthority.pm b/Koha/Schema/Result/ImportOaiAuthority.pm >index 28a8f96219e..cffb5d21dda 100644 >--- a/Koha/Schema/Result/ImportOaiAuthority.pm >+++ b/Koha/Schema/Result/ImportOaiAuthority.pm >@@ -150,10 +150,22 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::OAI::Authority'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::OAI::Authorities'; > } >diff --git a/Koha/Schema/Result/ImportOaiBiblio.pm b/Koha/Schema/Result/ImportOaiBiblio.pm >index 95e24d7c396..b210a2d7acb 100644 >--- a/Koha/Schema/Result/ImportOaiBiblio.pm >+++ b/Koha/Schema/Result/ImportOaiBiblio.pm >@@ -144,10 +144,22 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom code or comments, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::OAI::Biblio'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::OAI::Biblios'; > } >diff --git a/Koha/Schema/Result/ImportRecord.pm b/Koha/Schema/Result/ImportRecord.pm >index 27f2439a6fd..35f7b530a8f 100644 >--- a/Koha/Schema/Result/ImportRecord.pm >+++ b/Koha/Schema/Result/ImportRecord.pm >@@ -265,9 +265,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-03-31 10:47:53 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:XNZhr5GRMgyndwQMsGfGRQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::Record'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::Records'; > } >diff --git a/Koha/Schema/Result/ImportRecordMatch.pm b/Koha/Schema/Result/ImportRecordMatch.pm >index 06ffb07d7e6..b4b4f5371b3 100644 >--- a/Koha/Schema/Result/ImportRecordMatch.pm >+++ b/Koha/Schema/Result/ImportRecordMatch.pm >@@ -105,9 +105,21 @@ __PACKAGE__->add_columns( > '+chosen' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Import::Record::Match'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Import::Record::Matches'; > } >diff --git a/Koha/Schema/Result/Issue.pm b/Koha/Schema/Result/Issue.pm >index bb2b037a0da..d3a288ae8b7 100644 >--- a/Koha/Schema/Result/Issue.pm >+++ b/Koha/Schema/Result/Issue.pm >@@ -425,9 +425,21 @@ __PACKAGE__->has_many( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Checkout'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Checkouts'; > } >diff --git a/Koha/Schema/Result/Item.pm b/Koha/Schema/Result/Item.pm >index e8ad9b3828b..e9c042f1dad 100644 >--- a/Koha/Schema/Result/Item.pm >+++ b/Koha/Schema/Result/Item.pm >@@ -1077,6 +1077,12 @@ __PACKAGE__->might_have( > ); > > use C4::Context; >+=head2 effective_itemtype >+ >+Missing POD for effective_itemtype. >+ >+=cut >+ > sub effective_itemtype { > my ( $self ) = @_; > >diff --git a/Koha/Schema/Result/ItemGroup.pm b/Koha/Schema/Result/ItemGroup.pm >index 96d04e62ae2..2419441280e 100644 >--- a/Koha/Schema/Result/ItemGroup.pm >+++ b/Koha/Schema/Result/ItemGroup.pm >@@ -175,9 +175,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-05-10 17:06:39 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:OPwObeUEFgzNwMYlEgHkQw > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Biblio::ItemGroups'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Biblio::ItemGroup'; > } >diff --git a/Koha/Schema/Result/ItemGroupItem.pm b/Koha/Schema/Result/ItemGroupItem.pm >index 98325efdd26..bde8e89e29a 100644 >--- a/Koha/Schema/Result/ItemGroupItem.pm >+++ b/Koha/Schema/Result/ItemGroupItem.pm >@@ -132,9 +132,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-06-02 16:18:20 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FLtrDLTHqXdzqyOmVvaXJQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Biblio::ItemGroup::Item'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Biblio::ItemGroup::Items'; > } >diff --git a/Koha/Schema/Result/Itemtype.pm b/Koha/Schema/Result/Itemtype.pm >index 46aa24926dc..5b2b9170d95 100644 >--- a/Koha/Schema/Result/Itemtype.pm >+++ b/Koha/Schema/Result/Itemtype.pm >@@ -373,9 +373,21 @@ __PACKAGE__->has_many( > } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::ItemType'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::ItemTypes'; > } >diff --git a/Koha/Schema/Result/Letter.pm b/Koha/Schema/Result/Letter.pm >index a473612e51d..96e0984493a 100644 >--- a/Koha/Schema/Result/Letter.pm >+++ b/Koha/Schema/Result/Letter.pm >@@ -244,9 +244,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-26 17:01:21 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:UglmO8Xk7xnC09bYETA5+w > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Notice::Template'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Notice::Templates'; > } >diff --git a/Koha/Schema/Result/LibraryGroup.pm b/Koha/Schema/Result/LibraryGroup.pm >index 4bd64609e66..63d2692fd5f 100644 >--- a/Koha/Schema/Result/LibraryGroup.pm >+++ b/Koha/Schema/Result/LibraryGroup.pm >@@ -269,9 +269,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-04 17:58:31 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:M9YgMuCWhncegAzkH8uoJg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Library::Group'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Library::Groups'; > } >diff --git a/Koha/Schema/Result/LibraryHour.pm b/Koha/Schema/Result/LibraryHour.pm >index a01cbe94e22..ea666d7c9a4 100644 >--- a/Koha/Schema/Result/LibraryHour.pm >+++ b/Koha/Schema/Result/LibraryHour.pm >@@ -100,9 +100,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2024-04-12 08:58:44 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1W6KcIBKWaCCu/UEXF+zug > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Library::Hours'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Library::Hour'; > } >diff --git a/Koha/Schema/Result/Linktracker.pm b/Koha/Schema/Result/Linktracker.pm >index 6cc99ce8597..b1e1e9eb5dd 100644 >--- a/Koha/Schema/Result/Linktracker.pm >+++ b/Koha/Schema/Result/Linktracker.pm >@@ -169,9 +169,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-08-27 08:42:21 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ksT3i//fQn+HnBKt4YZlhg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::TrackedLink'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::TrackedLinks'; > } >diff --git a/Koha/Schema/Result/Message.pm b/Koha/Schema/Result/Message.pm >index 5aa37332305..9fdc70e923b 100644 >--- a/Koha/Schema/Result/Message.pm >+++ b/Koha/Schema/Result/Message.pm >@@ -170,9 +170,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-20 18:35:40 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:y3cJsv6T0LekoQiyi3T/aA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Message'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Messages'; > } >diff --git a/Koha/Schema/Result/MessageAttribute.pm b/Koha/Schema/Result/MessageAttribute.pm >index 0e3f4265914..37a4965802d 100644 >--- a/Koha/Schema/Result/MessageAttribute.pm >+++ b/Koha/Schema/Result/MessageAttribute.pm >@@ -118,9 +118,21 @@ __PACKAGE__->has_many( > > # You can replace this text with custom content, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::MessagePreference::Attribute'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::MessagePreference::Attributes'; > } >diff --git a/Koha/Schema/Result/MessageQueue.pm b/Koha/Schema/Result/MessageQueue.pm >index 43b7e192f87..adcd9d075cb 100644 >--- a/Koha/Schema/Result/MessageQueue.pm >+++ b/Koha/Schema/Result/MessageQueue.pm >@@ -247,9 +247,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-09-18 14:26:23 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:eJFHJ3sXu+kLt+uW4ILPIA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Notice::Message'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Notice::Messages'; > } >diff --git a/Koha/Schema/Result/MessageTransport.pm b/Koha/Schema/Result/MessageTransport.pm >index 8a9559c4b53..15575c13ee3 100644 >--- a/Koha/Schema/Result/MessageTransport.pm >+++ b/Koha/Schema/Result/MessageTransport.pm >@@ -135,9 +135,21 @@ __PACKAGE__->belongs_to( > > # You can replace this text with custom content, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::MessagePreference::Transport'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::MessagePreference::Transports'; > } >diff --git a/Koha/Schema/Result/MessageTransportType.pm b/Koha/Schema/Result/MessageTransportType.pm >index 34dd3de4a75..e3f91148d1c 100644 >--- a/Koha/Schema/Result/MessageTransportType.pm >+++ b/Koha/Schema/Result/MessageTransportType.pm >@@ -156,9 +156,21 @@ __PACKAGE__->many_to_many( > > # You can replace this text with custom content, and it will be preserved on regeneration > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::MessagePreference::Transport::Type'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::MessagePreference::Transport::Types'; > } >diff --git a/Koha/Schema/Result/NeedMergeAuthority.pm b/Koha/Schema/Result/NeedMergeAuthority.pm >index 88d87e1a918..b38c2b8f9c1 100644 >--- a/Koha/Schema/Result/NeedMergeAuthority.pm >+++ b/Koha/Schema/Result/NeedMergeAuthority.pm >@@ -105,9 +105,21 @@ __PACKAGE__->set_primary_key("id"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ZGE483WQMHZLpdgAAPHMKg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Authority::MergeRequest'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Authority::MergeRequests'; > } >diff --git a/Koha/Schema/Result/OaiServer.pm b/Koha/Schema/Result/OaiServer.pm >index a1a862dbc5a..a55a25f3540 100644 >--- a/Koha/Schema/Result/OaiServer.pm >+++ b/Koha/Schema/Result/OaiServer.pm >@@ -124,9 +124,21 @@ __PACKAGE__->set_primary_key("oai_server_id"); > # Created by DBIx::Class::Schema::Loader v0.07051 @ 2024-07-31 14:51:58 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HeQgY+4P10NKCtLqdExv+g > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::OAIServer'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::OAIServers'; > } >diff --git a/Koha/Schema/Result/OauthAccessToken.pm b/Koha/Schema/Result/OauthAccessToken.pm >index acae6ea479b..75fc81cb307 100644 >--- a/Koha/Schema/Result/OauthAccessToken.pm >+++ b/Koha/Schema/Result/OauthAccessToken.pm >@@ -73,9 +73,21 @@ __PACKAGE__->set_primary_key("access_token"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:3mL1s811AK45Nn5yPSJSaA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::OAuthAccessToken'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::OAuthAccessTokens'; > } >diff --git a/Koha/Schema/Result/OldIssue.pm b/Koha/Schema/Result/OldIssue.pm >index 75016e40976..82718e86dd8 100644 >--- a/Koha/Schema/Result/OldIssue.pm >+++ b/Koha/Schema/Result/OldIssue.pm >@@ -405,9 +405,21 @@ __PACKAGE__->might_have( > { cascade_copy => 0, cascade_delete => 0 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Checkout'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Checkouts'; > } >diff --git a/Koha/Schema/Result/OldReserve.pm b/Koha/Schema/Result/OldReserve.pm >index 5d7e7765995..70a035e72b1 100644 >--- a/Koha/Schema/Result/OldReserve.pm >+++ b/Koha/Schema/Result/OldReserve.pm >@@ -495,9 +495,21 @@ __PACKAGE__->add_columns( > '+non_priority' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Old::Hold'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Old::Holds'; > } >diff --git a/Koha/Schema/Result/Overduerule.pm b/Koha/Schema/Result/Overduerule.pm >index c52005ca508..82eac9e5f3e 100644 >--- a/Koha/Schema/Result/Overduerule.pm >+++ b/Koha/Schema/Result/Overduerule.pm >@@ -198,9 +198,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pORigxtC5qztZWHI29mZ/g > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::OverdueRule'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::OverdueRules'; > } >diff --git a/Koha/Schema/Result/PatronConsent.pm b/Koha/Schema/Result/PatronConsent.pm >index 732ffef7ac7..1b23c4be834 100644 >--- a/Koha/Schema/Result/PatronConsent.pm >+++ b/Koha/Schema/Result/PatronConsent.pm >@@ -110,9 +110,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-10-25 14:33:42 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:LWTvNPA/R0VoWUzcRLnjDg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Consent'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Consents'; > } >diff --git a/Koha/Schema/Result/Patronimage.pm b/Koha/Schema/Result/Patronimage.pm >index 40fa54dfc4b..e98e6ded7c5 100644 >--- a/Koha/Schema/Result/Patronimage.pm >+++ b/Koha/Schema/Result/Patronimage.pm >@@ -90,9 +90,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:DWbMgbxlYcZhGF1YK9fDIA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Image'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Images'; > } >diff --git a/Koha/Schema/Result/PluginData.pm b/Koha/Schema/Result/PluginData.pm >index 1df0f8e0143..2e1695580af 100644 >--- a/Koha/Schema/Result/PluginData.pm >+++ b/Koha/Schema/Result/PluginData.pm >@@ -70,9 +70,21 @@ __PACKAGE__->set_primary_key("plugin_class", "plugin_key"); > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:g4MbnMszG6BGSG0vHxWQig > > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Plugins::Datas'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Plugins::Data'; > } >diff --git a/Koha/Schema/Result/PluginMethod.pm b/Koha/Schema/Result/PluginMethod.pm >index c2d7ddc67f9..4a75e05144a 100644 >--- a/Koha/Schema/Result/PluginMethod.pm >+++ b/Koha/Schema/Result/PluginMethod.pm >@@ -62,9 +62,21 @@ __PACKAGE__->set_primary_key("plugin_class", "plugin_method"); > # Created by DBIx::Class::Schema::Loader v0.07046 @ 2018-07-13 12:37:57 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:koGk3Dh0wkslqYPUqUcK0w > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Plugins::Methods'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Plugins::Method'; > } >diff --git a/Koha/Schema/Result/PreservationProcessing.pm b/Koha/Schema/Result/PreservationProcessing.pm >index 30720561612..9937a3507e8 100644 >--- a/Koha/Schema/Result/PreservationProcessing.pm >+++ b/Koha/Schema/Result/PreservationProcessing.pm >@@ -121,9 +121,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:58:35 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fIZfFuAY21nh+Fwwjd/kJw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Preservation::Processing'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Preservation::Processings'; > } >diff --git a/Koha/Schema/Result/PreservationProcessingAttribute.pm b/Koha/Schema/Result/PreservationProcessingAttribute.pm >index 666b0b3daa2..139cc08baf5 100644 >--- a/Koha/Schema/Result/PreservationProcessingAttribute.pm >+++ b/Koha/Schema/Result/PreservationProcessingAttribute.pm >@@ -132,9 +132,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:i0vFmFYaqiZFyXGxDp+6oQ > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Preservation::Processing::Attributes'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Preservation::Processing::Attribute'; > } >diff --git a/Koha/Schema/Result/PreservationProcessingAttributesItem.pm b/Koha/Schema/Result/PreservationProcessingAttributesItem.pm >index 0b6681ea832..320293b7dea 100644 >--- a/Koha/Schema/Result/PreservationProcessingAttributesItem.pm >+++ b/Koha/Schema/Result/PreservationProcessingAttributesItem.pm >@@ -116,9 +116,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-24 13:35:42 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:q7q8ThZAW9HGDWaemSTS3A > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Preservation::Train::Item::Attribute'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Preservation::Train::Item::Attributes'; > } >diff --git a/Koha/Schema/Result/PreservationTrain.pm b/Koha/Schema/Result/PreservationTrain.pm >index 007680e0184..b097de0f73c 100644 >--- a/Koha/Schema/Result/PreservationTrain.pm >+++ b/Koha/Schema/Result/PreservationTrain.pm >@@ -190,9 +190,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ojxQ0wFj2datCPVjeuTBWw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Preservation::Train'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Preservation::Trains'; > } >diff --git a/Koha/Schema/Result/PreservationTrainsItem.pm b/Koha/Schema/Result/PreservationTrainsItem.pm >index 1c7550afba6..10a54d7b063 100644 >--- a/Koha/Schema/Result/PreservationTrainsItem.pm >+++ b/Koha/Schema/Result/PreservationTrainsItem.pm >@@ -190,9 +190,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-04-17 18:47:47 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lpvjaV+qXrIDVlimBaycgA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Preservation::Train::Item'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Preservation::Train::Items'; > } >diff --git a/Koha/Schema/Result/Reserve.pm b/Koha/Schema/Result/Reserve.pm >index 4a528cf5eaf..9a2d3af4576 100644 >--- a/Koha/Schema/Result/Reserve.pm >+++ b/Koha/Schema/Result/Reserve.pm >@@ -506,9 +506,21 @@ __PACKAGE__->add_columns( > '+non_priority' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Hold'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Holds'; > } >diff --git a/Koha/Schema/Result/RestrictionType.pm b/Koha/Schema/Result/RestrictionType.pm >index c42b78c510f..53e53b41cff 100644 >--- a/Koha/Schema/Result/RestrictionType.pm >+++ b/Koha/Schema/Result/RestrictionType.pm >@@ -114,9 +114,21 @@ __PACKAGE__->add_columns( > '+lift_after_payment' => { is_boolean => 1 }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Patron::Restriction::Type'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Patron::Restriction::Types'; > } >diff --git a/Koha/Schema/Result/ReturnClaim.pm b/Koha/Schema/Result/ReturnClaim.pm >index 3bedf154635..fbf175d8cba 100644 >--- a/Koha/Schema/Result/ReturnClaim.pm >+++ b/Koha/Schema/Result/ReturnClaim.pm >@@ -333,9 +333,21 @@ __PACKAGE__->belongs_to( > { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Checkouts::ReturnClaims'; > } >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Checkouts::ReturnClaim'; > } >diff --git a/Koha/Schema/Result/SavedSql.pm b/Koha/Schema/Result/SavedSql.pm >index dd441fc853f..ec16119bcf6 100644 >--- a/Koha/Schema/Result/SavedSql.pm >+++ b/Koha/Schema/Result/SavedSql.pm >@@ -193,9 +193,21 @@ __PACKAGE__->add_columns( > '+public' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Report'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Reports'; > } >diff --git a/Koha/Schema/Result/Serialitem.pm b/Koha/Schema/Result/Serialitem.pm >index 5b838eab15f..d317d0c4b35 100644 >--- a/Koha/Schema/Result/Serialitem.pm >+++ b/Koha/Schema/Result/Serialitem.pm >@@ -92,9 +92,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2017-04-13 13:53:21 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Z43jqmURevaJeui7l8ThlQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Serial::Item'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Serial::Items'; > } >diff --git a/Koha/Schema/Result/SmsProvider.pm b/Koha/Schema/Result/SmsProvider.pm >index 44d2348825f..f2bc8e8f896 100644 >--- a/Koha/Schema/Result/SmsProvider.pm >+++ b/Koha/Schema/Result/SmsProvider.pm >@@ -99,9 +99,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2015-12-31 16:48:38 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:U3LGi1zy3YN2Amin+bhXlA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::SMS::Provider'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::SMS::Providers'; > } >diff --git a/Koha/Schema/Result/SmtpServer.pm b/Koha/Schema/Result/SmtpServer.pm >index 43906a102a5..d421e51b144 100644 >--- a/Koha/Schema/Result/SmtpServer.pm >+++ b/Koha/Schema/Result/SmtpServer.pm >@@ -156,10 +156,22 @@ __PACKAGE__->add_columns( > '+is_default' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::SMTP::Servers'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::SMTP::Server'; > } >diff --git a/Koha/Schema/Result/Stockrotationitem.pm b/Koha/Schema/Result/Stockrotationitem.pm >index 970c64a3d66..a0c9cc22fd9 100644 >--- a/Koha/Schema/Result/Stockrotationitem.pm >+++ b/Koha/Schema/Result/Stockrotationitem.pm >@@ -121,9 +121,21 @@ __PACKAGE__->add_columns( > '+fresh' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::StockRotationItem'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::StockRotationItems'; > } >diff --git a/Koha/Schema/Result/Stockrotationrota.pm b/Koha/Schema/Result/Stockrotationrota.pm >index 4f266b0f521..4c1d01b89de 100644 >--- a/Koha/Schema/Result/Stockrotationrota.pm >+++ b/Koha/Schema/Result/Stockrotationrota.pm >@@ -129,9 +129,21 @@ __PACKAGE__->add_columns( > '+active' => { is_boolean => 1 } > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::StockRotationRota'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::StockRotationRotas'; > } >diff --git a/Koha/Schema/Result/Stockrotationstage.pm b/Koha/Schema/Result/Stockrotationstage.pm >index a53bdf7a0ed..18414bc30bf 100644 >--- a/Koha/Schema/Result/Stockrotationstage.pm >+++ b/Koha/Schema/Result/Stockrotationstage.pm >@@ -146,9 +146,21 @@ __PACKAGE__->load_components(qw( Ordered )); > > __PACKAGE__->grouping_column('rota_id'); # Our group_id > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::StockRotationStage'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::StockRotationStages'; > } >diff --git a/Koha/Schema/Result/SubscriptionFrequency.pm b/Koha/Schema/Result/SubscriptionFrequency.pm >index 90a0ba5dd74..4057cc2b5cb 100644 >--- a/Koha/Schema/Result/SubscriptionFrequency.pm >+++ b/Koha/Schema/Result/SubscriptionFrequency.pm >@@ -111,9 +111,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-02-16 17:54:54 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:AMA/p9t1S6NmZTAHThLROQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Subscription::Frequency'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Subscription::Frequencies'; > } >diff --git a/Koha/Schema/Result/SubscriptionNumberpattern.pm b/Koha/Schema/Result/SubscriptionNumberpattern.pm >index 28f46a7ed4e..d18d7a4d12b 100644 >--- a/Koha/Schema/Result/SubscriptionNumberpattern.pm >+++ b/Koha/Schema/Result/SubscriptionNumberpattern.pm >@@ -231,9 +231,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2023-12-27 17:02:33 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:CUmBGK1rIiVf1BFuR3Kkrg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Subscription::Numberpattern'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Subscription::Numberpatterns'; > } >diff --git a/Koha/Schema/Result/Subscriptionhistory.pm b/Koha/Schema/Result/Subscriptionhistory.pm >index c39953a16b7..ce5b47ae8a1 100644 >--- a/Koha/Schema/Result/Subscriptionhistory.pm >+++ b/Koha/Schema/Result/Subscriptionhistory.pm >@@ -136,9 +136,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-04-17 09:15:51 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bcJbffy74eI1r+e4pImAwQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Subscription::History'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Subscription::Histories'; > } >diff --git a/Koha/Schema/Result/Subscriptionroutinglist.pm b/Koha/Schema/Result/Subscriptionroutinglist.pm >index c5857374105..4289507f754 100644 >--- a/Koha/Schema/Result/Subscriptionroutinglist.pm >+++ b/Koha/Schema/Result/Subscriptionroutinglist.pm >@@ -131,9 +131,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:L/6xUg+37bAUntrGWWYlaw > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Subscription::Routinglist'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Subscription::Routinglists'; > } >diff --git a/Koha/Schema/Result/Suggestion.pm b/Koha/Schema/Result/Suggestion.pm >index ff65a54d955..fdbd355b537 100644 >--- a/Koha/Schema/Result/Suggestion.pm >+++ b/Koha/Schema/Result/Suggestion.pm >@@ -576,10 +576,22 @@ __PACKAGE__->add_columns( > '+archived' => { is_boolean => 1 }, > ); > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Suggestions'; > } > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Suggestion'; > } >diff --git a/Koha/Schema/Result/Systempreference.pm b/Koha/Schema/Result/Systempreference.pm >index 6b17d816eaf..747cec7162d 100644 >--- a/Koha/Schema/Result/Systempreference.pm >+++ b/Koha/Schema/Result/Systempreference.pm >@@ -92,9 +92,21 @@ __PACKAGE__->set_primary_key("variable"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:d9V4/gPRw1ucbd/TzEzNUQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Config::SysPref'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Config::SysPrefs'; > } >diff --git a/Koha/Schema/Result/TagAll.pm b/Koha/Schema/Result/TagAll.pm >index 90e7cbb56ec..bee585faff6 100644 >--- a/Koha/Schema/Result/TagAll.pm >+++ b/Koha/Schema/Result/TagAll.pm >@@ -144,9 +144,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:qQsYlIAUc1KP7M/RUaqd8g > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Tag'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Tags'; > } >diff --git a/Koha/Schema/Result/TagsApproval.pm b/Koha/Schema/Result/TagsApproval.pm >index 4e0bac093bc..6be547c7d3d 100644 >--- a/Koha/Schema/Result/TagsApproval.pm >+++ b/Koha/Schema/Result/TagsApproval.pm >@@ -135,9 +135,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:PR7rfXKXExWpmkdxcXRrbQ > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Tags::Approval'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Tags::Approvals'; > } >diff --git a/Koha/Schema/Result/TagsIndex.pm b/Koha/Schema/Result/TagsIndex.pm >index ee7a63114b4..975d55ad9b3 100644 >--- a/Koha/Schema/Result/TagsIndex.pm >+++ b/Koha/Schema/Result/TagsIndex.pm >@@ -109,9 +109,21 @@ __PACKAGE__->belongs_to( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:s+HP8nlAKZz2S7PI8MQBOA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Tags::Index'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Tags::Indexes'; > } >diff --git a/Koha/Schema/Result/TicketUpdate.pm b/Koha/Schema/Result/TicketUpdate.pm >index 06851ec9b6d..011afb531b8 100644 >--- a/Koha/Schema/Result/TicketUpdate.pm >+++ b/Koha/Schema/Result/TicketUpdate.pm >@@ -189,9 +189,21 @@ __PACKAGE__->belongs_to( > > __PACKAGE__->add_columns( '+public' => { is_boolean => 1 }, ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Ticket::Update'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Ticket::Updates'; > } >diff --git a/Koha/Schema/Result/TmpHoldsqueue.pm b/Koha/Schema/Result/TmpHoldsqueue.pm >index 7198134edee..565349e81ba 100644 >--- a/Koha/Schema/Result/TmpHoldsqueue.pm >+++ b/Koha/Schema/Result/TmpHoldsqueue.pm >@@ -279,10 +279,22 @@ __PACKAGE__->belongs_to( > }, > ); > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Hold::HoldsQueueItem'; > } > >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Hold::HoldsQueueItems'; > } >diff --git a/Koha/Schema/Result/Virtualshelve.pm b/Koha/Schema/Result/Virtualshelve.pm >index 06d3978fd77..0fbc1742fd7 100644 >--- a/Koha/Schema/Result/Virtualshelve.pm >+++ b/Koha/Schema/Result/Virtualshelve.pm >@@ -222,9 +222,21 @@ __PACKAGE__->has_many( > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-08-17 19:59:33 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:EKq7nDW2AeZ2NQce2BPMWA > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Virtualshelf'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Virtualshelves'; > } >diff --git a/Koha/Schema/Result/Z3950server.pm b/Koha/Schema/Result/Z3950server.pm >index f03ab2bf803..1f18f26d4da 100644 >--- a/Koha/Schema/Result/Z3950server.pm >+++ b/Koha/Schema/Result/Z3950server.pm >@@ -229,9 +229,21 @@ __PACKAGE__->set_primary_key("id"); > # Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-10-03 11:30:07 > # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1uIZOogM1tV2M7fbpPRDwg > >+=head2 koha_object_class >+ >+Missing POD for koha_object_class. >+ >+=cut >+ > sub koha_object_class { > 'Koha::Z3950Server'; > } >+=head2 koha_objects_class >+ >+Missing POD for koha_objects_class. >+ >+=cut >+ > sub koha_objects_class { > 'Koha::Z3950Servers'; > } >diff --git a/Koha/SearchEngine/Elasticsearch.pm b/Koha/SearchEngine/Elasticsearch.pm >index 945dcd9e7ad..fc4f8b6683e 100644 >--- a/Koha/SearchEngine/Elasticsearch.pm >+++ b/Koha/SearchEngine/Elasticsearch.pm >@@ -78,6 +78,12 @@ The Elasticsearch index name with Koha instance prefix. > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my $class = shift @_; > my ($params) = @_; >@@ -369,6 +375,12 @@ sub _load_elasticsearch_mappings { > return YAML::XS::LoadFile($mappings_yaml); > } > >+=head2 reset_elasticsearch_mappings >+ >+Missing POD for reset_elasticsearch_mappings. >+ >+=cut >+ > sub reset_elasticsearch_mappings { > my ($self) = @_; > my $indexes = $self->_load_elasticsearch_mappings(); >@@ -422,6 +434,13 @@ sub reset_elasticsearch_mappings { > > # This overrides the accessor provided by Class::Accessor so that if > # sort_fields isn't set, then it'll generate it. >+ >+=head2 sort_fields >+ >+Missing POD for sort_fields. >+ >+=cut >+ > sub sort_fields { > my $self = shift; > if (@_) { >diff --git a/Koha/SearchField.pm b/Koha/SearchField.pm >index b5b47a7f49a..a103c849a93 100644 >--- a/Koha/SearchField.pm >+++ b/Koha/SearchField.pm >@@ -31,6 +31,12 @@ Koha::SearchField - Koha SearchField Object class > > =cut > >+=head2 add_to_search_marc_maps >+ >+Missing POD for add_to_search_marc_maps. >+ >+=cut >+ > sub add_to_search_marc_maps { > my ( $self, $search_field, $params ) = @_; > return $self->_result()->add_to_search_marc_maps( $search_field->_result, $params ); >diff --git a/Koha/SearchFields.pm b/Koha/SearchFields.pm >index e6b7a70cdaa..ea18ac9ae18 100644 >--- a/Koha/SearchFields.pm >+++ b/Koha/SearchFields.pm >@@ -41,6 +41,12 @@ sub _type { > return 'SearchField'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::SearchField'; > } >diff --git a/Koha/SearchMarcMap.pm b/Koha/SearchMarcMap.pm >index 70edb174f36..54f8c6cf208 100644 >--- a/Koha/SearchMarcMap.pm >+++ b/Koha/SearchMarcMap.pm >@@ -31,6 +31,12 @@ Koha::SearchMarcMap - Koha SearchMarcMap Object class > > =cut > >+=head2 add_to_search_fields >+ >+Missing POD for add_to_search_fields. >+ >+=cut >+ > sub add_to_search_fields { > my ( $self, $params ) = @_; > $self->_result->add_to_search_fields($params); >diff --git a/Koha/SearchMarcMaps.pm b/Koha/SearchMarcMaps.pm >index de98980630e..de5f6e4700e 100644 >--- a/Koha/SearchMarcMaps.pm >+++ b/Koha/SearchMarcMaps.pm >@@ -41,6 +41,12 @@ sub _type { > return 'SearchMarcMap'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::SearchMarcMap'; > } >diff --git a/Koha/Serial/Items.pm b/Koha/Serial/Items.pm >index 974a5f09bc6..e7870ec4f54 100644 >--- a/Koha/Serial/Items.pm >+++ b/Koha/Serial/Items.pm >@@ -43,6 +43,12 @@ sub _type { > return 'Serialitem'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Serial::Item'; > } >diff --git a/Koha/Serials.pm b/Koha/Serials.pm >index 708d68f6fee..c9a3d1fcdd9 100644 >--- a/Koha/Serials.pm >+++ b/Koha/Serials.pm >@@ -43,6 +43,12 @@ sub _type { > return 'Serial'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Serial'; > } >diff --git a/Koha/SimpleMARC.pm b/Koha/SimpleMARC.pm >index 65d1cec0c29..d8e7f9b6ccd 100644 >--- a/Koha/SimpleMARC.pm >+++ b/Koha/SimpleMARC.pm >@@ -125,6 +125,12 @@ sub copy_field { > } > } > >+=head2 copy_and_replace_field >+ >+Missing POD for copy_and_replace_field. >+ >+=cut >+ > sub copy_and_replace_field { > my ($params) = @_; > my $record = $params->{record}; >@@ -166,6 +172,12 @@ sub copy_and_replace_field { > } > } > >+=head2 update_field >+ >+Missing POD for update_field. >+ >+=cut >+ > sub update_field { > my ($params) = @_; > my $record = $params->{record}; >@@ -521,6 +533,12 @@ sub move_field { > > =cut > >+=head2 delete_field >+ >+Missing POD for delete_field. >+ >+=cut >+ > sub delete_field { > my ($params) = @_; > my $record = $params->{record}; >diff --git a/Koha/Subscription/Histories.pm b/Koha/Subscription/Histories.pm >index 07004eae782..2d27cdd3b57 100644 >--- a/Koha/Subscription/Histories.pm >+++ b/Koha/Subscription/Histories.pm >@@ -43,6 +43,12 @@ sub _type { > return 'Subscriptionhistory'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Subscription::History'; > } >diff --git a/Koha/Subscriptions.pm b/Koha/Subscriptions.pm >index 73583ab705d..97f066efa0e 100644 >--- a/Koha/Subscriptions.pm >+++ b/Koha/Subscriptions.pm >@@ -43,6 +43,12 @@ sub _type { > return 'Subscription'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Subscription'; > } >diff --git a/Koha/Template/Plugin/AuthorisedValues.pm b/Koha/Template/Plugin/AuthorisedValues.pm >index 2e72aaffe77..8f3841ba753 100644 >--- a/Koha/Template/Plugin/AuthorisedValues.pm >+++ b/Koha/Template/Plugin/AuthorisedValues.pm >@@ -35,6 +35,12 @@ sub GetByCode { > : $code; > } > >+=head2 Get >+ >+Missing POD for Get. >+ >+=cut >+ > sub Get { > my ( $self, $category, $selected, $opac ) = @_; > return GetAuthorisedValues( $category, $selected, $opac ); >@@ -54,6 +60,12 @@ sub GetAuthValueDropbox { > ); > } > >+=head2 GetCategories >+ >+Missing POD for GetCategories. >+ >+=cut >+ > sub GetCategories { > my ( $self, $params ) = @_; > my $selected = $params->{selected}; >diff --git a/Koha/Template/Plugin/HtmlId.pm b/Koha/Template/Plugin/HtmlId.pm >index b04442e3f25..891e790f318 100644 >--- a/Koha/Template/Plugin/HtmlId.pm >+++ b/Koha/Template/Plugin/HtmlId.pm >@@ -33,6 +33,12 @@ It will replace characters that are not valid for HTML IDs with an underscore (_ > > =cut > >+=head2 filter >+ >+Missing POD for filter. >+ >+=cut >+ > sub filter { > my ( $self, $text ) = @_; > >diff --git a/Koha/Template/Plugin/Koha.pm b/Koha/Template/Plugin/Koha.pm >index 5e375932447..de2363d2a36 100644 >--- a/Koha/Template/Plugin/Koha.pm >+++ b/Koha/Template/Plugin/Koha.pm >@@ -65,11 +65,23 @@ sub new { > }, $class; > } > >+=head2 Preference >+ >+Missing POD for Preference. >+ >+=cut >+ > sub Preference { > my ( $self, $pref ) = @_; > return C4::Context->preference($pref); > } > >+=head2 MultivaluePreference >+ >+Missing POD for MultivaluePreference. >+ >+=cut >+ > sub MultivaluePreference { > my ( $self, $pref ) = @_; > return C4::Context->multivalue_preference($pref); >@@ -91,6 +103,12 @@ sub CSVDelimiter { > return C4::Context->csv_delimiter($val); > } > >+=head2 Version >+ >+Missing POD for Version. >+ >+=cut >+ > sub Version { > my $version_string = Koha::version(); > my ( $major, $minor, $maintenance, $development ) = split( '\.', $version_string ); >diff --git a/Koha/TrackedLinks.pm b/Koha/TrackedLinks.pm >index bbf61b33bab..28be9d87cbe 100644 >--- a/Koha/TrackedLinks.pm >+++ b/Koha/TrackedLinks.pm >@@ -41,6 +41,12 @@ sub _type { > return 'Linktracker'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::TrackedLink'; > } >diff --git a/Koha/Virtualshelf.pm b/Koha/Virtualshelf.pm >index 6cddd84fd34..b912aba4dfc 100644 >--- a/Koha/Virtualshelf.pm >+++ b/Koha/Virtualshelf.pm >@@ -41,6 +41,12 @@ Koha::Virtualshelf - Koha Virtualshelf Object class > > =cut > >+=head2 store >+ >+Missing POD for store. >+ >+=cut >+ > sub store { > my ($self) = @_; > >@@ -67,16 +73,34 @@ sub store { > return $self->SUPER::store($self); > } > >+=head2 is_public >+ >+Missing POD for is_public. >+ >+=cut >+ > sub is_public { > my ($self) = @_; > return $self->public; > } > >+=head2 is_private >+ >+Missing POD for is_private. >+ >+=cut >+ > sub is_private { > my ($self) = @_; > return !$self->public; > } > >+=head2 is_shelfname_valid >+ >+Missing POD for is_shelfname_valid. >+ >+=cut >+ > sub is_shelfname_valid { > my ($self) = @_; > >@@ -107,6 +131,12 @@ sub is_shelfname_valid { > return $count ? 0 : 1; > } > >+=head2 get_shares >+ >+Missing POD for get_shares. >+ >+=cut >+ > sub get_shares { > my ($self) = @_; > my $rs = $self->_result->virtualshelfshares; >@@ -114,6 +144,12 @@ sub get_shares { > return $shares; > } > >+=head2 get_contents >+ >+Missing POD for get_contents. >+ >+=cut >+ > sub get_contents { > my ($self) = @_; > my $rs = $self->_result->virtualshelfcontents; >@@ -121,6 +157,12 @@ sub get_contents { > return $contents; > } > >+=head2 share >+ >+Missing POD for share. >+ >+=cut >+ > sub share { > my ( $self, $key ) = @_; > unless ($key) { >@@ -135,6 +177,12 @@ sub share { > )->store; > } > >+=head2 is_shared >+ >+Missing POD for is_shared. >+ >+=cut >+ > sub is_shared { > my ($self) = @_; > return $self->get_shares->search( >@@ -144,6 +192,12 @@ sub is_shared { > )->count; > } > >+=head2 is_shared_with >+ >+Missing POD for is_shared_with. >+ >+=cut >+ > sub is_shared_with { > my ( $self, $borrowernumber ) = @_; > return unless $borrowernumber; >@@ -154,6 +208,12 @@ sub is_shared_with { > )->count; > } > >+=head2 remove_share >+ >+Missing POD for remove_share. >+ >+=cut >+ > sub remove_share { > my ( $self, $borrowernumber ) = @_; > my $shelves = Koha::Virtualshelfshares->search( >@@ -168,6 +228,12 @@ sub remove_share { > return $shelves->next->delete; > } > >+=head2 add_biblio >+ >+Missing POD for add_biblio. >+ >+=cut >+ > sub add_biblio { > my ( $self, $biblionumber, $borrowernumber ) = @_; > return unless $biblionumber; >@@ -199,6 +265,12 @@ sub add_biblio { > return $content; > } > >+=head2 remove_biblios >+ >+Missing POD for remove_biblios. >+ >+=cut >+ > sub remove_biblios { > my ( $self, $params ) = @_; > my $biblionumbers = $params->{biblionumbers} || []; >@@ -221,6 +293,12 @@ sub remove_biblios { > return $number_removed; > } > >+=head2 can_be_viewed >+ >+Missing POD for can_be_viewed. >+ >+=cut >+ > sub can_be_viewed { > my ( $self, $borrowernumber ) = @_; > return 1 if $self->is_public; >@@ -233,6 +311,12 @@ sub can_be_viewed { > )->count; > } > >+=head2 can_be_deleted >+ >+Missing POD for can_be_deleted. >+ >+=cut >+ > sub can_be_deleted { > my ( $self, $borrowernumber ) = @_; > >@@ -246,6 +330,12 @@ sub can_be_deleted { > return 0; > } > >+=head2 can_be_managed >+ >+Missing POD for can_be_managed. >+ >+=cut >+ > sub can_be_managed { > my ( $self, $borrowernumber ) = @_; > return 1 >@@ -257,6 +347,12 @@ sub can_be_managed { > return 0; > } > >+=head2 can_biblios_be_added >+ >+Missing POD for can_biblios_be_added. >+ >+=cut >+ > sub can_biblios_be_added { > my ( $self, $borrowernumber ) = @_; > >@@ -272,6 +368,12 @@ sub can_biblios_be_added { > return 0; > } > >+=head2 can_biblios_be_removed >+ >+Missing POD for can_biblios_be_removed. >+ >+=cut >+ > sub can_biblios_be_removed { > my ( $self, $borrowernumber ) = @_; > return $self->can_biblios_be_added($borrowernumber); >diff --git a/Koha/Virtualshelfcontents.pm b/Koha/Virtualshelfcontents.pm >index edc68a83f26..80dc8c4520d 100644 >--- a/Koha/Virtualshelfcontents.pm >+++ b/Koha/Virtualshelfcontents.pm >@@ -41,6 +41,12 @@ sub _type { > return 'Virtualshelfcontent'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Virtualshelfcontent'; > } >diff --git a/Koha/Virtualshelfshares.pm b/Koha/Virtualshelfshares.pm >index 628696fb885..3469a5be52d 100644 >--- a/Koha/Virtualshelfshares.pm >+++ b/Koha/Virtualshelfshares.pm >@@ -41,6 +41,12 @@ sub _type { > return 'Virtualshelfshare'; > } > >+=head2 object_class >+ >+Missing POD for object_class. >+ >+=cut >+ > sub object_class { > return 'Koha::Virtualshelfshare'; > } >diff --git a/t/lib/Mocks/Zebra.pm b/t/lib/Mocks/Zebra.pm >index 1d61c029280..9e1203fa610 100644 >--- a/t/lib/Mocks/Zebra.pm >+++ b/t/lib/Mocks/Zebra.pm >@@ -39,6 +39,12 @@ and the usual zebra db will not be affected. However you must pass $ENV{KOHA_CON > > =cut > >+=head2 new >+ >+Missing POD for new. >+ >+=cut >+ > sub new { > my ( $class, $params ) = @_; > >@@ -72,6 +78,13 @@ sub new { > } > > # function that launches the zebra daemon >+ >+=head2 launch_zebra >+ >+Missing POD for launch_zebra. >+ >+=cut >+ > sub launch_zebra { > my ($self) = @_; > >@@ -87,6 +100,12 @@ sub launch_zebra { > $self->{zebra_pid} = $zebra_pid; > } > >+=head2 launch_indexer >+ >+Missing POD for launch_indexer. >+ >+=cut >+ > sub launch_indexer { > my ($self) = @_; > my $rootdir = dirname(__FILE__) . '/../../../'; >@@ -101,6 +120,12 @@ sub launch_indexer { > $self->{indexer_pid} = $indexer_pid; > } > >+=head2 load_records >+ >+Missing POD for load_records. >+ >+=cut >+ > sub load_records { > my ( $self, $marc_dir, $marc_format, $record_type, $init ) = @_; > >@@ -122,6 +147,12 @@ sub load_records { > } > } > >+=head2 load_records_ui >+ >+Missing POD for load_records_ui. >+ >+=cut >+ > sub load_records_ui { > my ( $self, $file ) = @_; > my $jsonresponse; >@@ -209,6 +240,12 @@ sub load_records_ui { > > } > >+=head2 clean_records >+ >+Missing POD for clean_records. >+ >+=cut >+ > sub clean_records { > my ( $self, $batch_id ) = @_; > >@@ -229,6 +266,12 @@ sub clean_records { > > } > >+=head2 cleanup >+ >+Missing POD for cleanup. >+ >+=cut >+ > sub cleanup { > my ($self) = @_; > kill 9, $self->{zebra_pid} if defined $self->{zebra_pid}; >diff --git a/t/lib/QA/TemplateFilters.pm b/t/lib/QA/TemplateFilters.pm >index 142527e9e1e..bb0a551f635 100644 >--- a/t/lib/QA/TemplateFilters.pm >+++ b/t/lib/QA/TemplateFilters.pm >@@ -122,6 +122,12 @@ sub _process_tt_content { > return { errors => \@errors, new_content => $new_content }; > } > >+=head2 process_tt_block >+ >+Missing POD for process_tt_block. >+ >+=cut >+ > sub process_tt_block { > my ( $line, $params ) = @_; > my $tt_block = $params->{tt_block}; >diff --git a/t/lib/Selenium.pm b/t/lib/Selenium.pm >index f236d344be3..ac2d13e61ce 100644 >--- a/t/lib/Selenium.pm >+++ b/t/lib/Selenium.pm >@@ -73,6 +73,12 @@ sub remove_error_handler { > $self->{driver}->error_handler( sub { } ); > } > >+=head2 config >+ >+Missing POD for config. >+ >+=cut >+ > sub config { > return { > login => $ENV{KOHA_USER} || 'koha', >@@ -97,6 +103,12 @@ sub auth { > $login_button->click(); > } > >+=head2 opac_auth >+ >+Missing POD for opac_auth. >+ >+=cut >+ > sub opac_auth { > my ( $self, $login, $password ) = @_; > >@@ -297,6 +309,12 @@ sub click_when_visible { > $elt->click unless $clicked; # finally Raise the error > } > >+=head2 max_retries >+ >+Missing POD for max_retries. >+ >+=cut >+ > sub max_retries { 10 } > > =head1 NAME >diff --git a/t/lib/TestBuilder.pm b/t/lib/TestBuilder.pm >index 9f1dcece995..94b81b7dfb7 100644 >--- a/t/lib/TestBuilder.pm >+++ b/t/lib/TestBuilder.pm >@@ -161,6 +161,12 @@ sub build { > ); > } > >+=head2 build_sample_biblio >+ >+Missing POD for build_sample_biblio. >+ >+=cut >+ > sub build_sample_biblio { > my ( $self, $args ) = @_; > >@@ -192,6 +198,12 @@ sub build_sample_biblio { > return Koha::Biblios->find($biblio_id); > } > >+=head2 build_sample_item >+ >+Missing POD for build_sample_item. >+ >+=cut >+ > sub build_sample_item { > my ( $self, $args ) = @_; > >@@ -590,6 +602,12 @@ sub _gen_text { > return $random->randregex($regex); > } > >+=head2 alt_rand >+ >+Missing POD for alt_rand. >+ >+=cut >+ > sub alt_rand { #Alternative randomizer > my ($max) = @_; > my $random = Bytes::Random::Secure->new( NonBlocking => 1 ); >-- >2.34.1
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 39367
:
179451
|
179452
|
179453
|
179456
|
179457
|
179458
|
179459
|
179460
|
179544
|
179545
|
179546
|
179547
|
179548
|
179549
|
180089
|
180090
|
180091
|
180092
|
180093
|
180094
|
181238