fix ancient vendor branch CVS bs

[freeside.git] / rt / lib / RT / Scrip.pm

diff --git a/rt/lib/RT/Scrip.pm b/rt/lib/RT/Scrip.pm
index a69dde0..b430a77 100755 (executable)
--- a/rt/lib/RT/Scrip.pm
+++ b/rt/lib/RT/Scrip.pm
@@ -1,26 +1,51 @@
-# BEGIN LICENSE BLOCK
-# 
-# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
-# 
-# (Except where explictly superceded by other copyright notices)
-# 
+# BEGIN BPS TAGGED BLOCK {{{
+#
+# COPYRIGHT:
+#
+# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+#                                          <sales@bestpractical.com>
+#
+# (Except where explicitly superseded by other copyright notices)
+#
+#
+# LICENSE:
+#

 # This work is made available to you under the terms of Version 2 of
 # the GNU General Public License. A copy of that license should have
 # been provided with this software, but in any event can be snarfed
 # from www.gnu.org.
 # This work is made available to you under the terms of Version 2 of
 # the GNU General Public License. A copy of that license should have
 # been provided with this software, but in any event can be snarfed
 # from www.gnu.org.

-# 
+#

 # This work is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # General Public License for more details.
 # This work is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # General Public License for more details.

-# 
-# Unless otherwise specified, all modifications, corrections or
-# extensions to this work which alter its source code become the
-# property of Best Practical Solutions, LLC when submitted for
-# inclusion in the work.
-# 
-# 
-# END LICENSE BLOCK
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301 or visit their web page on the internet at
+# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
+#
+#
+# CONTRIBUTION SUBMISSION POLICY:
+#
+# (The following paragraph is not intended to limit the rights granted
+# to you to modify and distribute this software under the terms of
+# the GNU General Public License and is only of importance to you if
+# you choose to contribute your changes and enhancements to the
+# community by submitting them to Best Practical Solutions, LLC.)
+#
+# By intentionally submitting any modifications, corrections or
+# derivatives to this work, or any other work intended for use with
+# Request Tracker, to Best Practical Solutions, LLC, you confirm that
+# you are the copyright holder for those contributions and you grant
+# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
+# royalty-free, perpetual, license to use, copy, create derivative
+# works based on those contributions, and sublicense and distribute
+# those contributions and any derivatives thereof.
+#
+# END BPS TAGGED BLOCK }}}
+

 # Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>)
 # WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST.  
 # 
 # Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>)
 # WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST.  
 # 


@@ -65,7 +90,7 @@ sub _Init {
 
 
 
 
 
 

-=item Create PARAMHASH
+=head2 Create PARAMHASH

 
 Create takes a hash of values and creates a row in the database:
 
 
 Create takes a hash of values and creates a row in the database:
 


@@ -120,7 +145,7 @@ sub Create {
 
 
 
 
 
 

-=item id
+=head2 id

 
 Returns the current value of id. 
 (In the database, id is stored as int(11).)
 
 Returns the current value of id. 
 (In the database, id is stored as int(11).)


@@ -129,14 +154,14 @@ Returns the current value of id.
 =cut
 
 
 =cut
 
 

-=item Description
+=head2 Description

 
 Returns the current value of Description. 
 (In the database, Description is stored as varchar(255).)
 
 
 
 
 Returns the current value of Description. 
 (In the database, Description is stored as varchar(255).)
 
 
 

-=item SetDescription VALUE
+=head2 SetDescription VALUE

 
 
 Set Description to VALUE. 
 
 
 Set Description to VALUE. 


@@ -147,14 +172,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item ScripCondition
+=head2 ScripCondition

 
 Returns the current value of ScripCondition. 
 (In the database, ScripCondition is stored as int(11).)
 
 
 
 
 Returns the current value of ScripCondition. 
 (In the database, ScripCondition is stored as int(11).)
 
 
 

-=item SetScripCondition VALUE
+=head2 SetScripCondition VALUE

 
 
 Set ScripCondition to VALUE. 
 
 
 Set ScripCondition to VALUE. 


@@ -165,7 +190,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item ScripConditionObj
+=head2 ScripConditionObj

 
 Returns the ScripCondition Object which has the id returned by ScripCondition
 
 
 Returns the ScripCondition Object which has the id returned by ScripCondition
 


@@ -179,14 +204,14 @@ sub ScripConditionObj {
        return($ScripCondition);
 }
 
        return($ScripCondition);
 }
 

-=item ScripAction
+=head2 ScripAction

 
 Returns the current value of ScripAction. 
 (In the database, ScripAction is stored as int(11).)
 
 
 
 
 Returns the current value of ScripAction. 
 (In the database, ScripAction is stored as int(11).)
 
 
 

-=item SetScripAction VALUE
+=head2 SetScripAction VALUE

 
 
 Set ScripAction to VALUE. 
 
 
 Set ScripAction to VALUE. 


@@ -197,7 +222,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item ScripActionObj
+=head2 ScripActionObj

 
 Returns the ScripAction Object which has the id returned by ScripAction
 
 
 Returns the ScripAction Object which has the id returned by ScripAction
 


@@ -211,14 +236,14 @@ sub ScripActionObj {
        return($ScripAction);
 }
 
        return($ScripAction);
 }
 

-=item ConditionRules
+=head2 ConditionRules

 
 Returns the current value of ConditionRules. 
 (In the database, ConditionRules is stored as text.)
 
 
 
 
 Returns the current value of ConditionRules. 
 (In the database, ConditionRules is stored as text.)
 
 
 

-=item SetConditionRules VALUE
+=head2 SetConditionRules VALUE

 
 
 Set ConditionRules to VALUE. 
 
 
 Set ConditionRules to VALUE. 


@@ -229,14 +254,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item ActionRules
+=head2 ActionRules

 
 Returns the current value of ActionRules. 
 (In the database, ActionRules is stored as text.)
 
 
 
 
 Returns the current value of ActionRules. 
 (In the database, ActionRules is stored as text.)
 
 
 

-=item SetActionRules VALUE
+=head2 SetActionRules VALUE

 
 
 Set ActionRules to VALUE. 
 
 
 Set ActionRules to VALUE. 


@@ -247,14 +272,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item CustomIsApplicableCode
+=head2 CustomIsApplicableCode

 
 Returns the current value of CustomIsApplicableCode. 
 (In the database, CustomIsApplicableCode is stored as text.)
 
 
 
 
 Returns the current value of CustomIsApplicableCode. 
 (In the database, CustomIsApplicableCode is stored as text.)
 
 
 

-=item SetCustomIsApplicableCode VALUE
+=head2 SetCustomIsApplicableCode VALUE

 
 
 Set CustomIsApplicableCode to VALUE. 
 
 
 Set CustomIsApplicableCode to VALUE. 


@@ -265,14 +290,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item CustomPrepareCode
+=head2 CustomPrepareCode

 
 Returns the current value of CustomPrepareCode. 
 (In the database, CustomPrepareCode is stored as text.)
 
 
 
 
 Returns the current value of CustomPrepareCode. 
 (In the database, CustomPrepareCode is stored as text.)
 
 
 

-=item SetCustomPrepareCode VALUE
+=head2 SetCustomPrepareCode VALUE

 
 
 Set CustomPrepareCode to VALUE. 
 
 
 Set CustomPrepareCode to VALUE. 


@@ -283,14 +308,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item CustomCommitCode
+=head2 CustomCommitCode

 
 Returns the current value of CustomCommitCode. 
 (In the database, CustomCommitCode is stored as text.)
 
 
 
 
 Returns the current value of CustomCommitCode. 
 (In the database, CustomCommitCode is stored as text.)
 
 
 

-=item SetCustomCommitCode VALUE
+=head2 SetCustomCommitCode VALUE

 
 
 Set CustomCommitCode to VALUE. 
 
 
 Set CustomCommitCode to VALUE. 


@@ -301,14 +326,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item Stage
+=head2 Stage

 
 Returns the current value of Stage. 
 (In the database, Stage is stored as varchar(32).)
 
 
 
 
 Returns the current value of Stage. 
 (In the database, Stage is stored as varchar(32).)
 
 
 

-=item SetStage VALUE
+=head2 SetStage VALUE

 
 
 Set Stage to VALUE. 
 
 
 Set Stage to VALUE. 


@@ -319,14 +344,14 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item Queue
+=head2 Queue

 
 Returns the current value of Queue. 
 (In the database, Queue is stored as int(11).)
 
 
 
 
 Returns the current value of Queue. 
 (In the database, Queue is stored as int(11).)
 
 
 

-=item SetQueue VALUE
+=head2 SetQueue VALUE

 
 
 Set Queue to VALUE. 
 
 
 Set Queue to VALUE. 


@@ -337,7 +362,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item QueueObj
+=head2 QueueObj

 
 Returns the Queue Object which has the id returned by Queue
 
 
 Returns the Queue Object which has the id returned by Queue
 


@@ -351,14 +376,14 @@ sub QueueObj {
        return($Queue);
 }
 
        return($Queue);
 }
 

-=item Template
+=head2 Template

 
 Returns the current value of Template. 
 (In the database, Template is stored as int(11).)
 
 
 
 
 Returns the current value of Template. 
 (In the database, Template is stored as int(11).)
 
 
 

-=item SetTemplate VALUE
+=head2 SetTemplate VALUE

 
 
 Set Template to VALUE. 
 
 
 Set Template to VALUE. 


@@ -369,7 +394,7 @@ Returns (1, 'Status message') on success and (0, 'Error Message') on failure.
 =cut
 
 
 =cut
 
 

-=item TemplateObj
+=head2 TemplateObj

 
 Returns the Template Object which has the id returned by Template
 
 
 Returns the Template Object which has the id returned by Template
 


@@ -383,7 +408,7 @@ sub TemplateObj {
        return($Template);
 }
 
        return($Template);
 }
 

-=item Creator
+=head2 Creator

 
 Returns the current value of Creator. 
 (In the database, Creator is stored as int(11).)
 
 Returns the current value of Creator. 
 (In the database, Creator is stored as int(11).)


@@ -392,7 +417,7 @@ Returns the current value of Creator.
 =cut
 
 
 =cut
 
 

-=item Created
+=head2 Created

 
 Returns the current value of Created. 
 (In the database, Created is stored as datetime.)
 
 Returns the current value of Created. 
 (In the database, Created is stored as datetime.)


@@ -401,7 +426,7 @@ Returns the current value of Created.
 =cut
 
 
 =cut
 
 

-=item LastUpdatedBy
+=head2 LastUpdatedBy

 
 Returns the current value of LastUpdatedBy. 
 (In the database, LastUpdatedBy is stored as int(11).)
 
 Returns the current value of LastUpdatedBy. 
 (In the database, LastUpdatedBy is stored as int(11).)


@@ -410,7 +435,7 @@ Returns the current value of LastUpdatedBy.
 =cut
 
 
 =cut
 
 

-=item LastUpdated
+=head2 LastUpdated

 
 Returns the current value of LastUpdated. 
 (In the database, LastUpdated is stored as datetime.)
 
 Returns the current value of LastUpdated. 
 (In the database, LastUpdated is stored as datetime.)


@@ -420,63 +445,46 @@ Returns the current value of LastUpdated.
 
 
 
 
 
 

-sub _ClassAccessible {
+sub _CoreAccessible {

     {
      
         id =>
     {
      
         id =>

-               {read => 1, type => 'int(11)', default => ''},
+               {read => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => ''},

         Description => 
         Description => 

-               {read => 1, write => 1, type => 'varchar(255)', default => ''},
+               {read => 1, write => 1, sql_type => 12, length => 255,  is_blob => 0,  is_numeric => 0,  type => 'varchar(255)', default => ''},

         ScripCondition => 
         ScripCondition => 

-               {read => 1, write => 1, type => 'int(11)', default => '0'},
+               {read => 1, write => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         ScripAction => 
         ScripAction => 

-               {read => 1, write => 1, type => 'int(11)', default => '0'},
+               {read => 1, write => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         ConditionRules => 
         ConditionRules => 

-               {read => 1, write => 1, type => 'text', default => ''},
+               {read => 1, write => 1, sql_type => -4, length => 0,  is_blob => 1,  is_numeric => 0,  type => 'text', default => ''},

         ActionRules => 
         ActionRules => 

-               {read => 1, write => 1, type => 'text', default => ''},
+               {read => 1, write => 1, sql_type => -4, length => 0,  is_blob => 1,  is_numeric => 0,  type => 'text', default => ''},

         CustomIsApplicableCode => 
         CustomIsApplicableCode => 

-               {read => 1, write => 1, type => 'text', default => ''},
+               {read => 1, write => 1, sql_type => -4, length => 0,  is_blob => 1,  is_numeric => 0,  type => 'text', default => ''},

         CustomPrepareCode => 
         CustomPrepareCode => 

-               {read => 1, write => 1, type => 'text', default => ''},
+               {read => 1, write => 1, sql_type => -4, length => 0,  is_blob => 1,  is_numeric => 0,  type => 'text', default => ''},

         CustomCommitCode => 
         CustomCommitCode => 

-               {read => 1, write => 1, type => 'text', default => ''},
+               {read => 1, write => 1, sql_type => -4, length => 0,  is_blob => 1,  is_numeric => 0,  type => 'text', default => ''},

         Stage => 
         Stage => 

-               {read => 1, write => 1, type => 'varchar(32)', default => ''},
+               {read => 1, write => 1, sql_type => 12, length => 32,  is_blob => 0,  is_numeric => 0,  type => 'varchar(32)', default => ''},

         Queue => 
         Queue => 

-               {read => 1, write => 1, type => 'int(11)', default => '0'},
+               {read => 1, write => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         Template => 
         Template => 

-               {read => 1, write => 1, type => 'int(11)', default => '0'},
+               {read => 1, write => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         Creator => 
         Creator => 

-               {read => 1, auto => 1, type => 'int(11)', default => '0'},
+               {read => 1, auto => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         Created => 
         Created => 

-               {read => 1, auto => 1, type => 'datetime', default => ''},
+               {read => 1, auto => 1, sql_type => 11, length => 0,  is_blob => 0,  is_numeric => 0,  type => 'datetime', default => ''},

         LastUpdatedBy => 
         LastUpdatedBy => 

-               {read => 1, auto => 1, type => 'int(11)', default => '0'},
+               {read => 1, auto => 1, sql_type => 4, length => 11,  is_blob => 0,  is_numeric => 1,  type => 'int(11)', default => '0'},

         LastUpdated => 
         LastUpdated => 

-               {read => 1, auto => 1, type => 'datetime', default => ''},
+               {read => 1, auto => 1, sql_type => 11, length => 0,  is_blob => 0,  is_numeric => 0,  type => 'datetime', default => ''},

 
  }
 };
 
 
  }
 };
 

-
-        eval "require RT::Scrip_Overlay";
-        if ($@ && $@ !~ qr{^Can't locate RT/Scrip_Overlay.pm}) {
-            die $@;
-        };
-
-        eval "require RT::Scrip_Vendor";
-        if ($@ && $@ !~ qr{^Can't locate RT/Scrip_Vendor.pm}) {
-            die $@;
-        };
-
-        eval "require RT::Scrip_Local";
-        if ($@ && $@ !~ qr{^Can't locate RT/Scrip_Local.pm}) {
-            die $@;
-        };
-
-
-
+RT::Base->_ImportOverlays();

 
 =head1 SEE ALSO
 
 
 =head1 SEE ALSO
 


@@ -486,7 +494,7 @@ _Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customiz
 
 These overlay files can contain new subs or subs to replace existing subs in this module.
 
 
 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 
+Each of these files should begin with the line 

 
    no warnings qw(redefine);
 
 
    no warnings qw(redefine);