@@ -19,7 +19,7 @@ %% @copyright Yariv Sadan, 2008 -module(api_controller). --export([send/1, follow/1]). +-export([send/1, follow/1, toggle_twitter/1]). -include("twoorl.hrl"). send(A) -> @@ -157,3 +157,22 @@ follow(A) -> exit(Errs2) end end). + +toggle_twitter(A) -> + twoorl_util:auth( + A, + fun(Usr) -> + Params = yaws_api:parse_post(A), + Enabled = + case proplists:get_value("value", Params) of + "true" -> 1; + "false" -> 0; + %% TODO need better error handling + Val -> exit({unexpected_value, Val}) + end, + Usr1 = usr:twitter_enabled(Usr, Enabled), + twoorl_util:update_session(A, Usr1), + usr:update([{twitter_enabled, Enabled}], {id,'=',Usr:id()}), + {response, [{html, <<"ok">>}]} + end). + src/components/api_controller.erl @@ -1,3 +1,3 @@ <%@ send(Data) %><% Data %> - <%@ follow(Data) %><% Data %> +<%@ toggle_twitter(Data) %><% Data %> src/components/api_view.et @@ -27,6 +27,10 @@ index(A) -> A, fun(Usr) -> Ids = usr:get_timeline_usr_ids(Usr), - [?Data(A, {Usr:username(), Usr:twitter_enabled() == 1}), + HasTwitter = ( + Usr:twitter_username() =/= undefined andalso + Usr:twitter_password() =/= undefined), + [?Data(A, {Usr:username(), HasTwitter, + Usr:twitter_enabled() == 1}), {ewc, timeline, show, [A, Ids]}] end). src/components/home_controller.erl @@ -1,4 +1,4 @@ -<%@ index([{B, {Username,TwitterEnabled}}, Timeline]) %> +<%@ index([{B, {Username, HasTwitter, TwitterEnabled}}, Timeline]) %> <table id="txt_table"> <tr> <td><div class="t1"><% B(upto) %></div></td> @@ -9,7 +9,7 @@ <form action="/api/send" method="post" id="txt_form"> <fieldset> <textarea rows="3" cols="70" id="txt" name="msg"></textarea> - <% if TwitterEnabled -> twitter_msg(B); true ->[] end %> + <% if HasTwitter -> twitter_msg(B, TwitterEnabled); true ->[] end %> </fieldset> </form> <input type="button" id="submit" value="<% B(send) %>" onclick="send()"/> @@ -20,5 +20,7 @@ <% Timeline %> -<%@ twitter_msg(B) %><div id="twitter_msg"><% B(twitter_msg) %></div> +<%@ twitter_msg(B, TwitterEnabled) %> +<div id="twitter_msg"><input onchange="toggle_twitter(this);" type="checkbox" <% if TwitterEnabled -> <<"checked=\"checked\"">>; + true -> [] end %>/><% B(twitter_msg) %></div> src/components/home_view.et @@ -42,7 +42,7 @@ function follow(username, val) { $.post("/api/follow", {"username": username, "value": val}, - function(Res) { + function(res) { if (val == "1") { $("#follow").hide(); $("#unfollow").show(); @@ -53,3 +53,14 @@ function follow(username, val) { }); } + +function toggle_twitter(input) { + $.post("/api/toggle_twitter", + {"value": input.value == "on"}, + function(res) { + if (res != "ok") { + alert("Toggle Twitter failed"); + } + }); +} + www/static/twoorl.js d7f599ba3dbf5f617dc7ec860f7768d913239dce Yariv Sadan yarivvv@gmail.com http://github.com/yariv/twoorl/commit/ea9ac7a275c0f77ccda09be190546ef764cf3599 ea9ac7a275c0f77ccda09be190546ef764cf3599 2008-06-22T16:10:24-07:00 2008-06-22T16:10:24-07:00 implement toggle twitter checkbox on homepage 87f692e0b5533b5ca6b0f1abf7a0b23093ec4123 Yariv Sadan yarivvv@gmail.com