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";
}