anchor.diff:      exmpp_session:send_packet(Session, Status),
       %% TODO : Maybe call in another place
       iq_roster(Session),
  +    epasswd:start(Session),
       {ok, S}.
   
   presence_subscribed(Session, Recipient) ->
  
positive.code:     if
          User_1 == User_2 -> acl_check(Op1, Occi_Node, User_1);
          User_1 =/= User_2 ->
              Group_res = read_user(User_2),
              Group_tuple = element(2, Group_res),	
              lager:debug("Group :~p~n", [Group_tuple]),
              [H | _T] = Group_tuple,
              Groups = H#occi_user.groups,
              lager:debug("Group :~p~n", [Groups]),	
              case Groups of
                  undefined ->
                      Groupe = {group, Groups},
                      acl_check(Op1, Occi_Node, Groupe);
                  _ ->						
                      Groupe = {group, Groups},
                      lager:debug("Group :~p~n", [Groupe]),
                      acl_check(Op1, Occi_Node, Groupe)
              end
      end.
  
  acl_check(Op1, Occi_Node, Groupe) ->
      case occi_acl:check(Op1, Occi_Node, Groupe) of
          allow ->
              lager:debug("Autorized"),
              {true};
  
negative.code:     case exmpp_xml:get_attribute(Raw, binary:list_to_bin("type"), "not_found") of
          <<"result">> -> update_table_user(Raw);
          <<"get">> -> lager:debug("Get");
          <<"set">> -> lager:debug("Modification roster")
      end,
      lager:debug("### ROSTER IQ from ~p: ~p~n", [From, Raw]).
  
  