anchor.diff:  handle_call({lease_req, get_leases}, _From, State) ->
       Reply = priv_get_leases(),
       lager:info("Request received: {get_leases} -> Reply: ~p"
  +              ,[Reply]),
  +    {reply, Reply, State};
  +handle_call({lease_req, clear_leases}, _From, State) ->
  +    Reply = priv_clear_leases(),
  +    lager:info("Request received: {clear_leases} -> Reply: ~p"
                 ,[Reply]),
       {reply, Reply, State};
   handle_call(_Request, _From, State) ->
  
positive.code:         end,
      {atomic, Result} = mnesia:transaction(T),
      Result.
  
negative.code: -spec get_leases() -> [#lease{}].
  get_leases() ->
      gen_server:call(?MODULE, {lease_req, get_leases}).
  
  %%--------------------------------------------------------------------
  %% @doc
  %% Clears all existing leases from the table.
  %%
  %% @spec clear_leases() -> ok.
  %% @end
  %%--------------------------------------------------------------------
  -spec clear_leases() -> ok.
  clear_leases() ->
      gen_server:call(?MODULE, {lease_req, clear_leases}).
  
  
  %%%===================================================================
  