summaryrefslogtreecommitdiff
path: root/bin/b-move-customers
diff options
context:
space:
mode:
authorivan <ivan>2011-03-16 08:41:21 +0000
committerivan <ivan>2011-03-16 08:41:21 +0000
commit9af963b15bfcdf5138013dd354dd066799d84e0c (patch)
tree4b90a6cead5dd183a5ec17805cf4227a2b36e113 /bin/b-move-customers
parentf82dc3d547816ca36165e224570edb5edd95631f (diff)
really fix start date
Diffstat (limited to 'bin/b-move-customers')
-rwxr-xr-xbin/b-move-customers6
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/b-move-customers b/bin/b-move-customers
index 411846f..026e4cc 100755
--- a/bin/b-move-customers
+++ b/bin/b-move-customers
@@ -201,6 +201,9 @@ while ( my $customerrow = $customer_sth->fetchrow_hashref ) {
import_table( 'cust_pkg', 'custnum' => $src_custnum,
'preinsert_callback' => sub {
my($row, $object) = @_;
+
+ $object->start_date(''); #bogus start dates on all packages
+
my $src_pkgpart = $row->{'pkgpart'} or die "wtf";
my $dest_pkgpart = $map{'part_pkg'}->{$src_pkgpart};
if ( $dest_pkgpart ) {
@@ -256,9 +259,6 @@ 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 ) {