From 40b75e154ac92aa4525f5916125d9391b295d8b4 Mon Sep 17 00:00:00 2001
From: totoro <david.rene@calexium.com>
Date: Fri, 17 Mar 2017 18:03:49 +0100
Subject: [PATCH] add get_password in web_arg

---
 web/CXM_web_arg_utils.anubis | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/web/CXM_web_arg_utils.anubis b/web/CXM_web_arg_utils.anubis
index f96b433..4b0a285 100644
--- a/web/CXM_web_arg_utils.anubis
+++ b/web/CXM_web_arg_utils.anubis
@@ -105,7 +105,30 @@ public define String
     failure         then default_value
     success(value)  then value
   }.
-  
+
+public define Maybe(String)
+  get_Password
+  (
+    List(Web_arg) lwa,
+    String        pwd_1_name,
+    String        pwd_2_name
+  )=
+  if get_String(lwa, pwd_1_name) is
+  {
+    failure then failure,
+    success(password1) then
+      if get_String(lwa, pwd_2_name) is
+      {
+        failure then failure
+        success(password2) then
+        if password1 = password2 then
+          success(password1)
+        else
+          failure
+      }
+  }
+.
+
 public define Bool
   get_Bool
   (
--
libgit2 0.21.4