From 0dcb2b5174594aa4675de053fb68108d74fc53eb Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Fri, 22 Oct 2010 22:38:37 +0000
Subject: [PATCH] fix contract_end bug, RT#10319

---
 bin/fix-contract_end | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 bin/fix-contract_end

diff --git a/bin/fix-contract_end b/bin/fix-contract_end
new file mode 100755
index 000000000..6458722ef
--- /dev/null
+++ b/bin/fix-contract_end
@@ -0,0 +1,24 @@
+#!/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