make user id email binary

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]).
 

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"],

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"],

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"], 

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">>),