X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FSetup.pm;h=f8c59c5da90ecc36d6521dc563532c28236dc2cd;hb=03ceab71dad1e5eb366865d304e5e459cc905ce4;hp=d265d937f8764ca69476748f2f69b6528e551bd4;hpb=ffa1f64207647ee1c5126bfad6a246526f4c677c;p=freeside.git diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm index d265d937f..f8c59c5da 100644 --- a/FS/FS/Setup.pm +++ b/FS/FS/Setup.pm @@ -146,6 +146,8 @@ sub populate_initial_data { foreach my $table ( keys %$data ) { + #warn "popuilating $table\n"; + my $class = "FS::$table"; eval "use $class;"; die $@ if $@; @@ -156,11 +158,17 @@ sub populate_initial_data { my @records = @{ $data->{$table} }; foreach my $record ( @records ) { + my $args = delete($record->{'_insert_args'}) || []; my $object = $class->new( $record ); my $error = $object->insert( @$args ); die "error inserting record into $table: $error\n" if $error; + + #my $pkey = $object->primary_key; + #my $pkeyvalue = $object->$pkey(); + #warn " inserted $pkeyvalue\n"; + } } @@ -266,7 +274,7 @@ sub initial_data { #which would only sell regular packages of services. Click on View/Edit #agent types and Add a new agent type. 'agent_type' => [ - { 'atype' => 'internal' }, + { 'atype' => 'Internal' }, ], #Allow this agent type to sell the package you created above. @@ -340,7 +348,12 @@ sub initial_data { #not yet.... - #) + #usage classes + 'usage_class' => [], + + #phone types + 'phone_type' => [], + ; \%hash; @@ -352,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, @@ -457,6 +470,10 @@ sub msgcat_messages { 'en_US' => 'Username in use', }, + 'phonenum_in_use' => { + 'en_US' => 'Phone number in use', + }, + 'illegal_email_invoice_address' => { 'en_US' => 'Illegal email invoice address', },