Improve compatibility with dict.cgi

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@226 941c8c0f-9102-463b-b60b-cd22ce0e6858

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)