From 8e50b6f6fbaa9d732a371114c0dfc95c326cb890 Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Thu, 12 Mar 2015 20:16:25 -0500 Subject: [PATCH] RT#14671 [documentation changes only] --- FS/FS/cust_pkg.pm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 5bb3d2aa1..efe35efa3 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -785,14 +785,9 @@ to a different pkgpart or location, and probably shouldn't be in any other case. If it's not set, the 'unused_credit_cancel' part_pkg option will be used. -=item delay_cancel - for internal use, to allow proper handling of -supplemental packages when the main package is flagged to suspend -before cancelling, probably shouldn't be used otherwise (set the -corresponding package option instead) - -=item no_delay_cancel - for internal use, prevents delay_cancel behavior +=item no_delay_cancel - prevents delay_cancel behavior no matter what other options say, for use when changing packages (or any -other time you're really sure you want an unadulterated cancel) +other time you're really sure you want an immediate cancel) =back @@ -800,6 +795,12 @@ If there is an error, returns the error, otherwise returns false. =cut +#NOT DOCUMENTING - this should only be used when calling recursively +#=item delay_cancel - for internal use, to allow proper handling of +#supplemental packages when the main package is flagged to suspend +#before cancelling, probably shouldn't be used otherwise (set the +#corresponding package option instead) + sub cancel { my( $self, %options ) = @_; my $error; -- 2.11.0