anchor.diff:  execute({WriteMode, ReadMode, Connection, Database}, Fun) ->
       mongo:do(WriteMode, ReadMode, Connection, Database, Fun) ;
   execute({WriteMode, ReadMode, Connection, Database, User, Password}, Fun) ->
  -    mongo:do(WriteMode, ReadMode, Connection, Database, 
  +    mongo:do(WriteMode, ReadMode, Connection, Database,
   	     fun() ->
   		     case mongo:auth(User,Password) of
   			 true ->
  
positive.code:                 mongo:find_one(boss_counters, {'name', list_to_binary(Id)})
          end),
      case Res of
          {ok, {Doc}} -> 
              PropList = tuple_to_proplist(Doc),
              proplists:get_value(value, PropList);
          {failure, Reason} -> {error, Reason}
          
      end.
  
  incr(Conn, Id) ->
      incr(Conn, Id, 1).
  
  incr(Conn, Id, Count) ->
      Res = execute(Conn, fun() -> 
                   mongo:repsert(boss_counters, 
                           {'name', list_to_binary(Id)},
                           {'$inc', {value, Count}}
                           )
  
negative.code:     end.
  -spec(read_connect1(read_mode(), mongo:rs_connection()) ->
  	     error_m( mongo:connection())).
  
  read_connect1(master, RSConn) ->
       mongo_replset:primary(RSConn);
  read_connect1(slave_ok, RSConn) ->
  