I'll replace them with tw_pwd and tw_uname which is the names of the
E/R relations, I like it consistent over the whole board :-)

/Henrik

On Mon, Nov 2, 2009 at 8:33 AM, Alexander Burger <a...@software-lab.de> wrot=
e:
> Hi Henrik,
>
>> As of PicoLisp 3 *Post for instance is no more so the above wouldn't
>
> That's right. Just for the info, '*Post' needs to be replaced by '*PRG'.
> In the code in we discussed, however, it was not necessary any more.
>
>
>> I'm unable to get the cursor to appear in them. The only lead I have
>> on this one is that the pwd2 field is of course the only field that is
>> not a part of the +User E/R.
>
> Oops, my error. '+E/R' does not make sense in _all_ fields, as the
> object is no longer created at the initial GET, but in the "Save"
> button. '+E/R' automatically disables input fields when the form holds
> no object.
>
> So the solution should be (not tested):
>
> (de register ()
> =A0 (app)
> =A0 (action
> =A0 =A0 =A0(rss-html
> =A0 =A0 =A0 =A0 (form NIL
> =A0 =A0 =A0 =A0 =A0 =A0(<grid> 2
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Username" (gui 'uname '(+AlNum) 10)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Password" (gui 'pwd '(+PwdCheck +PwField) '(=
val> (: home pwd2)) 10)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Password Again" (gui 'pwd2 '(+PwField) 10)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Email" (gui 'email '(+TextField) 10)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Twitter username" (gui 'twn '(+TextField) 10=
)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 "Twitter password" (gui 'twp '(+PwField) 10) =
)
> =A0 =A0 =A0 =A0 =A0 =A0(gui '(+Button) "Save"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 '(cond
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ((db 'uname '+User (val> (: home unam=
e)))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0(err "Name not unique") )
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ((<> (val> (: home pwd)) (val> (: hom=
e pwd2)))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0(err "Password mismatch") )
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 (T
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0(let Usr
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 (new! '(+User)
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0'uname (val> (: ho=
me uname))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0'tw_pwd (val> (: h=
ome tw_pwd))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0'tw_uname (val> (:=
 home tw_uname))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0'pwd (val> (: home=
 pwd))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0'email (val> (: ho=
me email)))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 (cookie 'uid (put!> Usr '=
uid (randNum> '+Gh 20)))
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 (redir) ) ) ) ) ) ) ) )
>
> The two fields 'twn' and 'twp' are not used?
>
> Cheers,
> - Alex
> --
> UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=3dunsubscribe
>
-- 
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe

Reply via email to