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

(-)a/Koha/Acquisition/Contract.pm (+55 lines)
Line 0 Link Here
1
package Koha::Acquisition::Contract;
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use Koha::Database;
21
22
use base qw(Koha::Object);
23
24
=head1 NAME
25
26
Koha::Acquisition::Contract - Koha Acquisition Contract Object class
27
28
=head1 API
29
30
=head2 Class Methods
31
32
=cut
33
34
=head3 store
35
36
=cut
37
38
sub store {
39
    my ($self) = @_;
40
41
    Koha::Exceptions::MissingParameter->throw("Missing mandatory parameter: booksellerid")
42
        unless $self->booksellerid;
43
44
    return $self->SUPER::store();
45
}
46
47
=head3 _type
48
49
=cut
50
51
sub _type {
52
    return 'Aqcontract';
53
}
54
55
1;
(-)a/Koha/Acquisition/Contracts.pm (+52 lines)
Line 0 Link Here
1
package Koha::Acquisition::Contracts;
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use Koha::Database;
21
22
use base qw(Koha::Objects);
23
24
use Koha::Acquisition::Contract;
25
26
=head1 NAME
27
28
Koha::Acquisition::Contracts - Koha Acquisition Contracts Object class
29
30
=head1 API
31
32
=head2 Class Methods
33
34
=cut
35
36
=head3 _type
37
38
=cut
39
40
sub _type {
41
    return 'Aqcontract';
42
}
43
44
=head3 object_class (internal)
45
46
=cut
47
48
sub object_class {
49
    return 'Koha::Acquisition::Contract';
50
}
51
52
1;
(-)a/Koha/Schema/Result/Aqcontract.pm (-1 / +20 lines)
Lines 124-128 __PACKAGE__->belongs_to( Link Here
124
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ar69aHSxYQohZDQ+GtIIqA
124
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ar69aHSxYQohZDQ+GtIIqA
125
125
126
126
127
=head2 koha_object_class
128
129
  Koha Object class
130
131
=cut
132
133
sub koha_object_class {
134
    'Koha::Acquisition::Contract';
135
}
136
137
=head2 koha_objects_class
138
139
  Koha Objects class
140
141
=cut
142
143
sub koha_objects_class {
144
    'Koha::Acquisition::Contracts';
145
}
146
127
# You can replace this text with custom content, and it will be preserved on regeneration
147
# You can replace this text with custom content, and it will be preserved on regeneration
128
1;
148
1;
129
- 

Return to bug 39711