diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-09 22:31:34 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-09 22:31:34 +0000 |
commit | 150f2f64e4e580c0d6ab75d4bee150a4369cc4f1 (patch) | |
tree | 8fdccbaafe764302ff42d9657dd0170d4d2c7e3f /src/cgi-bin/nea.scm4 | |
parent | 7968cb70a5dcbf57af5884f28dafe188fc6415c5 (diff) | |
download | ellinika-150f2f64e4e580c0d6ab75d4bee150a4369cc4f1.tar.gz ellinika-150f2f64e4e580c0d6ab75d4bee150a4369cc4f1.tar.bz2 |
Update for newer Gamma.
* scm/dictrans.scm: Use Gamma 1.99 syntax.
* scm/neatrans.scm: Likewise.
* src/ellinika/dico.scm: Likewise.
* src/cgi-bin/dict.scm4: Likewise.
* src/cgi-bin/nea.scm4: Likewise.
* src/ellinika/cgi.scm4 (sql-iface)
(sql-host,sql-port,sql-database)
(sql-username,sql-password): Remove reexports.
(ellinika-sql-connection): New reexport.
* src/ellinika/config.scm4 (sql-iface)
(sql-host,sql-port,sql-database)
(sql-username,sql-password): Remove variables.
(ellinika-sql-connection): New variable.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@541 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'src/cgi-bin/nea.scm4')
-rw-r--r-- | src/cgi-bin/nea.scm4 | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4 index e490a59..b5a9af0 100644 --- a/src/cgi-bin/nea.scm4 +++ b/src/cgi-bin/nea.scm4 @@ -1,5 +1,5 @@ ;;;; News page for Ellinika -;;;; 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 @@ -380,9 +380,7 @@ ifelse(IFACE,[CGI],(cgi:init)) </rss>")) (define (nea-sql-connect) - (let ((conn (sql-connect - sql-iface sql-host sql-port sql-database - sql-username sql-password))) + (let ((conn (sql-open-connection ellinika-sql-connection))) (sql-query conn "SET NAMES utf8") conn)) @@ -507,7 +505,7 @@ ifelse(IFACE,[CGI],(cgi:init)) (template-file target-language tmpl) nea-html) - (sql-connect-close conn)) + (sql-close-connection conn)) (lambda (key err descr) (with-input-from-file |