aboutsummaryrefslogtreecommitdiffstats
path: root/Plugins/ScriptingTcl
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/ScriptingTcl')
-rw-r--r--Plugins/ScriptingTcl/package.xml10
-rw-r--r--Plugins/ScriptingTcl/scriptingtcl.cpp3
2 files changed, 2 insertions, 11 deletions
diff --git a/Plugins/ScriptingTcl/package.xml b/Plugins/ScriptingTcl/package.xml
deleted file mode 100644
index 04b2bcf..0000000
--- a/Plugins/ScriptingTcl/package.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<?xml version="1.0"?>
-<Package>
- <DisplayName>Tcl plugin</DisplayName>
- <Description>Plugin for implementing functions in SQLiteStudio with Tcl scripts.</Description>
- <Version>%VERSION%</Version>
- <ReleaseDate>%DATE%</ReleaseDate>
- <Name>pl.com.salsoft.sqlitestudio.plugins.scriptingtcl</Name>
- <Dependencies>pl.com.salsoft.sqlitestudio.plugins</Dependencies>
- <Default>true</Default>
-</Package> \ No newline at end of file
diff --git a/Plugins/ScriptingTcl/scriptingtcl.cpp b/Plugins/ScriptingTcl/scriptingtcl.cpp
index 962c073..cc48aa0 100644
--- a/Plugins/ScriptingTcl/scriptingtcl.cpp
+++ b/Plugins/ScriptingTcl/scriptingtcl.cpp
@@ -290,6 +290,7 @@ QVariant ScriptingTcl::tclObjToVariant(Tcl_Obj* obj)
Tcl_DictObjDone(&search);
}
result = hash;
+ break;
}
case TclDataType::Bignum:
case TclDataType::String:
@@ -558,7 +559,7 @@ SqlQueryPtr ScriptingTcl::dbCommonEval(ContextTcl* ctx, Tcl_Interp* interp, Tcl_
Tcl_Obj* result = nullptr;
QString sql = QString::fromUtf8(Tcl_GetStringFromObj(objv[2], nullptr));
- TokenList bindTokens = Lexer::tokenize(sql, ctx->db->getDialect()).filter(Token::BIND_PARAM);
+ TokenList bindTokens = Lexer::tokenize(sql).filter(Token::BIND_PARAM);
QString bindVarName;
QHash<QString, QVariant> queryArgs;
for (const TokenPtr& token : bindTokens)