make ut_textn analogous to ut_text
authorjeff <jeff>
Fri, 13 Aug 2010 05:51:25 +0000 (05:51 +0000)
committerjeff <jeff>
Fri, 13 Aug 2010 05:51:25 +0000 (05:51 +0000)
FS/FS/Record.pm

index 758e0f9..ab4ea2a 100644 (file)
@@ -2178,11 +2178,8 @@ May be null.  If there is an error, returns the error, otherwise returns false.
 
 sub ut_textn {
   my($self,$field)=@_;
-  $self->getfield($field)
-    =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/
-      or return gettext('illegal_text'). " $field: ". $self->getfield($field);
-  $self->setfield($field,$1);
-  '';
+  return $self->setfield($field, '') if $self-getfield($field) =~ /^$/;
+  $self->ut_text($field);
 }
 
 =item ut_alpha COLUMN