diff options
| -rw-r--r-- | cgi-bin/dict.cgi.in | 2 | ||||
| -rw-r--r-- | cgi-bin/nea.cgi.in | 4 | ||||
| -rw-r--r-- | data/db.struct | 7 |
3 files changed, 7 insertions, 6 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in index 202c379..d087bf3 100644 --- a/cgi-bin/dict.cgi.in +++ b/cgi-bin/dict.cgi.in @@ -579,7 +579,7 @@ (else (let ((v (cgi:value name))) (cond ((and v (not (string-null? v))) - (display "&") + (display "&") (display name) (display "=") (display v))))))) diff --git a/cgi-bin/nea.cgi.in b/cgi-bin/nea.cgi.in index 8c625e5..22a7428 100644 --- a/cgi-bin/nea.cgi.in +++ b/cgi-bin/nea.cgi.in @@ -47,7 +47,7 @@ (car l))) (else s))) - (string-split (getenv "HTTP_ACCEPT_LANGUAGE") #\,))) + (string-split (or (getenv "HTTP_ACCEPT_LANGUAGE") "") #\,))) (define nea-max-rows 20) ;; FIXME: Move to the config @@ -348,7 +348,7 @@ (else (let ((v (cgi:value name))) (cond ((and v (not (string-null? v))) - (display "&") + (display "&") (display name) (display "=") (display v))))))) diff --git a/data/db.struct b/data/db.struct index 9adb900..218abc2 100644 --- a/data/db.struct +++ b/data/db.struct @@ -18,7 +18,8 @@ set names utf8; CREATE DATABASE ellinika CHARACTER SET utf8 COLLATE utf8_bin; -use ellinika + +use ellinika; CREATE TABLE pos( id bigint not null, # REL 0 @@ -132,8 +133,8 @@ CREATE TABLE links( CREATE TABLE stat( lang varchar(8) not null, updated datetime not null, - count int(32) not null - KEY lang + count int(32) not null, + UNIQUE(lang) ); CREATE TABLE pending_links( |