From: ethem <ethem>
Date: Wed, 30 Aug 2006 17:14:32 +0000 (+0000)
Subject: Added ABA validation funtion.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=e2863967c69b418b13103533413d20f63fe422b4;p=moodle.git

Added ABA validation funtion.
---

diff --git a/enrol/authorize/abaval.php b/enrol/authorize/abaval.php
new file mode 100644
index 0000000000..41712d9033
--- /dev/null
+++ b/enrol/authorize/abaval.php
@@ -0,0 +1,26 @@
+<?php // $Id$
+
+/**
+ * Validates the supplied ABA number
+ * using a simple mod 10 check digit routine.
+ *
+ * @param string $aba Bank ID
+ * @return bool true ABA is valid, false otherwise
+ */
+function ABAVal($aba)
+{
+    if (ereg("^[0-9]{9}$", $aba)) {
+        $n = 0;
+        for($i = 0; $i < 9; $i += 3) {
+            $n += (substr($aba, $i, 1) * 3) +
+                  (substr($aba, $i + 1, 1) * 7) +
+                  (substr($aba, $i + 2, 1));
+        }
+        if ($n != 0 and $n % 10 == 0) {
+            return true;
+        }
+    }
+    return false;
+}
+
+?>