diff options
Diffstat (limited to 'src/ellinika/dico.scm')
-rw-r--r-- | src/ellinika/dico.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm index de564c2..7c04db2 100644 --- a/src/ellinika/dico.scm +++ b/src/ellinika/dico.scm @@ -1,5 +1,5 @@ ;;;; A Dico module for Greek Dictionary Web Engine -*- scheme -*- -;;;; Copyright (C) 2008 Sergey Poznyakoff +;;;; Copyright (C) 2008, 2010 Sergey Poznyakoff ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -75,9 +75,8 @@ (else (dico-error "Unknown option " (car av)))))) rest) - (let ((db-connection (sql-connect - sql-iface sql-host sql-port sql-database - sql-username sql-password))) + (let ((db-connection (sql-open-connection + ellinika-sql-connection))) (sql-query db-connection "SET NAMES utf8") (list db-connection target-language type)))) @@ -86,7 +85,7 @@ (defmacro dbh:type (dbh) `(list-ref ,dbh 2)) (define (close-module dbh) - (sql-connect-close (dbh:conn dbh))) + (sql-close-connection (dbh:conn dbh))) (define descr-list '(("pl" . "Słownik grecko-polski") |