From: ivan <ivan>
Date: Wed, 12 Nov 2003 11:38:55 +0000 (+0000)
Subject: remove duplicate reexport sub
X-Git-Tag: freeside_1_4_2beta1~385
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=01cd2fbc632b72458e11511340e9f8cd19f8f62a;p=freeside.git

remove duplicate reexport sub
---

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