25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-22 17:28:25 +01:00

Replace TYPE/1 with is_TYPE/1 (EJAB-922)

SVN Revision: 2596
This commit is contained in:
Badlop 2009-09-10 22:38:37 +00:00
parent 4b8d7dd19b
commit c86a73f894

View File

@ -1350,12 +1350,12 @@ raw_to_item(NodeId, {ItemId, SJID, Creation, Modification, XML}) ->
modification={ToTime(Modification), JID}, modification={ToTime(Modification), JID},
payload = Payload}. payload = Payload}.
l2i(L) when list(L) -> list_to_integer(L); l2i(L) when is_list(L) -> list_to_integer(L);
l2i(I) when integer(I) -> I. l2i(I) when is_integer(I) -> I.
i2l(I) when integer(I) -> integer_to_list(I); i2l(I) when is_integer(I) -> integer_to_list(I);
i2l(L) when list(L) -> L. i2l(L) when is_list(L) -> L.
i2l(I, N) when integer(I) -> i2l(i2l(I), N); i2l(I, N) when is_integer(I) -> i2l(i2l(I), N);
i2l(L, N) when list(L) -> i2l(L, N) when is_list(L) ->
case length(L) of case length(L) of
N -> L; N -> L;
C when C > N -> L; C when C > N -> L;