rt/lib/RT/ScripActions.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::ScripActions -- Class Description
  36
  37 =head1 SYNOPSIS
  38
  39   use RT::ScripActions
  40
  41 =head1 DESCRIPTION
  42
  43
  44 =head1 METHODS
  45
  46 =cut
  47
  48 package RT::ScripActions;
  49
  50 use RT::SearchBuilder;
  51 use RT::ScripAction;
  52
  53 use vars qw( @ISA );
  54 @ISA= qw(RT::SearchBuilder);
  55
  56
  57 sub _Init {
  58     my $self = shift;
  59     $self->{'table'} = 'ScripActions';
  60     $self->{'primary_key'} = 'id';
  61
  62
  63     return ( $self->SUPER::_Init(@_) );
  64 }
  65
  66
  67 =item NewItem
  68
  69 Returns an empty new RT::ScripAction item
  70
  71 =cut
  72
  73 sub NewItem {
  74     my $self = shift;
  75     return(RT::ScripAction->new($self->CurrentUser));
  76 }
  77
  78         eval "require RT::ScripActions_Overlay";
  79         if ($@ && $@ !~ qr{^Can't locate RT/ScripActions_Overlay.pm}) {
  80             die $@;
  81         };
  82
  83         eval "require RT::ScripActions_Vendor";
  84         if ($@ && $@ !~ qr{^Can't locate RT/ScripActions_Vendor.pm}) {
  85             die $@;
  86         };
  87
  88         eval "require RT::ScripActions_Local";
  89         if ($@ && $@ !~ qr{^Can't locate RT/ScripActions_Local.pm}) {
  90             die $@;
  91         };
  92
  93
  94
  95
  96 =head1 SEE ALSO
  97
  98 This class allows "overlay" methods to be placed
  99 into the following files _Overlay is for a System overlay by the original author,
 100 _Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations.
 101
 102 These overlay files can contain new subs or subs to replace existing subs in this module.
 103
 104 If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line
 105
 106    no warnings qw(redefine);
 107
 108 so that perl does not kick and scream when you redefine a subroutine or variable in your overlay.
 109
 110 RT::ScripActions_Overlay, RT::ScripActions_Vendor, RT::ScripActions_Local
 111
 112 =cut
 113
 114
 115 1;