From: ivan <ivan>
Date: Mon, 3 Nov 2003 11:30:42 +0000 (+0000)
Subject: kludge around this so i can add service definitions for now
X-Git-Tag: NET_WHOIS_RAW_0_31~296
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=36f038b92a2cc9c8f7bc52a2e11c00dbb7ed6ce0

kludge around this so i can add service definitions for now
---

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} )