From c86a73f894fd7c7107adeb2eb22f22f31f3d458b Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 10 Sep 2009 22:38:37 +0000
Subject: [PATCH] Replace TYPE/1 with is_TYPE/1 (EJAB-922)

SVN Revision: 2596
---
 src/mod_pubsub/node_hometree_odbc.erl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/mod_pubsub/node_hometree_odbc.erl b/src/mod_pubsub/node_hometree_odbc.erl
index e102c291a..ce839a132 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;