diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:48:17 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 13:48:17 +0000 |
| commit | fcf560f10c3e597fd74fabbddd2abcb7856dd7c1 (patch) | |
| tree | 517829397ad6900f5ca07caf0846b73412ee047f | |
| parent | d31ef40180393b0cd5eeee80164b958132f35423 (diff) | |
| download | ellinika-fcf560f10c3e597fd74fabbddd2abcb7856dd7c1.tar.gz ellinika-fcf560f10c3e597fd74fabbddd2abcb7856dd7c1.tar.bz2 | |
Improve compatibility with dict.cgi
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@226 941c8c0f-9102-463b-b60b-cd22ce0e6858
| -rw-r--r-- | scm/dictrans.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index ec87ad8..5d7f38e 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -102,3 +102,3 @@ (define sql-password #f) -(define sql-user #f) +(define sql-username #f) (define verbose-option #f) @@ -110,2 +110,4 @@ +(define dict-cgi-path #f) + ;;; Load the site defaults @@ -769,3 +771,3 @@ ((user) - (set! sql-user (cdr x))) + (set! sql-username (cdr x))) ((interface) @@ -800,3 +802,3 @@ (let ((conn (sql-connect sql-iface sql-host sql-port sql-database - sql-user sql-password))) + sql-username sql-password))) (if (not conn) |