View | Details | Raw Unified | Return to bug 15774
Collapse All | Expand All

(-)a/Koha/AdditionalField.pm (-13 / +17 lines)
Lines 1-5 Link Here
1
package Koha::AdditionalField;
1
package Koha::AdditionalField;
2
2
3
=head1 NAME
4
5
Koha::AdditionalField - Koha::Object derived class for additional fields
6
7
=cut
8
3
use Modern::Perl;
9
use Modern::Perl;
4
10
5
use base qw(Koha::Object);
11
use base qw(Koha::Object);
Lines 8-30 use C4::Context; Link Here
8
14
9
sub _type { 'AdditionalField' }
15
sub _type { 'AdditionalField' }
10
16
11
1;
12
13
__END__
14
15
=head1 NAME
16
17
Koha::AdditionalField
18
19
=head1 AUTHOR
17
=head1 AUTHOR
20
18
21
Jonathan Druart <jonathan.druart at biblibre.com>
19
Koha Development Team <http://koha-community.org/>
22
20
23
=head1 COPYRIGHT
21
=head1 COPYRIGHT AND LICENSE
24
22
25
Copyright 2013 BibLibre
23
Copyright 2013, 2018 BibLibre
26
27
=head1 LICENSE
28
24
29
This file is part of Koha.
25
This file is part of Koha.
30
26
Lines 39-41 A PARTICULAR PURPOSE. See the GNU General Public License for more details. Link Here
39
35
40
You should have received a copy of the GNU General Public License along
36
You should have received a copy of the GNU General Public License along
41
with Koha; if not, see <http://www.gnu.org/licenses>.
37
with Koha; if not, see <http://www.gnu.org/licenses>.
38
39
=head1 SEE ALSO
40
41
L<Koha::Object>
42
43
=cut
44
45
1;
(-)a/Koha/AdditionalFieldValue.pm (+35 lines)
Lines 1-9 Link Here
1
package Koha::AdditionalFieldValue;
1
package Koha::AdditionalFieldValue;
2
2
3
=head1 NAME
4
5
Koha::AdditionalFieldValue - Koha::Object derived class for additional field
6
values
7
8
=cut
9
3
use Modern::Perl;
10
use Modern::Perl;
4
11
5
use base 'Koha::Object';
12
use base 'Koha::Object';
6
13
7
sub _type { 'AdditionalFieldValue' }
14
sub _type { 'AdditionalFieldValue' }
8
15
16
=head1 AUTHOR
17
18
Koha Development Team <http://koha-community.org/>
19
20
=head1 COPYRIGHT AND LICENSE
21
22
Copyright 2018 BibLibre
23
24
This file is part of Koha.
25
26
Koha is free software; you can redistribute it and/or modify it under the
27
terms of the GNU General Public License as published by the Free Software
28
Foundation; either version 3 of the License, or (at your option) any later
29
version.
30
31
Koha is distributed in the hope that it will be useful, but WITHOUT ANY
32
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
33
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
34
35
You should have received a copy of the GNU General Public License along
36
with Koha; if not, see <http://www.gnu.org/licenses>.
37
38
=head1 SEE ALSO
39
40
L<Koha::Object>
41
42
=cut
43
9
1;
44
1;
(-)a/Koha/AdditionalFieldValues.pm (+35 lines)
Lines 1-5 Link Here
1
package Koha::AdditionalFieldValues;
1
package Koha::AdditionalFieldValues;
2
2
3
=head1 NAME
4
5
Koha::AdditionalFieldValues - Koha::Objects derived class for additional field
6
values
7
8
=cut
9
3
use Modern::Perl;
10
use Modern::Perl;
4
11
5
use base 'Koha::Objects';
12
use base 'Koha::Objects';
Lines 7-10 use base 'Koha::Objects'; Link Here
7
sub _type { 'AdditionalFieldValue' }
14
sub _type { 'AdditionalFieldValue' }
8
sub object_class { 'Koha::AdditionalFieldValue' }
15
sub object_class { 'Koha::AdditionalFieldValue' }
9
16
17
=head1 AUTHOR
18
19
Koha Development Team <http://koha-community.org/>
20
21
=head1 COPYRIGHT AND LICENSE
22
23
Copyright 2018 BibLibre
24
25
This file is part of Koha.
26
27
Koha is free software; you can redistribute it and/or modify it under the
28
terms of the GNU General Public License as published by the Free Software
29
Foundation; either version 3 of the License, or (at your option) any later
30
version.
31
32
Koha is distributed in the hope that it will be useful, but WITHOUT ANY
33
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
34
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
35
36
You should have received a copy of the GNU General Public License along
37
with Koha; if not, see <http://www.gnu.org/licenses>.
38
39
=head1 SEE ALSO
40
41
L<Koha::Objects>
42
43
=cut
44
10
1;
45
1;
(-)a/Koha/AdditionalFields.pm (+34 lines)
Lines 1-5 Link Here
1
package Koha::AdditionalFields;
1
package Koha::AdditionalFields;
2
2
3
=head1 NAME
4
5
Koha::AdditionalFields - Koha::Objects derived class for additional fields
6
7
=cut
8
3
use Modern::Perl;
9
use Modern::Perl;
4
10
5
use base 'Koha::Objects';
11
use base 'Koha::Objects';
Lines 9-12 use Koha::AdditionalField; Link Here
9
sub _type { 'AdditionalField' }
15
sub _type { 'AdditionalField' }
10
sub object_class { 'Koha::AdditionalField' }
16
sub object_class { 'Koha::AdditionalField' }
11
17
18
=head1 AUTHOR
19
20
Koha Development Team <http://koha-community.org/>
21
22
=head1 COPYRIGHT AND LICENSE
23
24
Copyright 2018 BibLibre
25
26
This file is part of Koha.
27
28
Koha is free software; you can redistribute it and/or modify it under the
29
terms of the GNU General Public License as published by the Free Software
30
Foundation; either version 3 of the License, or (at your option) any later
31
version.
32
33
Koha is distributed in the hope that it will be useful, but WITHOUT ANY
34
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
35
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
36
37
You should have received a copy of the GNU General Public License along
38
with Koha; if not, see <http://www.gnu.org/licenses>.
39
40
=head1 SEE ALSO
41
42
L<Koha::Objects>
43
44
=cut
45
12
1;
46
1;
(-)a/Koha/Object/Mixin/AdditionalFields.pm (+32 lines)
Lines 59-68 sub set_additional_fields { Link Here
59
    }
59
    }
60
}
60
}
61
61
62
=head3 additional_field_values
63
64
Returns additional field values
65
66
    my @values = $foo->additional_field_values;
67
68
=cut
69
62
sub additional_field_values {
70
sub additional_field_values {
63
    my ($self) = @_;
71
    my ($self) = @_;
64
72
65
    return $self->_result->additional_field_values;
73
    return $self->_result->additional_field_values;
66
}
74
}
67
75
76
=head1 AUTHOR
77
78
Koha Development Team <http://koha-community.org/>
79
80
=head1 COPYRIGHT AND LICENSE
81
82
Copyright 2018 BibLibre
83
84
This file is part of Koha.
85
86
Koha is free software; you can redistribute it and/or modify it under the
87
terms of the GNU General Public License as published by the Free Software
88
Foundation; either version 3 of the License, or (at your option) any later
89
version.
90
91
Koha is distributed in the hope that it will be useful, but WITHOUT ANY
92
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
93
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
94
95
You should have received a copy of the GNU General Public License along
96
with Koha; if not, see <http://www.gnu.org/licenses>.
97
98
=cut
99
68
1;
100
1;
(-)a/Koha/Objects/Mixin/AdditionalFields.pm (-1 / +24 lines)
Lines 56-59 sub search_additional_fields { Link Here
56
    return $class->search(\%conditions, { join => [ ('additional_field_values') x $idx ] });
56
    return $class->search(\%conditions, { join => [ ('additional_field_values') x $idx ] });
57
}
57
}
58
58
59
=head1 AUTHOR
60
61
Koha Development Team <http://koha-community.org/>
62
63
=head1 COPYRIGHT AND LICENSE
64
65
Copyright 2018 BibLibre
66
67
This file is part of Koha.
68
69
Koha is free software; you can redistribute it and/or modify it under the
70
terms of the GNU General Public License as published by the Free Software
71
Foundation; either version 3 of the License, or (at your option) any later
72
version.
73
74
Koha is distributed in the hope that it will be useful, but WITHOUT ANY
75
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
76
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
77
78
You should have received a copy of the GNU General Public License along
79
with Koha; if not, see <http://www.gnu.org/licenses>.
80
81
=cut
82
59
1;
83
1;
60
- 

Return to bug 15774