beginning of prospect/CRM/contact work

[freeside.git] / FS / FS / Setup.pm

diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm
index cba3c7e..f8c59c5 100644 (file)
--- a/FS/FS/Setup.pm
+++ b/FS/FS/Setup.pm
@@ -348,11 +348,12 @@ sub initial_data {
 
     #not yet....
 
-  #)
-
     #usage classes
     'usage_class' => [],
 
+    #phone types
+    'phone_type' => [],
+
   ;
 
   \%hash;
@@ -364,7 +365,7 @@ sub populate_access {
   use FS::AccessRight;
   use FS::access_right;
 
-  foreach my $rightname ( FS::AccessRight->rights ) {
+  foreach my $rightname ( FS::AccessRight->default_superuser_rights ) {
     my $access_right = new FS::access_right {
       'righttype'   => 'FS::access_group',
       'rightobjnum' => 1, #$supergroup->groupnum,