From: ivan Date: Thu, 14 Jul 2005 11:46:25 +0000 (+0000) Subject: clean up some leftover bits from cust-fields work X-Git-Tag: BEFORE_FINAL_MASONIZE~434 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=f80515a9803e46e644a52391db8bdd73b65d5f35 clean up some leftover bits from cust-fields work --- diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index 716fd861f..031a0e67a 100644 --- 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 205c33078..103ba631b 100644 --- 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