[htoolkit-cvs] HSQL/src HSQL.hsc,1.7,1.8

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29280/src

Modified Files:
	HSQL.hsc 
Log Message:
Fix calculation of ClockTime for SqlTimeTZ type


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/src/HSQL.hsc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HSQL.hsc	10 Feb 2004 11:30:52 -0000	1.7
--- HSQL.hsc	11 Feb 2004 19:05:41 -0000	1.8
***************
*** 309,313 ****
  				(char '.' >> readDecP) `mplus` (return 0)
  				tz <- parseTZ
! 				return (mkClockTime 1970 0 1 hour minutes seconds (tz*3600))
  
  	fromSqlValue SqlTime s = f_read getTime s
--- 309,313 ----
  				(char '.' >> readDecP) `mplus` (return 0)
  				tz <- parseTZ
! 				return (mkClockTime 1970 1 1 hour minutes seconds (tz*3600))
  
  	fromSqlValue SqlTime s = f_read getTime s