projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import torrus 1.0.9
[freeside.git]
/
rt
/
lib
/
RT
/
Condition
/
UserDefined.pm
diff --git
a/rt/lib/RT/Condition/UserDefined.pm
b/rt/lib/RT/Condition/UserDefined.pm
index
0cb8bdb
..
f339e9a
100644
(file)
--- a/
rt/lib/RT/Condition/UserDefined.pm
+++ b/
rt/lib/RT/Condition/UserDefined.pm
@@
-1,8
+1,8
@@
-#
{{{ BEGIN BPS TAGGED BLOCK
+#
BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
#
# COPYRIGHT:
-#
-# This software is Copyright (c) 1996-200
4 Best Practical Solutions, LLC
+#
+# This software is Copyright (c) 1996-200
9 Best Practical Solutions, LLC
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-22,7
+22,9
@@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
#
# 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.
+# 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:
#
#
# CONTRIBUTION SUBMISSION POLICY:
@@
-42,16
+44,11
@@
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
-# }}} END BPS TAGGED BLOCK
-
+# END BPS TAGGED BLOCK }}}
package RT::Condition::UserDefined;
package RT::Condition::UserDefined;
-
-use RT::Condition::Generic;
-
+use base 'RT::Condition';
use strict;
use strict;
-use vars qw/@ISA/;
-@ISA = qw(RT::Condition::Generic);
=head2 IsApplicable
=head2 IsApplicable
@@
-62,6
+59,7
@@
This happens on every transaction. it's always applicable
sub IsApplicable {
my $self = shift;
sub IsApplicable {
my $self = shift;
+ local $@;
my $retval = eval $self->ScripObj->CustomIsApplicableCode;
if ($@) {
$RT::Logger->error("Scrip ".$self->ScripObj->Id. " IsApplicable failed: ".$@);
my $retval = eval $self->ScripObj->CustomIsApplicableCode;
if ($@) {
$RT::Logger->error("Scrip ".$self->ScripObj->Id. " IsApplicable failed: ".$@);