X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/89627e978f9ad28b99040fd1e322b50d4c6f81a4..0e737d9f261c698b705f5f388650ecb1d88f6749:/pref.mlt diff --git a/pref.mlt b/pref.mlt index 0f908d6..a18fd93 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 @@ -15,25 +22,47 @@ if $"cmd" = "mod" then Pref.subscribe ("hcoop-discuss", youremail) else Pref.unsubscribe ("hcoop-discuss", youremail)) then - %>