diff options
Diffstat (limited to 'bin/test-event')
| -rw-r--r-- | bin/test-event | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/bin/test-event b/bin/test-event index 061e00061..d3a9f110d 100644 --- a/bin/test-event +++ b/bin/test-event @@ -26,6 +26,8 @@ my $object = qsearchs($table, { $pkey => $tablenum } ) my $cust_event = $part_event->new_cust_event($object); +print "\n"; + ### # specifics ### @@ -33,6 +35,10 @@ my $cust_event = $part_event->new_cust_event($object); my @conditions = $part_event->part_event_condition; foreach my $condition ( @conditions ) { my $sat = $condition->condition( $object, 'cust_event' => $cust_event ); + + my $sql = $condition->condition_sql(); + + print $condition->conditionname. '.pm: '. ( $sat ? "satisfied\n" : "NOT SATISFIED\n" ); @@ -50,8 +56,6 @@ foreach my $condition ( @conditions ) { # overall ### -print "\n"; - my $run = $cust_event->test_conditions; print "\n". $part_event->eventpart.': '. $part_event->event. |