[freeside-commits] freeside/bin b-move-customers,1.3,1.4
Ivan,,,
ivan at wavetail.420.am
Wed Mar 16 01:41:23 PDT 2011
Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv13168
Modified Files:
b-move-customers
Log Message:
really fix start date
Index: b-move-customers
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/b-move-customers,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -d -r1.3 -r1.4
--- b-move-customers 16 Mar 2011 07:41:02 -0000 1.3
+++ b-move-customers 16 Mar 2011 08:41:21 -0000 1.4
@@ -201,6 +201,9 @@
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 @@
'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 ) {
More information about the freeside-commits
mailing list