summaryrefslogtreecommitdiff
path: root/bin/test-event
diff options
context:
space:
mode:
authorivan <ivan>2011-08-05 19:19:06 +0000
committerivan <ivan>2011-08-05 19:19:06 +0000
commit044023db4dadfd8c12638d95bf775203a8c47396 (patch)
tree8dea444a037d724b261e51b612297e2dadf9c3de /bin/test-event
parente91533fe47b1dbb026bf610f71213119a6da3e71 (diff)
remove these so they're not accidentally used
Diffstat (limited to 'bin/test-event')
-rw-r--r--bin/test-event8
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.