Mercurial > openid
comparison src/ur/openidUser.ur @ 34:c0731afcb0c7
Merge from upstream.
author | Karn Kallio <kkallio@eka> |
---|---|
date | Mon, 18 Apr 2011 01:49:24 -0430 |
parents | 43f921ee8ee5 5d6337df5ec7 |
children | a5574ec3991f |
comparison
equal
deleted
inserted
replaced
33:43f921ee8ee5 | 34:c0731afcb0c7 |
---|---|
128 Secure = M.secureCookies}; | 128 Secure = M.secureCookies}; |
129 | 129 |
130 dml (insert user ({Id = (SQL {[uid]})} ++ @Sql.sqexps M.folder M.inj cols)); | 130 dml (insert user ({Id = (SQL {[uid]})} ++ @Sql.sqexps M.folder M.inj cols)); |
131 dml (INSERT INTO identity (User, Identifier) | 131 dml (INSERT INTO identity (User, Identifier) |
132 VALUES ({[uid]}, {[ident]})); | 132 VALUES ({[uid]}, {[ident]})); |
133 redirect (bless after) | 133 return None |
134 in | 134 in |
135 uid <- source ""; | 135 uid <- source ""; |
136 cs <- M.creationState; | 136 cs <- M.creationState; |
137 | 137 |
138 wrap "Your User Details" <xml> | 138 wrap "Your User Details" <xml> |