rt/lib/RT/ScripCondition.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::ScripCondition
  36
  37
  38 =head1 SYNOPSIS
  39
  40 =head1 DESCRIPTION
  41
  42 =head1 METHODS
  43
  44 =cut
  45
  46 package RT::ScripCondition;
  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('ScripConditions');
  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   varchar(200) 'Name'.
  69   varchar(255) 'Description'.
  70   varchar(60) 'ExecModule'.
  71   varchar(255) 'Argument'.
  72   varchar(60) 'ApplicableTransTypes'.
  73
  74 =cut
  75
  76
  77
  78
  79 sub Create {
  80     my $self = shift;
  81     my %args = (
  82                 Name => '',
  83                 Description => '',
  84                 ExecModule => '',
  85                 Argument => '',
  86                 ApplicableTransTypes => '',
  87
  88                   @_);
  89     $self->SUPER::Create(
  90                          Name => $args{'Name'},
  91                          Description => $args{'Description'},
  92                          ExecModule => $args{'ExecModule'},
  93                          Argument => $args{'Argument'},
  94                          ApplicableTransTypes => $args{'ApplicableTransTypes'},
  95 );
  96
  97 }
  98
  99
 100
 101 =item id
 102
 103 Returns the current value of id.
 104 (In the database, id is stored as int(11).)
 105
 106
 107 =cut
 108
 109
 110 =item Name
 111
 112 Returns the current value of Name.
 113 (In the database, Name is stored as varchar(200).)
 114
 115
 116
 117 =item SetName VALUE
 118
 119
 120 Set Name to VALUE.
 121 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 122 (In the database, Name will be stored as a varchar(200).)
 123
 124
 125 =cut
 126
 127
 128 =item Description
 129
 130 Returns the current value of Description.
 131 (In the database, Description is stored as varchar(255).)
 132
 133
 134
 135 =item SetDescription VALUE
 136
 137
 138 Set Description to VALUE.
 139 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 140 (In the database, Description will be stored as a varchar(255).)
 141
 142
 143 =cut
 144
 145
 146 =item ExecModule
 147
 148 Returns the current value of ExecModule.
 149 (In the database, ExecModule is stored as varchar(60).)
 150
 151
 152
 153 =item SetExecModule VALUE
 154
 155
 156 Set ExecModule to VALUE.
 157 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 158 (In the database, ExecModule will be stored as a varchar(60).)
 159
 160
 161 =cut
 162
 163
 164 =item Argument
 165
 166 Returns the current value of Argument.
 167 (In the database, Argument is stored as varchar(255).)
 168
 169
 170
 171 =item SetArgument VALUE
 172
 173
 174 Set Argument to VALUE.
 175 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 176 (In the database, Argument will be stored as a varchar(255).)
 177
 178
 179 =cut
 180
 181
 182 =item ApplicableTransTypes
 183
 184 Returns the current value of ApplicableTransTypes.
 185 (In the database, ApplicableTransTypes is stored as varchar(60).)
 186
 187
 188
 189 =item SetApplicableTransTypes VALUE
 190
 191
 192 Set ApplicableTransTypes to VALUE.
 193 Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 194 (In the database, ApplicableTransTypes will be stored as a varchar(60).)
 195
 196
 197 =cut
 198
 199
 200 =item Creator
 201
 202 Returns the current value of Creator.
 203 (In the database, Creator is stored as int(11).)
 204
 205
 206 =cut
 207
 208
 209 =item Created
 210
 211 Returns the current value of Created.
 212 (In the database, Created is stored as datetime.)
 213
 214
 215 =cut
 216
 217
 218 =item LastUpdatedBy
 219
 220 Returns the current value of LastUpdatedBy.
 221 (In the database, LastUpdatedBy is stored as int(11).)
 222
 223
 224 =cut
 225
 226
 227 =item LastUpdated
 228
 229 Returns the current value of LastUpdated.
 230 (In the database, LastUpdated is stored as datetime.)
 231
 232
 233 =cut
 234
 235
 236
 237 sub _ClassAccessible {
 238     {
 239
 240         id =>
 241                 {read => 1, type => 'int(11)', default => ''},
 242         Name =>
 243                 {read => 1, write => 1, type => 'varchar(200)', default => ''},
 244         Description =>
 245                 {read => 1, write => 1, type => 'varchar(255)', default => ''},
 246         ExecModule =>
 247                 {read => 1, write => 1, type => 'varchar(60)', default => ''},
 248         Argument =>
 249                 {read => 1, write => 1, type => 'varchar(255)', default => ''},
 250         ApplicableTransTypes =>
 251                 {read => 1, write => 1, type => 'varchar(60)', default => ''},
 252         Creator =>
 253                 {read => 1, auto => 1, type => 'int(11)', default => '0'},
 254         Created =>
 255                 {read => 1, auto => 1, type => 'datetime', default => ''},
 256         LastUpdatedBy =>
 257                 {read => 1, auto => 1, type => 'int(11)', default => '0'},
 258         LastUpdated =>
 259                 {read => 1, auto => 1, type => 'datetime', default => ''},
 260
 261  }
 262 };
 263
 264
 265         eval "require RT::ScripCondition_Overlay";
 266         if ($@ && $@ !~ qr{^Can't locate RT/ScripCondition_Overlay.pm}) {
 267             die $@;
 268         };
 269
 270         eval "require RT::ScripCondition_Vendor";
 271         if ($@ && $@ !~ qr{^Can't locate RT/ScripCondition_Vendor.pm}) {
 272             die $@;
 273         };
 274
 275         eval "require RT::ScripCondition_Local";
 276         if ($@ && $@ !~ qr{^Can't locate RT/ScripCondition_Local.pm}) {
 277             die $@;
 278         };
 279
 280
 281
 282
 283 =head1 SEE ALSO
 284
 285 This class allows "overlay" methods to be placed
 286 into the following files _Overlay is for a System overlay by the original author,
 287 _Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations.
 288
 289 These overlay files can contain new subs or subs to replace existing subs in this module.
 290
 291 If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line
 292
 293    no warnings qw(redefine);
 294
 295 so that perl does not kick and scream when you redefine a subroutine or variable in your overlay.
 296
 297 RT::ScripCondition_Overlay, RT::ScripCondition_Vendor, RT::ScripCondition_Local
 298
 299 =cut
 300
 301
 302 1;