diff options
Diffstat (limited to 'FS/FS/Record.pm')
| -rw-r--r-- | FS/FS/Record.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 11afd9f..c8216ec 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -1988,6 +1988,22 @@ sub ut_money { ''; } +=item ut_moneyn COLUMN + +Check/untaint monetary numbers. May be negative. If there +is an error, returns the error, otherwise returns false. + +=cut + +sub ut_moneyn { + my($self,$field)=@_; + if ($self->getfield($field) eq '') { + $self->setfield($field, ''); + return ''; + } + $self->ut_money($field); +} + =item ut_text COLUMN Check/untaint text. Alphanumerics, spaces, and the following punctuation |