From 26ac75bdc9be8207533bfd9836039c4af91f0598 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 29 Nov 2010 13:33:56 +0100
Subject: Support negative part-hour TZ values (thanks to Alexander
 Zhukov)(EJAB-1301)

---
 src/jlib.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/jlib.erl')

diff --git a/src/jlib.erl b/src/jlib.erl
index 4adf8879e..cb70c5a4a 100644
--- a/src/jlib.erl
+++ b/src/jlib.erl
@@ -561,7 +561,7 @@ rsm_encode_count(Count, Arr)->
 i2l(I) when is_integer(I) -> integer_to_list(I);
 i2l(L) when is_list(L)    -> L.
 
-%% Timezone = utc | {Hours, Minutes}
+%% Timezone = utc | {Sign::string(), {Hours, Minutes}} | {Hours, Minutes}
 %% Hours = integer()
 %% Minutes = integer()
 timestamp_to_iso({{Year, Month, Day}, {Hour, Minute, Second}}, Timezone) ->
@@ -572,6 +572,8 @@ timestamp_to_iso({{Year, Month, Day}, {Hour, Minute, Second}}, Timezone) ->
     Timezone_string =
 	case Timezone of
 	    utc -> "Z";
+	    {Sign, {TZh, TZm}} ->
+		io_lib:format("~s~2..0w:~2..0w", [Sign, TZh, TZm]);
 	    {TZh, TZm} ->
 		Sign = case TZh >= 0 of
 			   true -> "+";
-- 
cgit v1.2.3