[freeside-commits] freeside/bin freeside-migrate-events,1.2,1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail:/tmp/cvs-serv16950

Modified Files:
	freeside-migrate-events 
Log Message:
freeside-migrate-events now moves event options, whew

Index: freeside-migrate-events
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/freeside-migrate-events,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- freeside-migrate-events	12 Sep 2007 04:20:14 -0000	1.2
+++ freeside-migrate-events	12 Sep 2007 05:38:38 -0000	1.3
@@ -40,7 +40,6 @@
   'collect'                => 'collect',
 );
 
-#XXX may need to fudge some plandata2option names!!!
 
 foreach my $part_bill_event (
   qsearch({
@@ -62,6 +61,11 @@
     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',
@@ -71,7 +75,7 @@
     '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;