anchor.diff:  		{error, not_found} ->
   			undefined
   	end,
  -	NewIPDR = IPDR#ipdr_wlan{gmtSessionEndDateTime = iso8601(EndTime),
  -			gmtSessionStartDateTime = StartTime},
  +	NewIPDR = IPDR#ipdr_wlan{gmtSessionStartDateTime = StartTime,
  +			gmtSessionEndDateTime = iso8601(EndTime)},
   	ipdr_wlan1(T, radius, TimeStamp, stop, Req, Resp, Rated, NewIPDR);
  -ipdr_wlan1([gmtSessionEndDateTime | T], diameter, TimeStamp, stop, Req, Resp, Rated, IPDR) ->
  -	ipdr_wlan1(T, diameter, TimeStamp, stop, Req, Resp, Rated, IPDR);
  +ipdr_wlan1([gmtSessionEndDateTime | T], diameter, TimeStamp, stop,
  +		#'3gpp_ro_CCR'{'Event-Timestamp' = [EventTimestamp]} = Req, Resp, Rated, IPDR) ->
  +	EventTimeSeconds = calendar:datetime_to_gregorian_seconds(EventTimestamp),
  +	NewIPDR = IPDR#ipdr_wlan{gmtSessionEndDateTime = iso8601(EventTimeSeconds)},
  +	ipdr_wlan1(T, diameter, TimeStamp, stop, Req, Resp, Rated, NewIPDR);
   ipdr_wlan1([unitOfMeasure | T], diameter, TimeStamp, stop, Req, Resp, undefined, IPDR) ->
   	ipdr_wlan1(T, diameter, TimeStamp, stop, Req, Resp, undefined, IPDR);
   ipdr_wlan1([unitOfMeasure | T], diameter, TimeStamp, stop, Req, Resp,
  
positive.code: 	end;
  ipdr_wlan1([outputOctets | T], diameter, TimeStamp, stop, Req, Resp, Rated, IPDR) ->
  	ipdr_wlan1(T, diameter, TimeStamp, stop, Req, Resp, Rated, IPDR);
  ipdr_wlan1([gmtSessionStartDateTime | T], diameter, TimeStamp, stop, Req, Resp, Rated, IPDR) ->
  	ipdr_wlan1(T, diameter, TimeStamp, stop, Req, Resp, Rated, IPDR);
  ipdr_wlan1([gmtSessionEndDateTime | T], radius, TimeStamp, stop, Req, Resp, Rated, IPDR) ->
  
negative.code: 		Continuation2 :: eof | disk_log:continuation(),
  		Events :: [acct_event()].
  %% @doc Ipdr log query.
  ipdr_query(Continuation, Log, _Start, _End, _AttrsMatch) ->
  	case disk_log:chunk(Log, Continuation) of
  		eof ->
  			{eof, []};
  