diff options
author | Christopher Burger <burgerc@freeside.biz> | 2019-01-09 12:28:19 -0500 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2019-01-10 09:34:00 -0500 |
commit | ae6359efac06d899093f799052ef8d472effbe98 (patch) | |
tree | ff60be7c8a2e324ed67847629cb8dc1f00fd3412 /FS/FS/part_pkg.pm | |
parent | b944b927f03a8b7d8c8978e6adb1ae0251d1295f (diff) |
RT# 81249 - added ability to validate price plan option fields
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index c088205..1895404 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -693,6 +693,14 @@ sub replace { ''; } +sub validate_number { + my ($option, $valref) = @_; + $$valref = 0 unless $$valref; + return "Invalid $option" + unless ($$valref) = ($$valref =~ /^\s*(\d+)\s*$/); + return ''; +} + =item check Checks all fields to make sure this is a valid package definition. If |