make user id email binary

5HT · Jun 20, 2014 · 498c673 · 498c673
1 parent 73c66fe
commit 498c673
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/src/avz.erl b/src/avz.erl
@@ -12,8 +12,8 @@ buttons(Methods) -> [ M:login_button() || M <- Methods].
 event(init) -> [];
 event(logout) -> wf:user(undefined), wf:redirect(?LOGIN_PAGE);
 event(to_login) -> wf:redirect(?LOGIN_PAGE);
-event({register, #user{}=U}) -> kvs:add(U), login_user(U);
-event({login, #user{}=U}) -> login_user(U);
+event({register, #user{}=U}) -> kvs:add(U), login_user(U); % sample
+event({login, #user{}=U}) -> login_user(U);                % sample
 event({Method,Event}) -> Method:event({Method,Event});
 event(Ev) ->  error_logger:info_msg("Page Event ~p",[Ev]).
 

diff --git a/src/facebook.erl b/src/facebook.erl
@@ -33,7 +33,7 @@ registration_data(Props, facebook, Ori)->
                 register_date = erlang:now(),
                 status = ok }.
 
-email_prop(Props, _) -> binary_to_list(proplists:get_value(<<"email">>, Props)).
+email_prop(Props, _) -> proplists:get_value(<<"email">>, Props).
 
 login_button() -> #panel{class=["btn-group"], body=
     #link{id=loginfb, class=[btn, "btn-primary", "btn-large", "btn-lg"],

diff --git a/src/google.erl b/src/google.erl
@@ -28,7 +28,7 @@ registration_data(Props, google, Ori)->
                 sex = proplists:get_value(<<"gender">>, Props),
                 status = ok }.
 
-email_prop(Props, _) -> binary_to_list(proplists:get_value(<<"email">>, Props)).
+email_prop(Props, _) -> proplists:get_value(<<"email">>, Props).
 
 login_button()-> #panel{id=plusloginbtn, class=["btn-group"], body=
     #link{class=[btn, "btn-google-plus", "btn-large","btn-lg"],

diff --git a/src/microsoft.erl b/src/microsoft.erl
@@ -36,7 +36,7 @@ registration_data(Props, microsoft, Ori)->
                 sex = proplists:get_value(<<"gender">>, Props),
                 status = ok }.
 
-email_prop(Props, _) -> binary_to_list(proplists:get_value(<<"id">>, Props)) ++ "@microsoft".
+email_prop(Props, _) -> proplists:get_value(<<"id">>, Props).
 
 login_button()-> #panel{class=["btn-group"], body=
     #link{id=microsoftbtn, class=[btn, "btn-microsoft", "btn-large"], 

diff --git a/src/twitter.erl b/src/twitter.erl
@@ -24,7 +24,7 @@ registration_data(Props, twitter, Ori)->
                 register_date = erlang:now(),
                 status = ok }.
 
-email_prop(Props, twitter) -> binary_to_list(proplists:get_value(<<"screen_name">>, Props)) ++ "@twitter".
+email_prop(Props, twitter) -> proplists:get_value(<<"screen_name">>, Props).
 
 callback() ->
     Token = wf:q(<<"oauth_token">>),