X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FSetup.pm;fp=FS%2FFS%2FSetup.pm;h=d8099c6a9e61b6b32fa941ec63af68536754d412;hb=e8a09e945986a32f9b7d0a5d546142ada91654ca;hp=6807ef76ea4e07bad7559418fcfeff643ed93b7d;hpb=b8a41c45daf3e4cfa21200f5d9e59e38bd41293c;p=freeside.git

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' => [