mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-09 07:47:00 +02:00
Code Issues Projects Releases Wiki Activity

Improve MS SQL usage of the schema structs.

Browse Source 
The function qualify-name is not in use anymore, but the MSSQL parts
didn't get the memo... fix #343.
This commit is contained in:
Dimitri Fontaine 2016-02-19 17:55:54 +01:00
parent 765bbb70aa
commit 197258951c
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -197,7 +197,7 @@ order by SchemaName,
(table (find-table schema table-name))
(index (make-pgsql-index :name index-name
:primary (= pkey 1)
:table-name (qualify-name schema table)
:table-name (format-table-name table)
:unique (= unique 1)
:columns (list col))))
(add-index table index))
@ -254,9 +254,15 @@ ORDER BY KCU1.CONSTRAINT_NAME, KCU1.ORDINAL_POSITION"
(table (find-table schema table-name))
(pg-fkey
(make-pgsql-fkey :name fkey-name
:table-name (qualify-name schema table)
:table-name (format-table-name table)
:columns (list col)
:foreign-table (qualify-name fschema ftable)
:foreign-table
(format-table-name
;; for code re-use, create a table instance here.
(make-table
:source-name (cons "~" fschema ftable)
:name (apply-identifier-case ftable)
:schema fshema))
:foreign-columns (list fcol)))
(fkey (maybe-add-fkey table fkey-name pg-fkey
:key #'pgloader.pgsql::pgsql-fkey-name)))