Bug 15774: Add POD and license notices

Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Julian Maurice 2018-05-15 17:16:34 +02:00 committed by Nick Clemens
parent 904a488460
commit 284b543ea4
6 changed files with 177 additions and 13 deletions

View File

@ -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 <jonathan.druart at biblibre.com>
Koha Development Team <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=head1 SEE ALSO
L<Koha::Object>
=cut
1;

View File

@ -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 <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=head1 SEE ALSO
L<Koha::Object>
=cut
1;

View File

@ -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 <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=head1 SEE ALSO
L<Koha::Objects>
=cut
1;

View File

@ -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 <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=head1 SEE ALSO
L<Koha::Objects>
=cut
1;

View File

@ -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 <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=cut
1;

View File

@ -56,4 +56,28 @@ sub search_additional_fields {
return $class->search(\%conditions, { join => [ ('additional_field_values') x $idx ] });
}
=head1 AUTHOR
Koha Development Team <http://koha-community.org/>
=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 <http://www.gnu.org/licenses>.
=cut
1;