3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 # (Except where explictly superceded by other copyright notices)
7 # This work is made available to you under the terms of Version 2 of
8 # the GNU General Public License. A copy of that license should have
9 # been provided with this software, but in any event can be snarfed
12 # This work is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # Unless otherwise specified, all modifications, corrections or
18 # extensions to this work which alter its source code become the
19 # property of Best Practical Solutions, LLC when submitted for
20 # inclusion in the work.
24 # Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>)
25 # WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST.
27 # !! DO NOT EDIT THIS FILE !!
46 package RT::CachedGroupMember;
51 @ISA= qw( RT::Record );
56 $self->Table('CachedGroupMembers');
57 $self->SUPER::_Init(@_);
64 =item Create PARAMHASH
66 Create takes a hash of values and creates a row in the database:
71 int(11) 'ImmediateParentId'.
72 smallint(6) 'Disabled'.
85 ImmediateParentId => '',
90 GroupId => $args{'GroupId'},
91 MemberId => $args{'MemberId'},
93 ImmediateParentId => $args{'ImmediateParentId'},
94 Disabled => $args{'Disabled'},
103 Returns the current value of id.
104 (In the database, id is stored as int(11).)
112 Returns the current value of GroupId.
113 (In the database, GroupId is stored as int(11).)
117 =item SetGroupId VALUE
120 Set GroupId to VALUE.
121 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
122 (In the database, GroupId will be stored as a int(11).)
130 Returns the current value of MemberId.
131 (In the database, MemberId is stored as int(11).)
135 =item SetMemberId VALUE
138 Set MemberId to VALUE.
139 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
140 (In the database, MemberId will be stored as a int(11).)
148 Returns the current value of Via.
149 (In the database, Via is stored as int(11).)
157 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
158 (In the database, Via will be stored as a int(11).)
164 =item ImmediateParentId
166 Returns the current value of ImmediateParentId.
167 (In the database, ImmediateParentId is stored as int(11).)
171 =item SetImmediateParentId VALUE
174 Set ImmediateParentId to VALUE.
175 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
176 (In the database, ImmediateParentId will be stored as a int(11).)
184 Returns the current value of Disabled.
185 (In the database, Disabled is stored as smallint(6).)
189 =item SetDisabled VALUE
192 Set Disabled to VALUE.
193 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
194 (In the database, Disabled will be stored as a smallint(6).)
201 sub _ClassAccessible {
205 {read => 1, type => 'int(11)', default => ''},
207 {read => 1, write => 1, type => 'int(11)', default => ''},
209 {read => 1, write => 1, type => 'int(11)', default => ''},
211 {read => 1, write => 1, type => 'int(11)', default => ''},
213 {read => 1, write => 1, type => 'int(11)', default => ''},
215 {read => 1, write => 1, type => 'smallint(6)', default => '0'},
221 eval "require RT::CachedGroupMember_Overlay";
222 if ($@ && $@ !~ qr{^Can't locate RT/CachedGroupMember_Overlay.pm}) {
226 eval "require RT::CachedGroupMember_Vendor";
227 if ($@ && $@ !~ qr{^Can't locate RT/CachedGroupMember_Vendor.pm}) {
231 eval "require RT::CachedGroupMember_Local";
232 if ($@ && $@ !~ qr{^Can't locate RT/CachedGroupMember_Local.pm}) {
241 This class allows "overlay" methods to be placed
242 into the following files _Overlay is for a System overlay by the original author,
243 _Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations.
245 These overlay files can contain new subs or subs to replace existing subs in this module.
247 If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line
249 no warnings qw(redefine);
251 so that perl does not kick and scream when you redefine a subroutine or variable in your overlay.
253 RT::CachedGroupMember_Overlay, RT::CachedGroupMember_Vendor, RT::CachedGroupMember_Local