aboutsummaryrefslogtreecommitdiff
path: root/src/cgi-bin/dict.scm4
diff options
context:
space:
mode:
Diffstat (limited to 'src/cgi-bin/dict.scm4')
-rw-r--r--src/cgi-bin/dict.scm49
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)))

Return to:

Send suggestions and report system problems to the System administrator.