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/part_event/Action.pm | |
parent | 81d973916db8389df760f4055b3eb3825b3ed262 (diff) |
svc_acct events for usage limits, #13202
Diffstat (limited to 'FS/FS/part_event/Action.pm')
-rw-r--r-- | FS/FS/part_event/Action.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/FS/FS/part_event/Action.pm b/FS/FS/part_event/Action.pm index 094cf7d3a..c0c70b1c3 100644 --- a/FS/FS/part_event/Action.pm +++ b/FS/FS/part_event/Action.pm @@ -192,6 +192,21 @@ sub cust_main { } +=item cust_pkg OBJECT + +Return the package object (L<FS::cust_pkg>) associated with the provided +object. The object must be either a service (L<FS::svc_Common>) or a +package. + +=cut + +sub cust_pkg { + my( $self, $object ) = @_; + $object->isa('FS::cust_pkg') ? $object : + $object->isa('FS::svc_Common') ? $object->cust_svc->cust_pkg : + undef; +} + =item option_label OPTIONNAME Returns the label for the specified option name. |