anchor.diff:  	try
   		EapData = ocs_eap_codec:eap_packet(EapPacket),
   		Answer = #diameter_eap_app_DEA{'Session-Id' = SId,
  -				'Auth-Application-Id' = 5, 'Auth-Request-Type' = AuthType,
  +				'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  +				'Auth-Request-Type' = AuthType,
   				'Result-Code' = ResultCode, 'Origin-Host' = OH, 'Origin-Realm' = OR,
   				'EAP-Payload' = [EapData]},
   		ok = ocs_log:auth_log(diameter, Server, Client, Request, Answer),
  
positive.code: 			case Request of
  				#diameter_eap_app_DER{} ->
  					eap_start1(Token, StateData);
  				_ ->
  					eap_start2(Token, StateData)
  			end
  	catch
  
negative.code: 			commit4(AccessRequest, StateData);
  		_ScalarP_Out_of_Range ->
  			EapPacket = #eap_packet{code = failure, identifier = EapID},
  			send_radius_response(EapPacket, ?AccessReject, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, StateData),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  