From 9cef92c4c84bdfeaf2c2e43f0a3d78fa44e37dad Mon Sep 17 00:00:00 2001
From: ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 12 Oct 2009 10:15:04 +0000
Subject: * fixed bug in timezone to string conversion

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13849 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/libxml/src/xmlxsd.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'packages/libxml')

diff --git a/packages/libxml/src/xmlxsd.pas b/packages/libxml/src/xmlxsd.pas
index 6be8fcd7bc..3b9dff45e4 100644
--- a/packages/libxml/src/xmlxsd.pas
+++ b/packages/libxml/src/xmlxsd.pas
@@ -363,7 +363,9 @@ begin
       tzUser:
         begin
           if Timezone^.Hour >= 0 then
-            Result := Result + '+';
+            Result := Result + '+'
+          else
+            Result := Result + '-';
           Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]);
         end;
     end;
@@ -390,7 +392,9 @@ begin
       tzUser:
         begin
           if Timezone^.Hour >= 0 then
-            Result := Result + '+';
+            Result := Result + '+'
+          else
+            Result := Result + '-';
           Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]);
         end;
     end;
-- 
cgit v1.2.1