From bdfbb5a929adcaa493d046145bec6d6914e9611b Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 13 Aug 2010 05:51:25 +0000
Subject: [PATCH] make ut_textn analogous to ut_text

---
 FS/FS/Record.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 758e0f96c..ab4ea2a5b 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -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
-- 
2.11.0