From 701d8f35fff2ed748efa6b46cd3cf9cc46e47729 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Sat, 23 Oct 2010 08:09:54 +0000
Subject: [PATCH] moved to upgrade script

---
 bin/fix-contract_end | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 bin/fix-contract_end

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;
-- 
2.11.0