diff options
| author | mark <mark> | 2011-09-01 05:13:09 +0000 |
|---|---|---|
| committer | mark <mark> | 2011-09-01 05:13:09 +0000 |
| commit | 53ea5a72067a9b0ebcd3417692c3884d6f91f74a (patch) | |
| tree | 1fcf7144305e5ab821ab9d0f04ebfd91a88a91cb /FS/FS/svc_Common.pm | |
| parent | 81d973916db8389df760f4055b3eb3825b3ed262 (diff) | |
svc_acct events for usage limits, #13202
Diffstat (limited to 'FS/FS/svc_Common.pm')
| -rw-r--r-- | FS/FS/svc_Common.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 5c6e16b..e83d96e 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -159,6 +159,16 @@ sub label_long { $self->label(@_); } +sub cust_main { + my $self = shift; + (($self->cust_svc || return)->cust_pkg || return)->cust_main || return +} + +sub cust_linked { + my $self = shift; + defined($self->cust_main); +} + =item check Checks the validity of fields in this record. |