X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=cb7d03694c382efe0ed995f32fac8f6e50d5a96f;hb=e3e85ffe37860ce292d359439f4bb4712e64a69b;hp=827e4078fe9395223032fb0710dcc11b3fe51792;hpb=63cc43a59cf31b1d2f48c9bbdd0d87afd7bccb4d;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 827e4078f..cb7d03694 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1077,7 +1077,7 @@ sub get_fk_method {
 }
 
 sub fk_methods_init {
-  warn "[fk_methods_init]\n";
+  warn "[fk_methods_init]\n" if $DEBUG;
   foreach my $table ( dbdef->tables ) {
     $fk_method_cache{$table} = fk_methods($table);
   }
@@ -3003,7 +3003,6 @@ May not be null.
 
 sub ut_name {
   my( $self, $field ) = @_;
-#  warn "ut_name allowed alphanumerics: +(sort grep /\w/, map { chr() } 0..255), "\n";
   $self->getfield($field) =~ /^([\p{Word} \,\.\-\']+)$/
     or return gettext('illegal_name'). " $field: ". $self->getfield($field);
   my $name = $1;