anchor.diff:  
   
   -module(atc872).
  --export([start/1, add_row/7, add_row/8, fetch_rows/5, search_rows/4]).
  +-export([start/1, add_row/7, add_row/8, fetch_rows/5, search_rows/4, archiver/2]).
   
   
   
  
positive.code:   end,
    case mnesia:transaction(Transaction) of
      { aborted, Reason } ->
        error_logger:warning_msg("Add row failed: ~p~n", [Reason]),
        error
        ;
      { atomic, Rval } ->
  
negative.code:   case mnesia:read({ rows, { last, Channel, Node } }) of
      [ { _, _, Last } ] ->
        { -1, lists:reverse(search_row(Node, Channel, RowsBack, SearchString, Last, 0, [])) }
        ;
      [] -> no_such_channel
    end.
  