'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'
'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;
}
};
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;