diff options
author | jeff <jeff> | 2008-07-01 07:02:04 +0000 |
---|---|---|
committer | jeff <jeff> | 2008-07-01 07:02:04 +0000 |
commit | 661c9b9300d2d0c06aa5e697019b729746b77a13 (patch) | |
tree | 00fdbd6d947ee5ee229594aace302f5a0a46a051 /FS | |
parent | 28927e3351ada7621808a8e4c95b4f5f8094dc34 (diff) |
you shouldn't keep 'em separated
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_pkg.pm | 44 |
1 files changed, 24 insertions, 20 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 42c3aca8c..298189f3b 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2047,26 +2047,6 @@ sub order { ''; } -=item insert_reason - -Associates this package with a (suspension or cancellation) reason (see -L<FS::cust_pkg_reason>, possibly inserting a new reason on the fly (see -L<FS::reason>). - -Available options are: - -=over 4 - -=item reason - can be set to a cancellation reason (see L<FS:reason>), either a reasonnum of an existing reason, or passing a hashref will create a new reason. The hashref should have the following keys: typenum - Reason type (see L<FS::reason_type>, reason - Text of the new reason. - -=item date - -=back - -If there is an error, returns the error, otherwise returns false. - -=cut - =item bulk_change PKGPARTS_ARYREF, REMOVE_PKGNUMS_ARYREF [ RETURN_CUST_PKG_ARRAYREF ] PKGPARTS is a list of pkgparts specifying the the billing item definitions (see @@ -2125,6 +2105,30 @@ sub bulk_change { ''; } +=item insert_reason + +Associates this package with a (suspension or cancellation) reason (see +L<FS::cust_pkg_reason>, possibly inserting a new reason on the fly (see +L<FS::reason>). + +Available options are: + +=over 4 + +=item reason - can be set to a cancellation reason (see L<FS:reason>), either a reasonnum of an existing reason, or passing a hashref will create a new reason. The hashref should have the following keys: typenum - Reason type (see L<FS::reason_type>, reason - Text of the new reason. + +=item otaker_reason - the access_user (see L<FS::access_user>) providing the reason + +=item date - a unix timestamp + +=item action - the action (cancel, susp, adjourn, expire) associated with the reason + +=back + +If there is an error, returns the error, otherwise returns false. + +=cut + sub insert_reason { my ($self, %options) = @_; |