X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_svc.cgi;h=e033a7b0981a4507e9e3418d9193f6ef2a3ab424;hp=18319b34167505d89884ba9112a0917027e89d9b;hb=36f038b92a2cc9c8f7bc52a2e11c00dbb7ed6ce0;hpb=d9c51bdc266798d01247e0ff72f6d64aefb91a2e

diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 18319b341..e033a7b09 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -131,23 +131,25 @@ my %defs = (
   },
 );
 
-  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
+  #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
   
   my @dbs = $hashref->{svcdb}
              ? ( $hashref->{svcdb} )