anchor.diff:      {A,B} = lists:foldl(fun(Res,Acc) -> fetch_texts(Res, Acc, Context) end, {[],[]}, R),
       {ObjIds, ObjTexts} = related(Id, Context),
       {CatIds, CatTexts} = category(proplists:get_value(category_id, R), Context),
  -    Split = [ (split_lang(Ts, Context)) || Ts <- [A, B, CatTexts, ObjTexts] ],
  +    Split = [ (split_lang(Ts, Context)) || Ts <- [A, [], B++CatTexts, ObjTexts] ],
       {ObjIds, CatIds, [ [ {Lng,list_to_binary(z_utils:combine(32, Ts))} || {Lng,Ts} <- Ps] || Ps <- Split ]}.
       
   
  
positive.code: 
      SqlArgs = ArgsD ++ [
          TsvIds,
          proplists:get_value(street, R),
          proplists:get_value(city, R),
          proplists:get_value(postcode, R),
          proplists:get_value(state, R),
          proplists:get_value(country, R),
          proplists:get_value(name_first, R),
          proplists:get_value(name_surname, R),
          proplists:get_value(gender, R),
          DateStart,
          DateEnd,
          get_pivot_title(R),
          Id
      ],
      z_db:q(Sql, SqlArgs, Context),
  
negative.code:                         [ pivot_resource(Id, Ctx) || {Id,_Serial} <- Qs]
                  end,
              case z_db:transaction(F, Context) of
                  {rollback, PivotError} -> ?ERROR("Pivot error: ~p: ~p~n", [PivotError, Qs]);
                  L when is_list(L) -> delete_queue(Qs, Context)
              end
      end.
  