picolisp

commit 77067a4a3427aa64336cc017f2e0d397adfcab93
parent 62b048b096d7c69a49684a76f233282910493948
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 28 May 2013 08:28:26 +0200

Demo app password permission
Diffstat:
M
app/user.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/app/user.l b/app/user.l
@@ -1,4 +1,4 @@
-# 23may13abu
+# 28may13abu
 # (c) Software Lab. Alexander Burger
 
 (must "User Administration" UserAdmin)
@@ -9,7 +9,7 @@
          ,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
          ,"Password"
          (gui '(+Able +E/R +Fmt +TextField)
-            '(may Password)
+            '(or (may Password) (== *Login (: home obj)))
             '(pw : home obj)
             '((V) (and V "****"))
             '((V)