From 5337aed380c45743e4d83ae8ee518292023e6e17 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Tue, 15 May 2018 17:16:34 +0200 Subject: [PATCH] Bug 15774: Add POD and license notices --- Koha/AdditionalField.pm | 30 ++++++++++++++++------------- Koha/AdditionalFieldValue.pm | 35 ++++++++++++++++++++++++++++++++++ Koha/AdditionalFieldValues.pm | 35 ++++++++++++++++++++++++++++++++++ Koha/AdditionalFields.pm | 34 +++++++++++++++++++++++++++++++++ Koha/Object/Mixin/AdditionalFields.pm | 32 +++++++++++++++++++++++++++++++ Koha/Objects/Mixin/AdditionalFields.pm | 24 +++++++++++++++++++++++ 6 files changed, 177 insertions(+), 13 deletions(-) diff --git a/Koha/AdditionalField.pm b/Koha/AdditionalField.pm index 78de775d5e..721c01fffc 100644 --- a/Koha/AdditionalField.pm +++ b/Koha/AdditionalField.pm @@ -1,5 +1,11 @@ package Koha::AdditionalField; +=head1 NAME + +Koha::AdditionalField - Koha::Object derived class for additional fields + +=cut + use Modern::Perl; use base qw(Koha::Object); @@ -8,23 +14,13 @@ use C4::Context; sub _type { 'AdditionalField' } -1; - -__END__ - -=head1 NAME - -Koha::AdditionalField - =head1 AUTHOR -Jonathan Druart +Koha Development Team -=head1 COPYRIGHT +=head1 COPYRIGHT AND LICENSE -Copyright 2013 BibLibre - -=head1 LICENSE +Copyright 2013, 2018 BibLibre This file is part of Koha. @@ -39,3 +35,11 @@ A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Koha; if not, see . + +=head1 SEE ALSO + +L + +=cut + +1; diff --git a/Koha/AdditionalFieldValue.pm b/Koha/AdditionalFieldValue.pm index f54c811ad8..48c399f147 100644 --- a/Koha/AdditionalFieldValue.pm +++ b/Koha/AdditionalFieldValue.pm @@ -1,9 +1,44 @@ package Koha::AdditionalFieldValue; +=head1 NAME + +Koha::AdditionalFieldValue - Koha::Object derived class for additional field +values + +=cut + use Modern::Perl; use base 'Koha::Object'; sub _type { 'AdditionalFieldValue' } +=head1 AUTHOR + +Koha Development Team + +=head1 COPYRIGHT AND LICENSE + +Copyright 2018 BibLibre + +This file is part of Koha. + +Koha is free software; you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation; either version 3 of the License, or (at your option) any later +version. + +Koha is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +A PARTICULAR PURPOSE. See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License along +with Koha; if not, see . + +=head1 SEE ALSO + +L + +=cut + 1; diff --git a/Koha/AdditionalFieldValues.pm b/Koha/AdditionalFieldValues.pm index fa3576fa4f..2b890140e7 100644 --- a/Koha/AdditionalFieldValues.pm +++ b/Koha/AdditionalFieldValues.pm @@ -1,5 +1,12 @@ package Koha::AdditionalFieldValues; +=head1 NAME + +Koha::AdditionalFieldValues - Koha::Objects derived class for additional field +values + +=cut + use Modern::Perl; use base 'Koha::Objects'; @@ -7,4 +14,32 @@ use base 'Koha::Objects'; sub _type { 'AdditionalFieldValue' } sub object_class { 'Koha::AdditionalFieldValue' } +=head1 AUTHOR + +Koha Development Team + +=head1 COPYRIGHT AND LICENSE + +Copyright 2018 BibLibre + +This file is part of Koha. + +Koha is free software; you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation; either version 3 of the License, or (at your option) any later +version. + +Koha is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +A PARTICULAR PURPOSE. See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License along +with Koha; if not, see . + +=head1 SEE ALSO + +L + +=cut + 1; diff --git a/Koha/AdditionalFields.pm b/Koha/AdditionalFields.pm index 2d4761bbec..4900ddaa18 100644 --- a/Koha/AdditionalFields.pm +++ b/Koha/AdditionalFields.pm @@ -1,5 +1,11 @@ package Koha::AdditionalFields; +=head1 NAME + +Koha::AdditionalFields - Koha::Objects derived class for additional fields + +=cut + use Modern::Perl; use base 'Koha::Objects'; @@ -9,4 +15,32 @@ use Koha::AdditionalField; sub _type { 'AdditionalField' } sub object_class { 'Koha::AdditionalField' } +=head1 AUTHOR + +Koha Development Team + +=head1 COPYRIGHT AND LICENSE + +Copyright 2018 BibLibre + +This file is part of Koha. + +Koha is free software; you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation; either version 3 of the License, or (at your option) any later +version. + +Koha is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +A PARTICULAR PURPOSE. See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License along +with Koha; if not, see . + +=head1 SEE ALSO + +L + +=cut + 1; diff --git a/Koha/Object/Mixin/AdditionalFields.pm b/Koha/Object/Mixin/AdditionalFields.pm index 090e2824c2..e297058adf 100644 --- a/Koha/Object/Mixin/AdditionalFields.pm +++ b/Koha/Object/Mixin/AdditionalFields.pm @@ -59,10 +59,42 @@ sub set_additional_fields { } } +=head3 additional_field_values + +Returns additional field values + + my @values = $foo->additional_field_values; + +=cut + sub additional_field_values { my ($self) = @_; return $self->_result->additional_field_values; } +=head1 AUTHOR + +Koha Development Team + +=head1 COPYRIGHT AND LICENSE + +Copyright 2018 BibLibre + +This file is part of Koha. + +Koha is free software; you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation; either version 3 of the License, or (at your option) any later +version. + +Koha is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +A PARTICULAR PURPOSE. See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License along +with Koha; if not, see . + +=cut + 1; diff --git a/Koha/Objects/Mixin/AdditionalFields.pm b/Koha/Objects/Mixin/AdditionalFields.pm index 62c784f183..cf3db56132 100644 --- a/Koha/Objects/Mixin/AdditionalFields.pm +++ b/Koha/Objects/Mixin/AdditionalFields.pm @@ -56,4 +56,28 @@ sub search_additional_fields { return $class->search(\%conditions, { join => [ ('additional_field_values') x $idx ] }); } +=head1 AUTHOR + +Koha Development Team + +=head1 COPYRIGHT AND LICENSE + +Copyright 2018 BibLibre + +This file is part of Koha. + +Koha is free software; you can redistribute it and/or modify it under the +terms of the GNU General Public License as published by the Free Software +Foundation; either version 3 of the License, or (at your option) any later +version. + +Koha is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +A PARTICULAR PURPOSE. See the GNU General Public License for more details. + +You should have received a copy of the GNU General Public License along +with Koha; if not, see . + +=cut + 1; -- 2.14.2