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