- case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css) of
+ Page_principale = case xmerl_xpath:string("pagePrincipale", Action) of [#xmlElement{content = [#xmlText{value = P3}]}] -> list_to_integer(P3); _ -> undefined end,
+ 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), list_to_integer(Page_conv_str)}
+ end,
+ xmerl_xpath:string("conversation", Action)
+ ),
+ case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css, Page_principale, Conversations) of