diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 5bea9fe26..d2fc76bf5 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1389,41 +1389,6 @@ sub bill { ''; #no error } -=item reexport - -document me. 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; - - 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 collect OPTIONS (Attempt to) collect money for this customer's outstanding invoices (see |