clean up some leftover bits from cust-fields work

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index 716fd86..031a0e6 100644 (file)
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -1,5 +1,6 @@
 package FS::UI::Web;
 
+use vars qw($DEBUG);
 use FS::Conf;
 use FS::Record qw(dbdef);
 
@@ -76,7 +77,7 @@ sub cust_header {
     warn "  no cust-fields configuration value found; using default 'Customer'"
       if $DEBUG;
     @cust_header = ( 'Customer' );
-    @cust_fields = ( 'cust_name' );
+    @cust_fields = ( 'name' );
   }
 
   #my $svc_x = shift;

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 205c330..103ba63 100644 (file)
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -11,8 +11,7 @@ use FS::cust_main;
 
 @ISA = qw( FS::cust_main_Mixin FS::Record );
 
-#$DEBUG = 0;
-$DEBUG = 1;
+$DEBUG = 0;
 
 =head1 NAME