diff options
author | ivan <ivan> | 2011-08-05 19:19:06 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-08-05 19:19:06 +0000 |
commit | 044023db4dadfd8c12638d95bf775203a8c47396 (patch) | |
tree | 8dea444a037d724b261e51b612297e2dadf9c3de /bin/test-event | |
parent | e91533fe47b1dbb026bf610f71213119a6da3e71 (diff) |
remove these so they're not accidentally used
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. |