diff options
| author | Badlop <badlop@process-one.net> | 2009-09-10 22:38:37 +0000 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2009-09-10 22:38:37 +0000 |
| commit | c86a73f894fd7c7107adeb2eb22f22f31f3d458b (patch) | |
| tree | 2306298112a443b1edc67e3ef66615d951532de7 /src | |
| parent | Mention in the 2.1.0 release notes the HTTP-Bind optimization (diff) | |
Replace TYPE/1 with is_TYPE/1 (EJAB-922)
SVN Revision: 2596
Diffstat (limited to 'src')
| -rw-r--r-- | src/mod_pubsub/node_hometree_odbc.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/mod_pubsub/node_hometree_odbc.erl b/src/mod_pubsub/node_hometree_odbc.erl index e102c291..ce839a13 100644 --- a/src/mod_pubsub/node_hometree_odbc.erl +++ b/src/mod_pubsub/node_hometree_odbc.erl @@ -1350,12 +1350,12 @@ raw_to_item(NodeId, {ItemId, SJID, Creation, Modification, XML}) -> modification={ToTime(Modification), JID}, payload = Payload}. -l2i(L) when list(L) -> list_to_integer(L); -l2i(I) when integer(I) -> I. -i2l(I) when integer(I) -> integer_to_list(I); -i2l(L) when list(L) -> L. -i2l(I, N) when integer(I) -> i2l(i2l(I), N); -i2l(L, N) when list(L) -> +l2i(L) when is_list(L) -> list_to_integer(L); +l2i(I) when is_integer(I) -> I. +i2l(I) when is_integer(I) -> integer_to_list(I); +i2l(L) when is_list(L) -> L. +i2l(I, N) when is_integer(I) -> i2l(i2l(I), N); +i2l(L, N) when is_list(L) -> case length(L) of N -> L; C when C > N -> L; |