diff options
| author | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-12 10:15:04 +0000 |
|---|---|---|
| committer | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-12 10:15:04 +0000 |
| commit | 9cef92c4c84bdfeaf2c2e43f0a3d78fa44e37dad (patch) | |
| tree | f78a0da70aa71ee38382c110bd35b980a29e6a1c | |
| parent | 1f972937deb44d7c387a23ef82ca188ca7e1401b (diff) | |
| download | fpc-9cef92c4c84bdfeaf2c2e43f0a3d78fa44e37dad.tar.gz | |
* fixed bug in timezone to string conversion
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13849 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/libxml/src/xmlxsd.pas | 8 |
1 files changed, 6 insertions, 2 deletions
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; |