anchor.diff:  
   mark_done(ItemId) ->
       {ConsumerKey, AccessToken} = get_credentials(),
  -    io:format("debug: mark_done=~p~n", [ItemId]),
  -    case erlpocket:delete(ConsumerKey, AccessToken, ItemId) of
  +    vffov_common:verbose(info, "Marking video with id=~p as done.", [ItemId]),
  +    case erlpocket:delete(ConsumerKey, AccessToken, list_to_binary(ItemId)) of
           {ok,{[{<<"action_results">>,[true]},{<<"status">>,1}]}} -> true;
           _ -> false
       end.
  
positive.code:             case Items of
                  [] -> empty;
                  Items ->
                      lists:map(
                        fun({Id, {Item}}) ->
                                {binary_to_list(Id),
                                 binary_to_list(
                                   proplists:get_value(<<"given_url">>, Item))
                                }
                        end, Items)
              end;
          {error, Reason} ->
  
negative.code:     application:ensure_all_started(ssl),
      application:ensure_all_started(inets),
      application:ensure_all_started(erlpocket),
      application:set_env(erlpocket, verbose, false).
  
  auth() ->
      [Keys] = vffov_common:read_pocket_credentials(),
  