Changeset 639 for trunk

Timestamp:

10/17/14 16:26:49 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 11/mumble for work done intermittently over the past ~year.

• Add a few more checks in the CustIDCK.pm demo module

File:

• trunk/cgi-bin/CustIDCK.pm (modified) (1 diff)

trunk/cgi-bin/CustIDCK.pm

@@ -34 +34 @@
   my $custid = shift;
 
+  # Arguably this is wrong, but spaces don't really show up well on printed material...
+  $custid =~ s/^\s+//;
+  $custid =~ s/\s+$//;
+
   # hardcoded "OK" custids.
   return 1 if $custid =~ /^STAFF(?:-\d\d?)?$/;
   return 1 if $custid =~ /^5554242(?:-\d\d?)?$/;  # just in case some later change might block this
+  return 1 if $custid =~ /^\d{6}(?:-\d\d?)?$/;
   return 1 if $custid =~ /^\d{7}(?:-\d\d?)?$/;
   return 1 if $custid =~ /^\d{10}(?:-\d\d?)?$/;