'collect' => 'collect',
);
-#XXX may need to fudge some plandata2option names!!!
foreach my $part_bill_event (
qsearch({
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',
'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;
$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'