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

(-)a/Koha/Edifact/File.pm (+50 lines)
Line 0 Link Here
1
package Koha::Edifact::File;
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 base qw(Koha::Object);
21
22
=encoding utf8
23
24
=head1 Name
25
26
Koha::Edifact::File - Koha::Object class for single edifact file
27
28
=head2 Class methods
29
30
=head2 Internal methods
31
32
=head3 _type
33
34
Returns name of corresponding DBIC resultset
35
36
=cut
37
38
sub _type {
39
    return 'EdifactMessage';
40
}
41
42
=head1 AUTHOR
43
44
Martin Renvoize <martin.renvoize@ptfs-europe.com>
45
46
Koha Development Team
47
48
=cut
49
50
1;
(-)a/Koha/Edifact/Files.pm (-1 / +62 lines)
Line 0 Link Here
0
- 
1
package Koha::Edifact::Files;
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
=head1 NAME
25
26
Koha::Edifact::Files - Koha Edifact File Object set class
27
28
=head1 API
29
30
=head2 Class Methods
31
32
=head2 Internal methods
33
34
=head3 _type
35
36
Returns name of corresponding DBIC resultset
37
38
=cut
39
40
sub _type {
41
    return 'EdifactMessage';
42
}
43
44
=head3 object_class
45
46
Returns name of corresponding koha object class
47
48
=cut
49
50
sub object_class {
51
    return 'Koha::Edifact::File';
52
}
53
54
=head1 AUTHOR
55
56
Martin Renvoize <martin.renvoize@ptfs-europe.com>
57
58
Koha Development Team
59
60
=cut
61
62
1;

Return to bug 30070