From 95961a42b89b787f06e2c74db9f028c0f3ec75c0 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sat, 24 Jan 2015 17:23:08 +0100
Subject: [PATCH] Replace dots with underscores in MS SQL fk names.

That should help fixing #158 where MS SQL uses the following name for
one of its fkey: fk_dbo.track_dbo.artist_artistid. PostgreSQL refuses fk
names with dots in it.
---
 src/sources/mssql/mssql-schema.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp
index 57050e6..542754f 100644
--- a/src/sources/mssql/mssql-schema.lisp
+++ b/src/sources/mssql/mssql-schema.lisp
@@ -249,7 +249,7 @@ order by SchemaName,
      :for (name schema table col fschema ftable fcol)
      :in  (mssql-query (format nil "
    SELECT
-           KCU1.CONSTRAINT_NAME AS 'CONSTRAINT_NAME'
+           REPLACE(KCU1.CONSTRAINT_NAME, '.', '_') AS 'CONSTRAINT_NAME'
          , KCU1.TABLE_SCHEMA AS 'TABLE_SCHEMA'
          , KCU1.TABLE_NAME AS 'TABLE_NAME'
          , KCU1.COLUMN_NAME AS 'COLUMN_NAME'