1 files changed, 18 insertions, 0 deletions
diff --git a/GroLUG/lib/HTML/Widget/Constraint/ISODate.pm b/GroLUG/lib/HTML/Widget/Constraint/ISODate.pm
new file mode 100644
index 0000000..f5680d2
--- /dev/null
+++ b/GroLUG/lib/HTML/Widget/Constraint/ISODate.pm
@@ -0,0 +1,18 @@
+package HTML::Widget::Constraint::ISODate;
+
+use warnings;
+use strict;
+use base 'HTML::Widget::Constraint';
+use DateTime::Format::Strptime;
+
+my $format=DateTime::Format::Strptime->new(pattern=>'%F');
+
+sub validate {
+    my ($self,$value)=@_;
+
+    my $val=$format->parse_datetime($value);
+
+    return defined($val);
+}
+
+1;