From 393958571ade5d242932dfdc86315fb6a4d2c35b Mon Sep 17 00:00:00 2001 From: Jonathan Druart 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: =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 < $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 =~ /^{'_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 = "\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