- #comment this out until it can be fixed, see bug#590
- #
- #foreach my $svcdb (grep dbdef->table($_), keys %defs ) {
- # my $self = "FS::$svcdb"->new;
- # $vfields{$svcdb} = {};
- # foreach my $field ($self->virtual_fields) { # svc_Common::virtual_fields with a null svcpart returns all of them
- # my $pvf = $self->pvf($field);
- # my @list = $pvf->list;
- # if (scalar @list) {
- # $defs{$svcdb}->{$field} = { desc => $pvf->label,
- # type => 'select',
- # select_list => \@list };
- # } else {
- # $defs{$svcdb}->{$field} = $pvf->label;
- # } #endif
- # $vfields{$svcdb}->{$field} = $pvf;
- # warn "\$vfields{$svcdb}->{$field} = $pvf";
- # } #next $field
- #} #next $svcdb
+ foreach my $svcdb (grep dbdef->table($_), keys %defs ) {
+ my $self = "FS::$svcdb"->new;
+ $vfields{$svcdb} = {};
+ foreach my $field ($self->virtual_fields) { # svc_Common::virtual_fields with a null svcpart returns all of them
+ my $pvf = $self->pvf($field);
+ my @list = $pvf->list;
+ if (scalar @list) {
+ $defs{$svcdb}->{$field} = { desc => $pvf->label,
+ type => 'select',
+ select_list => \@list };
+ } else {
+ $defs{$svcdb}->{$field} = $pvf->label;
+ } #endif
+ $vfields{$svcdb}->{$field} = $pvf;
+ warn "\$vfields{$svcdb}->{$field} = $pvf";
+ } #next $field
+ } #next $svcdb