diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 41 | ||||
| -rw-r--r-- | FS/FS/cust_pkg.pm | 2 |
2 files changed, 2 insertions, 41 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 18ad9e337..7e3e26a33 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -973,47 +973,6 @@ sub insert_cust_pay { } -=item reexport - -This method is deprecated. See the I<depend_jobnum> option to the insert and -order_pkgs methods for a better way to defer provisioning. - -Re-schedules all exports by calling the B<reexport> method of all associated -packages (see L<FS::cust_pkg>). If there is an error, returns the error; -otherwise returns false. - -=cut - -sub reexport { - my $self = shift; - - carp "WARNING: FS::cust_main::reexport is deprectated; ". - "use the depend_jobnum option to insert or order_pkgs to delay export"; - - local $SIG{HUP} = 'IGNORE'; - local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; - local $SIG{TERM} = 'IGNORE'; - local $SIG{TSTP} = 'IGNORE'; - local $SIG{PIPE} = 'IGNORE'; - - my $oldAutoCommit = $FS::UID::AutoCommit; - local $FS::UID::AutoCommit = 0; - my $dbh = dbh; - - foreach my $cust_pkg ( $self->ncancelled_pkgs ) { - my $error = $cust_pkg->reexport; - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error; - } - } - - $dbh->commit or die $dbh->errstr if $oldAutoCommit; - ''; - -} - =item delete [ OPTION => VALUE ... ] This deletes the customer. If there is an error, returns the error, otherwise diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 3d24ea5b2..09805774c 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -3275,6 +3275,8 @@ order_pkgs methods in FS::cust_main for a better way to defer provisioning. =cut +#looks like this is still used by the order_pkg and change_pkg methods in +# ClientAPI/MyAccount, need to look into those before removing sub reexport { my $self = shift; |