projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f9bba71
)
freeside-migrate-events now moves event options, whew
author
ivan
<ivan>
Wed, 12 Sep 2007 05:38:38 +0000
(
05:38
+0000)
committer
ivan
<ivan>
Wed, 12 Sep 2007 05:38:38 +0000
(
05:38
+0000)
bin/freeside-migrate-events
patch
|
blob
|
history
diff --git
a/bin/freeside-migrate-events
b/bin/freeside-migrate-events
index
2ec2918
..
f33a0ad
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;