projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
and for obj creation too
[freeside.git]
/
bin
/
freeside-migrate-events
diff --git
a/bin/freeside-migrate-events
b/bin/freeside-migrate-events
index
74732b7
..
76643b8
100644
(file)
--- a/
bin/freeside-migrate-events
+++ b/
bin/freeside-migrate-events
@@
-40,7
+40,6
@@
my %plan2action = (
'collect' => 'collect',
);
'collect' => 'collect',
);
-#XXX may need to fudge some plandata2option names!!!
foreach my $part_bill_event (
qsearch({
foreach my $part_bill_event (
qsearch({
@@
-62,6
+61,11
@@
foreach my $part_bill_event (
next;
}
next;
}
+ my %plandata = map { /^(\w+) (.*)$/; ($1, $2); }
+ split(/\n/, $part_bill_event->plandata);
+
+ #XXX may need to fudge some plandata2option names!!!
+
my $part_event = new FS::part_event {
'event' => $part_bill_event->event,
'eventtable' => 'cust_bill',
my $part_event = new FS::part_event {
'event' => $part_bill_event->event,
'eventtable' => 'cust_bill',
@@
-71,7
+75,7
@@
foreach my $part_bill_event (
'disabled' => $part_bill_event->disabled,
};
'disabled' => $part_bill_event->disabled,
};
- my $error = $part_event->insert;
+ my $error = $part_event->insert
(\%plandata)
;
die "error inserting part_event: $error\n" if $error;
print ' '. $part_event->eventpart;
die "error inserting part_event: $error\n" if $error;
print ' '. $part_event->eventpart;
@@
-90,6
+94,13
@@
foreach my $part_bill_event (
$error = $balance->insert( 'balance' => 0 );
die $error if $error;
$error = $balance->insert( 'balance' => 0 );
die $error if $error;
+ my $cust_bill_owed = new FS::part_event_condition {
+ 'eventpart' => $part_event->eventpart,
+ 'conditionname' => 'cust_bill_owed'
+ };
+ $error = $cust_bill_owed->insert( 'owed' => 0 );
+ die $error if $error;
+
my $payby = new FS::part_event_condition {
'eventpart' => $part_event->eventpart,
'conditionname' => 'payby'
my $payby = new FS::part_event_condition {
'eventpart' => $part_event->eventpart,
'conditionname' => 'payby'
@@
-103,7
+114,7
@@
foreach my $part_bill_event (
'eventpart' => $part_event->eventpart,
'conditionname' => 'cust_bill_age'
};
'eventpart' => $part_event->eventpart,
'conditionname' => 'cust_bill_age'
};
- $error = $
payby
->insert( 'age' => ($part_bill_event->seconds/86400 ).'d' );
+ $error = $
age
->insert( 'age' => ($part_bill_event->seconds/86400 ).'d' );
die $error if $error;
}
die $error if $error;
}
@@
-127,7
+138,8
@@
foreach my $part_bill_event (
};
my $cerror = $cust_event->insert;
};
my $cerror = $cust_event->insert;
- die "error inserting cust_event: $cerror\n" if $cerror;
+ #die "error inserting cust_event: $cerror\n" if $cerror;
+ warn "error inserting cust_event: $cerror\n" if $cerror;
#my $dcerror = $cust_bill_event->delete;
#die "error removing cust_bill_event: $dcerror\n" if $dcerror;
#my $dcerror = $cust_bill_event->delete;
#die "error removing cust_bill_event: $dcerror\n" if $dcerror;