1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>)
# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST.
#
# !! DO NOT EDIT THIS FILE !!
#
=head1 NAME
RT::FM::ClassCollection -- Class Description
=head1 SYNOPSIS
use RT::FM::ClassCollection
=head1 DESCRIPTION
=head1 METHODS
=cut
package RT::FM::ClassCollection;
use RT::FM::SearchBuilder;
use RT::FM::Class;
use base qw(RT::FM::SearchBuilder);
sub _Init {
my $self = shift;
$self->{'table'} = 'FM_Classes';
$self->{'primary_key'} = 'id';
# By default, order by name
$self->OrderBy( ALIAS => 'main',
FIELD => 'SortOrder',
ORDER => 'ASC');
return ( $self->SUPER::_Init(@_) );
}
=item NewItem
Returns an empty new RT::FM::Class item
=cut
sub NewItem {
my $self = shift;
return(RT::FM::Class->new($self->CurrentUser));
}
eval "require RT::FM::ClassCollection_Overlay";
if ($@ && $@ !~ /^Can't locate/) {
die $@;
};
eval "require RT::FM::ClassCollection_Local";
if ($@ && $@ !~ /^Can't locate/) {
die $@;
};
=head1 SEE ALSO
This class allows "overlay" methods to be placed
into the following files _Overlay is for a System overlay by the original author,
while _Local is for site-local customizations.
These overlay files can contain new subs or subs to replace existing subs in this module.
If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line
no warnings qw(redefine);
so that perl does not kick and scream when you redefine a subroutine or variable in your overlay.
RT::FM::ClassCollection_Overlay, RT::FM::ClassCollection_Local
=cut
1;
|
