DBD-TimesTen

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* Removed unused dbtype_is_string function.

2006-11-22 [r520]  Chad Wagner <chad.wagner@gmail.com>

	* Clean up docs.

2006-11-22 [r519]  Chad Wagner <chad.wagner@gmail.com>

	* Removed unused variables, clean up.
	* Removed odbc_more_results feature, not supported.
	* Removed odbc_cursor_type feature.
	* Removed 09multi test suite

2006-11-22 [r518]  Chad Wagner <chad.wagner@gmail.com>

	* Removed Changes POD.
	* Added svnlog target, automatically creates ChangeLog from SVN.

2006-11-22 [r517]  Chad Wagner <chad.wagner@gmail.com>

	* Bumped version, not yet released.

dbdimp.c  view on Meta::CPAN

int
   dbd_st_finish(sth, imp_sth)
   SV *sth;
imp_sth_t *imp_sth;
{
   D_imp_dbh_from_sth;
   RETCODE rc;

   /* Cancel further fetches from this cursor.                 */
   /* We don't close the cursor till DESTROY (dbd_st_destroy). */
   /* The application may re execute(...) it.                  */
   if (DBIc_ACTIVE(imp_sth) && imp_dbh->hdbc != SQL_NULL_HDBC)
   {

      rc = SQLFreeStmt(imp_sth->hstmt, SQL_CLOSE);
      if (!SQL_ok(rc))
      {
         dbd_error(sth, rc, "dbd_st_finish/SQLFreeStmt(SQL_CLOSE)");
         return 0;
      }

dbdimp.c  view on Meta::CPAN

   dbd_st_FETCH_attrib(sth, imp_sth, keysv)
   SV *sth;
imp_sth_t *imp_sth;
SV *keysv;
{
   STRLEN kl;
   char *key = SvPV(keysv,kl);
   int i;
   SV *retsv = NULL;
   T_st_params *par;
   char cursor_name[256];
   SWORD cursor_name_len;
   RETCODE rc;

   for (par = S_st_fetch_params; par->len > 0; par++)
      if (par->len == kl && strEQ(key, par->str))
	 break;


   if (par->len <= 0)
      return Nullsv;

dbdimp.c  view on Meta::CPAN

	    av_store(av, i, newSViv(imp_sth->fbh[i].ColDef));
	 break;
      case 6:			/* SCALE */
	 av = newAV();
	 retsv = newRV(sv_2mortal((SV*)av));
	 while(--i >= 0) 
	    av_store(av, i, newSViv(imp_sth->fbh[i].ColScale));
	 break;
      case 7:			/* CursorName */
	 rc = SQLGetCursorName(imp_sth->hstmt,
			       cursor_name, sizeof(cursor_name), &cursor_name_len);
	 if (!SQL_ok(rc)) {
	    dbd_error(sth, rc, "st_FETCH/SQLGetCursorName");
	    return Nullsv;
	 }
	 retsv = newSVpv(cursor_name, cursor_name_len);
	 break;
      case 8:
      {
	 /* not sure if there's a memory leak here. */
	 HV *paramvalues = newHV();
	 if (imp_sth->all_params_hv) {
	    HV *hv = imp_sth->all_params_hv;
	    SV *sv;
	    char *key;
	    I32 retlen;