doh!
authorivan <ivan>
Tue, 2 Oct 2007 21:56:11 +0000 (21:56 +0000)
committerivan <ivan>
Tue, 2 Oct 2007 21:56:11 +0000 (21:56 +0000)
FS/FS/cust_event.pm

index 355bc25..5924851 100644 (file)
@@ -190,7 +190,7 @@ sub test_conditions {
   my $part_event = $self->part_event;
   my $object = $self->cust_X;
   my @conditions = $part_event->part_event_condition;
-  %opt{'cust_event'} = $self;
+  $opt{'cust_event'} = $self;
 
   #no unsatisfied conditions
   #! grep ! $_->condition( $object, %opt ), @conditions;