projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
the master control program has chosen YOU to serve your system on the game grid
[freeside.git]
/
FS
/
FS
/
cust_event.pm
diff --git
a/FS/FS/cust_event.pm
b/FS/FS/cust_event.pm
index
bebd72a
..
5ca8167
100644
(file)
--- a/
FS/FS/cust_event.pm
+++ b/
FS/FS/cust_event.pm
@@
-140,7
+140,7
@@
sub check {
)
|| $self->ut_number('_date')
|| $self->ut_enum('status', [qw( new locked done failed )])
)
|| $self->ut_number('_date')
|| $self->ut_enum('status', [qw( new locked done failed )])
- || $self->ut_
textn
('statustext')
+ || $self->ut_
anything
('statustext')
;
return $error if $error;
;
return $error if $error;
@@
-190,6
+190,7
@@
sub test_conditions {
my $part_event = $self->part_event;
my $object = $self->cust_X;
my @conditions = $part_event->part_event_condition;
my $part_event = $self->part_event;
my $object = $self->cust_X;
my @conditions = $part_event->part_event_condition;
+ $opt{'cust_event'} = $self;
#no unsatisfied conditions
#! grep ! $_->condition( $object, %opt ), @conditions;
#no unsatisfied conditions
#! grep ! $_->condition( $object, %opt ), @conditions;
@@
-343,6
+344,7
@@
sub process_re_X {
}
}
+#this needs some updating based on the 1.7 cust_bill_event.pm still, i think
sub re_X {
my($method, $beginning, $ending, $failed, $job) = @_;
sub re_X {
my($method, $beginning, $ending, $failed, $job) = @_;