fix my-sql-connect

* bba.org: create additional connection with prefix

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index e1eb80837bc90c3b0b54e63c577151c55dbf998c..b1b3073caa2a12c38613c60c53c801b8fba5ddf1 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -1293,7 +1293,7 @@ starting sql-connect.
                        )))
       (message connection)
       (if current-prefix-arg
-          (sql-connect connection connection)
+          (progn (let ((conname (sql-generate-unique-sqli-buffer-name (cdr (car (alist-get 'sql-product (assoc 'smaatotst sql-connection-alist)))) connection )))(sql-connect connection conname)))
         (sql-connect connection))))
   (global-set-key (kbd "s-s") 'my-sql-connect)))
 #+END_SRC