diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-25 14:01:16 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-25 14:01:16 +0000 |
| commit | ea261956d71216d488b104ba4d27ed58e2830ca3 (patch) | |
| tree | 1eb286fcd5fd5d55518665a53d48afa7f7d3cabf /cgi-bin/nea.cgi.in | |
| parent | 56de05dd47291e55ae4acd866f8aafd3815427cb (diff) | |
| download | ellinika-ea261956d71216d488b104ba4d27ed58e2830ca3.tar.gz ellinika-ea261956d71216d488b104ba4d27ed58e2830ca3.tar.bz2 | |
Bugfix
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@428 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin/nea.cgi.in')
| -rw-r--r-- | cgi-bin/nea.cgi.in | 4 |
1 files changed, 2 insertions, 2 deletions
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))))))) |