anchor.diff:      Options     = [{body_format,binary}],
       case httpc:request(Method, Request, [{url_encode, false}], Options) of
           {ok, {{_HTTPVersion, Status, _Reason}, _Headers, RBody}}
  -            when (Status == 200) or (Status == 201) or (Status == 204) ->
  +          when (Status == 200) or (Status == 201) or (Status == 204) ->
               eLog:log(debug, ?MODULE, init, [Method, Url, Body, RBody],
                        "http success", ?LINE),
               Body;
  -            {ok, {{_HTTPVersion, _Error, Reason}, _Headers, RBody}} ->
  -                eLog:log(debug, ?MODULE, init, [Method, Url, Body, RBody],
  -                         "http failure", ?LINE),
  -                MsgDlg = wxMessageDialog:new(Frame, "Error occured: " ++ Reason,
  -                                             [{style,   ?wxICON_ERROR},
  -                                              {caption, "Worklog failure"}]),
  -                wxMessageDialog:showModal(MsgDlg),
  -                wxMessageDialog:destroy(MsgDlg),
  -                Body;
  +        {ok, {{_HTTPVersion, _Error, Reason}, _Headers, RBody}} ->
  +            eLog:log(debug, ?MODULE, init, [Method, Url, Body, RBody],
  +                     "http failure", ?LINE),
  +            MsgDlg = wxMessageDialog:new(Frame, "Error occured: " ++ Reason,
  +                                         [{style,   ?wxICON_ERROR},
  +                                          {caption, "Worklog failure"}]),
  +            wxMessageDialog:showModal(MsgDlg),
  +            wxMessageDialog:destroy(MsgDlg),
  +            Body;
           Else ->
               eLog:log(debug, ?MODULE, init, [Method, Url, Body, Else],
                        "http failure", ?LINE),
  
positive.code:     makeComment(Rest, Acc).
  
  characters_to_binary(null)  -> <<>>;
  characters_to_binary(Value) ->
      unicode:characters_to_binary(Value, utf8, latin1).
  
  get(Key, Map, Default) ->
      case maps:get(Key, Map, Default) of
  
negative.code: issueList2([Feature| Rest], SoFar) ->
      FeatureRef   = binary_to_list(maps:get(<<"key">>, Feature)),
      Fields       = maps:get(<<"fields">>, Feature),
      FeatureDesc  = toLatin1(maps:get(<<"summary">>, Fields)),
      FeatureMText = FeatureRef ++ ": " ++ binary_to_list(FeatureDesc),
      issueList2(Rest, [FeatureMText| SoFar]).
  
  