[Informixdb-cvs] informixdb/ext _informixdb.ec,1.87,1.88

[Carsten H. <ch...@us...>]

Update of /cvsroot/informixdb/informixdb/ext
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv17281

Modified Files:
	_informixdb.ec 
Log Message:
Fix bogus results from reading DATETIME HOUR TO SECOND columns with leading
double-zeroes. Thanks to rad...@us... for reporting
this issue.


Index: _informixdb.ec
===================================================================
RCS file: /cvsroot/informixdb/informixdb/ext/_informixdb.ec,v
retrieving revision 1.87
retrieving revision 1.88
diff -C2 -d -r1.87 -r1.88
*** _informixdb.ec	29 Dec 2006 03:43:36 -0000	1.87
--- _informixdb.ec	22 Mar 2007 21:06:54 -0000	1.88
***************
*** 2194,2197 ****
--- 2194,2203 ----
      int year=1,month=1,day=1,hour=0,minute=0,second=0,usec=0;
      dtime_t* dt = (dtime_t*)data;
+     exec sql begin declare section;
+     datetime year to fraction(5) dt_extended;
+     exec sql end declare section;
+ 
+     dtextend(dt, &dt_extended);    
+     dt = &dt_extended;
      for (pos = 0, i = TU_START(dt->dt_qual);
           i <= TU_END(dt->dt_qual) && pos < dt->dt_dec.dec_ndgts;