From e68dd0910194facb1d611af6f66818e83e3fded3 Mon Sep 17 00:00:00 2001
From: Erik Groener <erik.groener@aareon.nl>
Date: Thu, 17 Jan 2019 07:26:30 +0000
Subject: [PATCH] FCLT#55968 Webservice voor Unexus realiseren

svn path=/Website/trunk/; revision=40570
---
 APPL/PRS/prs_perslid.asp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/APPL/PRS/prs_perslid.asp b/APPL/PRS/prs_perslid.asp
index fda4cc6305..c9a99761c5 100644
--- a/APPL/PRS/prs_perslid.asp
+++ b/APPL/PRS/prs_perslid.asp
@@ -29,6 +29,21 @@
   if (prs_key == -1)
     prs_key = getQParamInt("prs_key", -1);
 
+var fuz_tel = getQParam("fuzzytel", "");
+if (fuz_tel)
+{
+    var sql = "SELECT prs_perslid_key"
+            + "  FROM prs_perslid"
+            + " WHERE regexp_replace (prs_perslid_telefoonnr, '*\\D', '') = " + safe.quoted_sql(fuz_tel.replace(" ",""))
+            + "    OR regexp_replace (prs_perslid_mobiel, '*\\D', '') = " + safe.quoted_sql(fuz_tel.replace(" ",""));
+    var oRs = Oracle.Execute(sql);
+    if (!oRs.eof)
+        prs_key = oRs("prs_perslid_key").Value;
+    oRs.Close();
+    // wel fuzzytel, maar geen prs_key gevonden, dan stoppen.
+}
+
+
   var naam = "";
   if (prs_key > 0)
   {