projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
should fix usage showing up without omitting package details, RT#11905, RT#11561
[freeside.git]
/
FS
/
FS
/
Setup.pm
diff --git
a/FS/FS/Setup.pm
b/FS/FS/Setup.pm
index
d265d93
..
29ca9a8
100644
(file)
--- a/
FS/FS/Setup.pm
+++ b/
FS/FS/Setup.pm
@@
-146,21
+146,29
@@
sub populate_initial_data {
foreach my $table ( keys %$data ) {
foreach my $table ( keys %$data ) {
+ #warn "popuilating $table\n";
+
my $class = "FS::$table";
eval "use $class;";
die $@ if $@;
$class->_populate_initial_data(%opt)
my $class = "FS::$table";
eval "use $class;";
die $@ if $@;
$class->_populate_initial_data(%opt)
- if $class->can('_populate_inital_data');
+ if $class->can('_populate_init
i
al_data');
my @records = @{ $data->{$table} };
foreach my $record ( @records ) {
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 $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";
+
}
}
}
}
@@
-173,6
+181,16
@@
sub initial_data {
#tie my %hash, 'Tie::DxHash',
tie my %hash, 'Tie::IxHash',
#tie my %hash, 'Tie::DxHash',
tie my %hash, 'Tie::IxHash',
+ #bootstrap user
+ 'access_user' => [
+ { 'username' => 'fs_bootstrap',
+ '_password' => 'changeme', #will trigger warning if you try to enable
+ 'last' => 'User',
+ 'first' => 'Bootstrap',
+ 'disabled' => 'Y',
+ },
+ ],
+
#superuser group
'access_group' => [
{ 'groupname' => 'Superuser' },
#superuser group
'access_group' => [
{ 'groupname' => 'Superuser' },
@@
-266,7
+284,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' => [
#which would only sell regular packages of services. Click on View/Edit
#agent types and Add a new agent type.
'agent_type' => [
- { 'atype' => '
i
nternal' },
+ { 'atype' => '
I
nternal' },
],
#Allow this agent type to sell the package you created above.
],
#Allow this agent type to sell the package you created above.
@@
-340,7
+358,12
@@
sub initial_data {
#not yet....
#not yet....
- #)
+ #usage classes
+ 'usage_class' => [],
+
+ #phone types
+ 'phone_type' => [],
+
;
\%hash;
;
\%hash;
@@
-352,7
+375,7
@@
sub populate_access {
use FS::AccessRight;
use FS::access_right;
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,
my $access_right = new FS::access_right {
'righttype' => 'FS::access_group',
'rightobjnum' => 1, #$supergroup->groupnum,
@@
-457,6
+480,10
@@
sub msgcat_messages {
'en_US' => 'Username in use',
},
'en_US' => 'Username in use',
},
+ 'phonenum_in_use' => {
+ 'en_US' => 'Phone number in use',
+ },
+
'illegal_email_invoice_address' => {
'en_US' => 'Illegal email invoice address',
},
'illegal_email_invoice_address' => {
'en_US' => 'Illegal email invoice address',
},