summaryrefslogtreecommitdiff
path: root/FS
diff options
context:
space:
mode:
authorivan <ivan>2006-04-03 10:11:01 +0000
committerivan <ivan>2006-04-03 10:11:01 +0000
commitf6aa291128cc3adbf28906f9024746efedd6c0cb (patch)
tree7716a389493bb5eb81884575199d32e1b86be6eb /FS
parent929f432c766bbe3bdeed5b80818a12ddf6ec6339 (diff)
allow [ and ] in ut_text
Diffstat (limited to 'FS')
-rw-r--r--FS/FS/Record.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index a7af708a3..e9f21ffc9 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1330,7 +1330,7 @@ sub ut_money {
=item ut_text COLUMN
Check/untaint text. Alphanumerics, spaces, and the following punctuation
-symbols are currently permitted: ! @ # $ % & ( ) - + ; : ' " , . ? / =
+symbols are currently permitted: ! @ # $ % & ( ) - + ; : ' " , . ? / = [ ]
May not be null. If there is an error, returns the error, otherwise returns
false.
@@ -1341,7 +1341,7 @@ sub ut_text {
#warn "msgcat ". \&msgcat. "\n";
#warn "notexist ". \&notexist. "\n";
#warn "AUTOLOAD ". \&AUTOLOAD. "\n";
- $self->getfield($field) =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]+)$/
+ $self->getfield($field) =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]+)$/
or return gettext('illegal_or_empty_text'). " $field: ".
$self->getfield($field);
$self->setfield($field,$1);