diff options
author | ivan <ivan> | 2007-10-04 21:38:52 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-10-04 21:38:52 +0000 |
commit | 49db59d3a1fad43b35295d89c71141b79c70c1de (patch) | |
tree | a196d2429244bc2f62c5236797014c2796ea6cfc /FS | |
parent | c26c4fa9449ef6b91620c3b994db8d5242b3d4ad (diff) |
add SKIP_CONDITION_SQL debugging aid
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_event_condition.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/part_event_condition.pm b/FS/FS/part_event_condition.pm index 1efd0f879..200d4fcd6 100644 --- a/FS/FS/part_event_condition.pm +++ b/FS/FS/part_event_condition.pm @@ -1,7 +1,7 @@ package FS::part_event_condition; use strict; -use vars qw( @ISA $DEBUG ); +use vars qw( @ISA $DEBUG @SKIP_CONDITION_SQL ); use FS::UID qw(dbh); use FS::Record qw( qsearch qsearchs ); use FS::option_Common; @@ -10,6 +10,8 @@ use FS::part_event; #for order_conditions_sql... @ISA = qw( FS::option_Common ); # FS::Record ); $DEBUG = 0; +@SKIP_CONDITION_SQL = (); + =head1 NAME FS::part_event_condition - Object methods for part_event_condition records @@ -283,7 +285,10 @@ sub where_conditions_sql { die "$coderef is not a CODEREF" unless ref($coderef) eq 'CODE'; "( cond_$conditionname.conditionname IS NULL OR $sql )"; } - keys %conditions + grep { my $cond = $_; + ! grep { $_ eq $cond } @SKIP_CONDITION_SQL + } + keys %conditions ); $where; |