Email = case xmerl_xpath:string("email", Action) of [#xmlElement{content = [#xmlText{value = E}]}] -> E; _ -> undefined end,
Css = case xmerl_xpath:string("css", Action) of [#xmlElement{content = [#xmlText{value = C}]}] -> C; _ -> undefined end,
Page_principale = case xmerl_xpath:string("pagePrincipale", Action) of [#xmlElement{content = [#xmlText{value = P3}]}] -> list_to_integer(P3); _ -> undefined end,
- Conversations = lists:foldl(
+ Conversations = lists:foldr(
fun(Conv, Acc) ->
[#xmlElement{content = [#xmlText{value = Id_racine_str}]}] = xmerl_xpath:string("racine", Conv),
[#xmlElement{content = [#xmlText{value = Page_conv_str}]}] = xmerl_xpath:string("page", Conv),
_ -> inconnu
end;
_ -> inconnu
- end,
- % extraction des conversations en [{id, page}, ..]
- % Obsolète : obtenu depuis la table 'user'
- %~ Conversations = lists:map(
- %~ fun(Conv) ->
- %~ [#xmlElement{content = [#xmlText{value = Id_racine_str}]}] = xmerl_xpath:string("racine", Conv),
- %~ [#xmlElement{content = [#xmlText{value = Page_conv_str}]}] = xmerl_xpath:string("page", Conv),
- %~ {erlang:list_to_integer(Id_racine_str, 36), erlang:list_to_integer(Page_conv_str)}
- %~ end,
- %~ xmerl_xpath:string("conversation", Action)
- %~ ),\r
+ end,\r
% accrochez-vous ca va siouxer ;)
[{reponse, [{name, "refreshMessages"}],\r
lists:map(\r
]
}\r
end,
- euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, User#user.page_principale)\r
+ euphorik_minichat_conversation:conversations(
+ if User =/= inconnu -> User#user.conversations; true -> [] end,
+ Nb_message,
+ Dernier_id,
+ if User =/= inconnu -> User#user.page_principale; true -> 1 end
+ )\r
)
}];
_ ->