X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FCondition%2FGeneric.pm;h=1f291fccafec6e7da1ab5d917801ddf81662b877;hp=393f4b7867bf7c2a77c7bfa283944b3f0a70fc67;hb=d39d52aac8f38ea9115628039f0df5aa3ac826de;hpb=3ef62a0570055da710328937e7f65dbb2c027c62 diff --git a/rt/lib/RT/Condition/Generic.pm b/rt/lib/RT/Condition/Generic.pm index 393f4b786..1f291fcca 100755 --- a/rt/lib/RT/Condition/Generic.pm +++ b/rt/lib/RT/Condition/Generic.pm @@ -1,7 +1,48 @@ -# $Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Condition/Generic.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ -# (c) 1996-2000 Jesse Vincent -# This software is redistributable under the terms of the GNU GPL - +# {{{ BEGIN BPS TAGGED BLOCK +# +# COPYRIGHT: +# +# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC +# +# +# (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 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. +# +# 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., 675 Mass Ave, Cambridge, MA 02139, USA. +# +# +# 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 =head1 NAME RT::Condition::Generic - ; @@ -29,7 +70,6 @@ =begin testing -ok (require RT::TestHarness); ok (require RT::Condition::Generic); =end testing @@ -39,6 +79,9 @@ ok (require RT::Condition::Generic); package RT::Condition::Generic; +use strict; +use base qw/RT::Base/; + # {{{ sub new sub new { my $proto = shift; @@ -59,14 +102,15 @@ sub _Init { TemplateObj => undef, Argument => undef, ApplicableTransTypes => undef, + CurrentUser => undef, @_ ); - $self->{'Argument'} = $args{'Argument'}; $self->{'ScripObj'} = $args{'ScripObj'}; $self->{'TicketObj'} = $args{'TicketObj'}; $self->{'TransactionObj'} = $args{'TransactionObj'}; $self->{'ApplicableTransTypes'} = $args{'ApplicableTransTypes'}; + $self->CurrentUser($args{'CurrentUser'}); } # }}} @@ -100,6 +144,19 @@ sub TicketObj { } # }}} +# {{{ sub ScripObj + +=head2 ScripObj + +Return the Scrip object we're talking about + +=cut + +sub ScripObj { + my $self = shift; + return($self->{'ScripObj'}); +} +# }}} # {{{ sub TransactionObj =head2 TransactionObj @@ -137,7 +194,7 @@ sub ApplicableTransTypes { # {{{ sub Describe sub Describe { my $self = shift; - return ("No description for " . ref $self); + return ($self->loc("No description for [_1]", ref $self)); } # }}} @@ -167,4 +224,10 @@ sub DESTROY { } # }}} + +eval "require RT::Condition::Generic_Vendor"; +die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Generic_Vendor.pm}); +eval "require RT::Condition::Generic_Local"; +die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Generic_Local.pm}); + 1;