diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-08-14 12:48:17 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-08-14 12:48:17 -0700 |
| commit | add0ce1fd73b53a51f140cf797a42825cc018fd0 (patch) | |
| tree | 0ea69d0b97241f9ae4f322ae4460acbcc518e10f | |
| parent | 713c7685a7ca6c460b4870e33b7e52a5c9070247 (diff) | |
add tilde to allowable punctuation, RT#77086
| -rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index c05dac00b..82974b36a 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -2429,7 +2429,7 @@ sub ut_moneyn { =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. @@ -2443,7 +2443,7 @@ sub ut_text { # \p{Word} = alphanumerics, marks (diacritics), and connectors # see perldoc perluniprops $self->getfield($field) - =~ /^([\p{Word} \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]\<\>$money_char]+)$/ + =~ /^([\p{Word} \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]\<\>\~$money_char]+)$/ or return gettext('illegal_or_empty_text'). " $field: ". $self->getfield($field); $self->setfield($field,$1); |