rt/lib/RT/GroupMember.pm

   1 # BEGIN LICENSE BLOCK
   2 #
   3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 #
   5 # (Except where explictly superceded by other copyright notices)
   6 #
   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
  10 # from www.gnu.org.
  11 #
  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.
  16 #
  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.
  21 #
  22 #
  23 # END LICENSE BLOCK
  24 # Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>)
  25 # WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST.
  26 #
  27 # !! DO NOT EDIT THIS FILE !!
  28 #
  29
  30 use strict;
  31
  32
  33 =head1 NAME
  34
  35 RT::GroupMember
  36
  37
  38 =head1 SYNOPSIS
  39
  40 =head1 DESCRIPTION
  41
  42 =head1 METHODS
  43
  44 =cut
  45
  46 package RT::GroupMember;
  47 use RT::Record;
  48
  49
  50 use vars qw( @ISA );
  51 @ISA= qw( RT::Record );
  52
  53 sub _Init {
  54   my $self = shift;
  55
  56   $self->Table('GroupMembers');
  57   $self->SUPER::_Init(@_);
  58 }
  59
  60
  61
  62
  63
  64 =item Create PARAMHASH
  65
  66 Create takes a hash of values and creates a row in the database:
  67
  68   int(11) 'GroupId'.
  69   int(11) 'MemberId'.
  70
  71 =cut
  72
  73
  74
  75
  76 sub Create {
  77     my $self = shift;
  78     my %args = (
  79                 GroupId => '0',
  80                 MemberId => '0',
  81
  82                   @_);
  83     $self->SUPER::Create(
  84                          GroupId => $args{'GroupId'},
  85                          MemberId => $args{'MemberId'},
  86 );
  87
  88 }
  89
  90
  91
  92 =item id
  93
  94 Returns the current value of id.
  95 (In the database, id is stored as int(11).)
  96
  97
  98 =cut
  99
 100
 101 =item GroupId
 102
 103 Returns the current value of GroupId.
 104 (In the database, GroupId is stored as int(11).)
 105
 106
 107
 108 =item SetGroupId VALUE
 109
 110
 111 Set GroupId to VALUE.
 112 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 113 (In the database, GroupId will be stored as a int(11).)
 114
 115
 116 =cut
 117
 118
 119 =item MemberId
 120
 121 Returns the current value of MemberId.
 122 (In the database, MemberId is stored as int(11).)
 123
 124
 125
 126 =item SetMemberId VALUE
 127
 128
 129 Set MemberId to VALUE.
 130 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 131 (In the database, MemberId will be stored as a int(11).)
 132
 133
 134 =cut
 135
 136
 137
 138 sub _ClassAccessible {
 139     {
 140
 141         id =>
 142                 {read => 1, type => 'int(11)', default => ''},
 143         GroupId =>
 144                 {read => 1, write => 1, type => 'int(11)', default => '0'},
 145         MemberId =>
 146                 {read => 1, write => 1, type => 'int(11)', default => '0'},
 147
 148  }
 149 };
 150
 151
 152         eval "require RT::GroupMember_Overlay";
 153         if ($@ && $@ !~ qr{^Can't locate RT/GroupMember_Overlay.pm}) {
 154             die $@;
 155         };
 156
 157         eval "require RT::GroupMember_Vendor";
 158         if ($@ && $@ !~ qr{^Can't locate RT/GroupMember_Vendor.pm}) {
 159             die $@;
 160         };
 161
 162         eval "require RT::GroupMember_Local";
 163         if ($@ && $@ !~ qr{^Can't locate RT/GroupMember_Local.pm}) {
 164             die $@;
 165         };
 166
 167
 168
 169
 170 =head1 SEE ALSO
 171
 172 This class allows "overlay" methods to be placed
 173 into the following files _Overlay is for a System overlay by the original author,
 174 _Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations.
 175
 176 These overlay files can contain new subs or subs to replace existing subs in this module.
 177
 178 If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line
 179
 180    no warnings qw(redefine);
 181
 182 so that perl does not kick and scream when you redefine a subroutine or variable in your overlay.
 183
 184 RT::GroupMember_Overlay, RT::GroupMember_Vendor, RT::GroupMember_Local
 185
 186 =cut
 187
 188
 189 1;