From 664d8534d3bee15b0fcd3fcb09dd39dc969b2fb9 Mon Sep 17 00:00:00 2001
From: "ian%hixie.ch" <ian%hixie.ch@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 26 Dec 2001 17:18:00 +0000
Subject: [PATCH] A new type of user field for strings that are in the form of
 integers.

git-svn-id: svn://10.0.0.236/trunk@111070 18797224-902f-48f8-a5cc-f745e15eee43
---
 .../PLIF/PLIF/Service/UserField/Integer.pm    | 44 +++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 mozilla/webtools/PLIF/PLIF/Service/UserField/Integer.pm

diff --git a/mozilla/webtools/PLIF/PLIF/Service/UserField/Integer.pm b/mozilla/webtools/PLIF/PLIF/Service/UserField/Integer.pm
new file mode 100644
index 00000000000..595a01d1d3c
--- /dev/null
+++ b/mozilla/webtools/PLIF/PLIF/Service/UserField/Integer.pm
@@ -0,0 +1,44 @@
+# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*-
+#
+# This file is MPL/GPL dual-licensed under the following terms:
+# 
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.1 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and
+# limitations under the License.
+#
+# The Original Code is PLIF 1.0.
+# The Initial Developer of the Original Code is Ian Hickson.
+#
+# Alternatively, the contents of this file may be used under the terms
+# of the GNU General Public License Version 2 or later (the "GPL"), in
+# which case the provisions of the GPL are applicable instead of those
+# above. If you wish to allow use of your version of this file only
+# under the terms of the GPL and not to allow others to use your
+# version of this file under the MPL, indicate your decision by
+# deleting the provisions above and replace them with the notice and
+# other provisions required by the GPL. If you do not delete the
+# provisions above, a recipient may use your version of this file
+# under either the MPL or the GPL.
+
+package PLIF::Service::UserField::Integer;
+use strict;
+use vars qw(@ISA);
+use PLIF::Service::UserField;
+@ISA = qw(PLIF::Service::UserField);
+1;
+
+sub type {
+    return 'integer';
+}
+
+sub validate {
+    my $self = shift;
+    my($data) = @_;
+    return ((not defined($data)) or ($data =~ m/^\d+$/o));
+}