anchor.diff:  			#eap_packet{code = response, type = ?Identity,
   					identifier = StartEapID} when Trusted == false ->
   				NextEapID = (StartEapID rem 255) + 1,
  -				NextStateData = NewStateData#statedata{eap_id = NextEapID},
   				EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  +				NextStateData = NewStateData#statedata{eap_id = NextEapID, id_req = full},
   				EapPacket = #eap_packet{code = request,
   						type = ?AKA, identifier = NextEapID, data = EapData},
   				send_diameter_response(SessionId, AuthReqType,
  
positive.code: 	case radius_attributes:find(?EAPMessage, RequestAttributes) of
  		{ok, <<>>} ->
  			EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  			EapPacket = #eap_packet{code = request,
  					type = ?AKA, identifier = EapID, data = EapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, NewStateData),
  			{next_state, identity, NewStateData, ?TIMEOUT};
  		{ok, EAPMessage} ->
  			try
  				case ocs_eap_codec:eap_packet(EAPMessage) of
  
negative.code: 		password_required :: boolean(),
  		trusted :: boolean(),
  		keys :: [{pos_integer(), binary()}],
  		id_req :: any | full | permanent,
  		service_type :: undefined | integer()}).
  -type statedata() :: #statedata{}.
  
  