change credit reasons from freetext to new reason/reason type system (#2777)

1 files changed, 6 insertions, 0 deletions

diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm
index 6807ef76e..d8099c6a9 100644
--- a/FS/FS/Setup.pm
+++ b/FS/FS/Setup.pm
@@ -150,6 +150,9 @@ sub populate_initial_data {
     eval "use $class;";
     die $@ if $@;
 
+    $class->_populate_initial_data(%opt)
+      if $class->can('_populate_inital_data');
+
     my @records = @{ $data->{$table} };
 
     foreach my $record ( @records ) {
@@ -175,6 +178,9 @@ sub initial_data {
       { 'groupname' => 'Superuser' },
     ],
 
+    #reason types
+    'reason_type' => [],
+
 #XXX need default new-style billing events
 #    #billing events
 #    'part_bill_event' => [