anchor.diff:  -spec ts() -> ok.
   %% @doc Dipslay the total number of records in ocs tables.
   ts() ->
  -	Tables = [offer, product, service, bucket, resource, client, session],
   	case mnesia:system_info(is_running)  of
   		yes ->
  -			Other = mnesia:system_info(tables)
  -					-- [schema, httpd_user, httpd_group | Tables],
  -			ts00(Other, lists:reverse(Tables));
  +			ts00(tables(), 0, []);
   		no ->
   			io:fwrite("mnesia is not running\n");
   		starting ->
  
positive.code: 			io:fwrite("mnesia is stopping\n")
  	end.
  %% @hidden
  ts00([H | T], Acc) ->
  	case mnesia:table_info(H, record_name) of
  		gtt ->
  			ts00(T, [H | Acc]);
  		_ ->
  			ts00(T, Acc)
  	end;
  ts00([], Acc) ->
  	ts01(lists:reverse(Acc), 0, []).
  %% @hidden
  ts01([H | T], Max, Acc) ->
  	NewMax = case length(atom_to_list(H)) of
  		N when N > Max ->
  			N;
  		_ ->
  			Max
  	end,
  	ts01(T, NewMax, [H | Acc]);
  ts01([], Max, Acc) ->
  	ts02(lists:reverse(Acc), Max, 0, []).
  %% @hidden
  ts02([H | T], NameLen, Max, Acc) ->
  	Size = mnesia:table_info(H, size),
  	NewMax = case length(integer_to_list(Size)) of
  		N when N > Max ->
  
negative.code: 			ok
  	end.
  
  %% @hidden
  tables() ->
  	Tables = [offer, product, service, bucket, resource, client, session],
  	Other = mnesia:system_info(tables)
  			-- [schema, httpd_user, httpd_group | Tables],
  	tables(Other, lists:reverse(Tables)).
  %% @hidden
  tables([H | T], Acc) ->
  	case mnesia:table_info(H, record_name) of
  		gtt ->
  			tables(T, [H | Acc]);
  		_ ->
  			tables(T, Acc)
  	end;
  tables([], Acc) ->
  	lists:reverse(Acc).
  
  %% @hidden
  snodes(Nodes) ->
  	snodes(Nodes, []).
  %% @hidden
  snodes([H | T], []) ->
  	snodes(T, [atom_to_list(H)]);
  snodes([H | T], Acc) ->
  	snodes(T, [atom_to_list(H), ", " | Acc]);
  snodes([], Acc) ->
  	lists:reverse(Acc).
  
  