From ae6359efac06d899093f799052ef8d472effbe98 Mon Sep 17 00:00:00 2001
From: Christopher Burger <burgerc@freeside.biz>
Date: Wed, 9 Jan 2019 12:28:19 -0500
Subject: RT# 81249 - added ability to validate price plan option fields

---
 FS/FS/part_pkg.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'FS/FS/part_pkg.pm')

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
-- 
cgit v1.1