X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg.pm;h=356c0c038015a95d9eb4c5033713480b9751cd6b;hp=fb0570647abff1c76b7bcbbc69c8ced26c801af4;hb=057fc61586d26199005660b908ece68a7a1da681;hpb=0edb6050aeb65200869a12d83d8de794ed384154

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index fb0570647..356c0c038 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