This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 52 deletions

diff --git a/bin/follow-tax-rename b/bin/follow-tax-rename
deleted file mode 100644
index b7536e815..000000000
--- a/bin/follow-tax-rename
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl
-
-use FS::UID qw( adminsuidsetup );
-use FS::Record qw( qsearch qsearchs );
-use FS::cust_bill_pkg;
-
-$FS::Record::nowarn_classload = 1;
-$FS::Record::nowarn_classload = 1;
-
-adminsuidsetup shift;
-
-my $begin = 1231876106;
-
-my @old = qsearch('h_cust_main_county', {
-  'history_action' => 'replace_old',
-  'history_date'   => { op=>'>=', value=>$begin, },
-} );
-
-foreach my $old (@old) {
-
-  my $new = qsearchs('h_cust_main_county', {
-    'history_action' => 'replace_new',
-    'history_date'   => $old->history_date,
-  });
-
-  unless ( $new ) {
-    warn "huh?  no corresponding new record found?";
-    next;
-  }
-
-  my $old_taxname = $old->taxname;
-  my $new_taxname = $new->taxname;
-
-  my @cust_bill_pkg = qsearch('cust_bill_pkg', {
-   'pkgnum'   => 0,
-   'itemdesc' => $old->taxname,
-  });
-
-  next unless @cust_bill_pkg;
-
-  warn 'fixing '. scalar(@cust_bill_pkg).
-       " dangling line items for rename $old_taxname -> $new_taxname\n";
-
-  foreach my $cust_bill_pkg ( @cust_bill_pkg ) {
-
-    $cust_bill_pkg->itemdesc( $new->taxname );
-    my $error = $cust_bill_pkg->replace;
-    die $error if $error;
-
-  }
-
-}