From: mark <mark>
Date: Sat, 23 Oct 2010 08:09:54 +0000 (+0000)
Subject: moved to upgrade script
X-Git-Tag: TORRUS_1_0_9~192
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=701d8f35fff2ed748efa6b46cd3cf9cc46e47729;p=freeside.git

moved to upgrade script
---

diff --git a/bin/fix-contract_end b/bin/fix-contract_end
deleted file mode 100755
index 6458722ef..000000000
--- a/bin/fix-contract_end
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use FS::Record;
-use FS::UID qw(adminsuidsetup dbh driver_name);
-
-# Fix bad values in some contract_end fields resulting from a short-lived bug
-
-my $dbh = adminsuidsetup(shift) or die "Usage: fix-contract_end username\n";
-local $FS::UID::AutoCommit = 0;
-
-my @updates = (
-  q!UPDATE cust_pkg SET contract_end = NULL WHERE contract_end = -1!,
-  q!UPDATE part_pkg_option SET optionvalue = NULL WHERE optionname = 'contract_end_months' AND optionvalue = '(none)'!,
-);
-
-foreach my $sql (@updates) {
-  print "$sql\n";
-  my $rows = $dbh->do($sql);
-  print "$rows rows.\n";
-  die $dbh->errstr if $dbh->errstr;
-}
-$dbh->commit or die $dbh->errstr;