diff options
Diffstat (limited to 'src/cgi-bin/dict.scm4')
-rw-r--r-- | src/cgi-bin/dict.scm4 | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4 index c9f895b..4d301fb 100644 --- a/src/cgi-bin/dict.scm4 +++ b/src/cgi-bin/dict.scm4 @@ -1,5 +1,5 @@ ;;;; Greek Dictionary Web Engine -;;;; Copyright (C) 2004, 2005, 2006, 2007 Sergey Poznyakoff +;;;; Copyright (C) 2004, 2005, 2006, 2007, 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 @@ -51,14 +51,13 @@ ifelse(IFACE,[CGI],(cgi:init)) (if (not db-connection) (begin (set! db-connection - (sql-connect - sql-iface sql-host sql-port sql-database - sql-username sql-password)) + (sql-open-connection + ellinika-sql-connection)) (sql-query db-connection "SET NAMES utf8") ))) (else (if db-connection - (sql-connect-close db-connection)) + (sql-close-connection db-connection)) (set! db-connection #f))) db-connection))) |