mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 10:56:10 +02:00
Code Issues Projects Releases Wiki Activity

Assorted fixes for MS SQL support.

Browse Source 
When updating the catalog support we forgot to fix the references to the
index and fkey name slots that are now provided centrally for the
catalog of all database source types.

Again, we don't have unit test cases for MS SQL, so that's a blind
fix (but at least that compiles).

See #343.
This commit is contained in:
Dimitri Fontaine 2017-01-10 21:19:29 +01:00
parent dbf7d6e48f
commit 1d35290914
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/sources/mssql/mssql-schema.lisp
View File

@ -34,7 +34,7 @@
(defmethod query ((msconn mssql-connection) sql &key)
"Send SQL query to MSCONN connection."
(log-message :sql "MSSQL: sending query: ~a" query)
(log-message :sql "MSSQL: sending query: ~a" sql)
(mssql:query sql :connection (conn-handle msconn)))
(defun mssql-query (query)
@ -205,8 +205,8 @@ order by SchemaName,
:unique (= unique 1)
:columns nil
:filter filter))
(index (maybe-add-index table index-name pg-index
:key #'pgloader.pgsql::pgsql-index-name)))
(index
(maybe-add-index table index-name pg-index :key #'index-name)))
(push-to-end col (index-columns index)))
:finally (return catalog)))
@ -267,8 +267,8 @@ ORDER BY KCU1.CONSTRAINT_NAME, KCU1.ORDINAL_POSITION"
:columns nil
:foreign-table ftable
:foreign-columns nil))
(fkey (maybe-add-fkey table fkey-name pg-fkey
:key #'pgloader.pgsql::pgsql-fkey-name)))
(fkey
(maybe-add-fkey table fkey-name pg-fkey :key #'fkey-name)))
(push-to-end col (fkey-columns fkey))
(push-to-end fcol (fkey-foreign-columns fkey)))
:finally (return catalog)))