diff options
| author | drh <drh@noemail.net> | 2005-08-02 17:15:14 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2005-08-02 17:15:14 +0000 |
| commit | b5555e7e34e10c701962c4f318f3791a385fabe1 (patch) | |
| tree | c06c5fcfba840d8b9f869598577d5654cdf80c3a /src/tclsqlite.c | |
| parent | 09d0debf3bfb872de4bb85a92be1bd29b0bb0730 (diff) | |
| download | sqlite-b5555e7e34e10c701962c4f318f3791a385fabe1.tar.gz sqlite-b5555e7e34e10c701962c4f318f3791a385fabe1.zip | |
Tests and bug fixes on the new transaction method in the TCL interface. (CVS 2574)
FossilOrigin-Name: 68dd0ed5e312ecd5e98ee0fa1c21b70ff330f711
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index f07d56009..91398181a 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.129 2005/08/02 12:21:09 drh Exp $ +** $Id: tclsqlite.c,v 1.130 2005/08/02 17:15:15 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1518,7 +1518,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ TTYPE_DEFERRED, TTYPE_EXCLUSIVE, TTYPE_IMMEDIATE }; int ttype; - if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction_type", + if( Tcl_GetIndexFromObj(interp, objv[2], TTYPE_strs, "transaction type", 0, &ttype) ){ return TCL_ERROR; } |