foreach my $table ( keys %$data ) {
- warn "popuilating $table\n";
+ #warn "popuilating $table\n";
my $class = "FS::$table";
eval "use $class;";
die "error inserting record into $table: $error\n"
if $error;
- my $pkey = $object->primary_key;
- my $pkeyvalue = $object->$pkey();
- warn " inserted $pkeyvalue\n";
+ #my $pkey = $object->primary_key;
+ #my $pkeyvalue = $object->$pkey();
+ #warn " inserted $pkeyvalue\n";
}
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,