my $cust_event = $part_event->new_cust_event($object);
+print "\n";
+
###
# specifics
###
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" );
# overall
###
-print "\n";
-
my $run = $cust_event->test_conditions;
print "\n". $part_event->eventpart.': '. $part_event->event.