X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/84970dafc89958d00d83f18961250d5dea733eba..9de6ef57b5cea97eafd87e998fe6784fa8ea8430:/pref.mlt diff --git a/pref.mlt b/pref.mlt index 1db9f8b..97b0157 100644 --- a/pref.mlt +++ b/pref.mlt @@ -1,10 +1,17 @@ <% val you = Init.getUserId (); + val yourname = Init.getUserName (); val youremail = yourname ^ "@hcoop.net"; @header [("title", ["Member preferences"])]; if $"cmd" = "mod" then + val you_all = Init.getUser (); + + Init.modUser {you_all with + paypal = (case $"paypal" of "" => NONE | s => SOME s), + checkout = (case $"checkout" of "" => NONE | s => SOME s)}; + if $"dir" = "on" then Pref.setDirectory you else @@ -33,13 +40,17 @@ if $"cmd" = "mod" then end; %>