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>