summaryrefslogtreecommitdiff
path: root/FS/FS/part_bill_event.pm
diff options
context:
space:
mode:
authorivan <ivan>2002-01-29 17:42:46 +0000
committerivan <ivan>2002-01-29 17:42:46 +0000
commitc5c0ba135749164ec8ba75d18f76c29625e1bc7e (patch)
tree6c855b5b5e0a4774d7f6737fc46bf357042e6d3c /FS/FS/part_bill_event.pm
parent6991d4986df7fb3a6c7c49b5ae1b3713e87a16c4 (diff)
weight, plan and plandata fields in part_bill_event
Diffstat (limited to 'FS/FS/part_bill_event.pm')
-rw-r--r--FS/FS/part_bill_event.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/part_bill_event.pm b/FS/FS/part_bill_event.pm
index fb2c06a..4a23315 100644
--- a/FS/FS/part_bill_event.pm
+++ b/FS/FS/part_bill_event.pm
@@ -44,6 +44,12 @@ FS::Record. The following fields are currently supported:
=item seconds - how long after the invoice date events of this type are triggered
+=item weight - ordering for events with identical seconds
+
+=item plan - eventcode plan
+
+=item plandata - additional plan data
+
=item disabled - Disabled flag, empty or `Y'
=back
@@ -106,12 +112,17 @@ insert and replace methods.
sub check {
my $self = shift;
+ $self->weight(0) unless $self->weight;
+
$self->ut_numbern('eventpart')
|| $self->ut_enum('payby', [qw( CARD BILL COMP )] )
|| $self->ut_text('event')
|| $self->ut_anything('eventcode')
|| $self->ut_number('seconds')
|| $self->ut_enum('disabled', [ '', 'Y' ] )
+ || $self->ut_number('weight')
+ || $self->ut_alphan('plan')
+ || $self->ut_anything('plandata')
;
}