From f82dc3d547816ca36165e224570edb5edd95631f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 16 Mar 2011 07:41:02 +0000
Subject: [PATCH] scrub bogus start dates

---
 bin/b-move-customers | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/bin/b-move-customers b/bin/b-move-customers
index c17046bf2..411846f3b 100755
--- a/bin/b-move-customers
+++ b/bin/b-move-customers
@@ -256,6 +256,9 @@ while ( my $customerrow = $customer_sth->fetchrow_hashref ) {
           'preinsert_callback' => sub {
 
             my($row, $object) = @_;
+
+            $object->start_date(''); #bogus start dates on all packages
+
             my $src_svcpart = $row->{'svcpart'} or die "wtf2";
             my $dest_svcpart = $map{'part_svc'}->{$src_svcpart};
             if ( $dest_svcpart ) {
-- 
2.20.1