aboutsummaryrefslogtreecommitdiff
path: root/cgi-bin
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-03-09 20:07:19 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-03-09 20:07:19 +0000
commit57578ae7836fac185e02d6e7e94277e7f9968dd0 (patch)
tree0197fe8f2aded3be239460f6a457354106b4a2df /cgi-bin
parentf047c8249ec124958e967998c57b78a22470b31b (diff)
downloadellinika-57578ae7836fac185e02d6e7e94277e7f9968dd0.tar.gz
ellinika-57578ae7836fac185e02d6e7e94277e7f9968dd0.tar.bz2
(make-cgi-name): Minor fix. Do not print a lone ? mark
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@38 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin')
-rw-r--r--cgi-bin/dict.cgi.in29
1 files changed, 16 insertions, 13 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in
index a484a10..510ceba 100644
--- a/cgi-bin/dict.cgi.in
+++ b/cgi-bin/dict.cgi.in
@@ -85,20 +85,23 @@
string-append
(cons
dict-cgi-path
- (cons "?"
- (let ((lang (cgi:value "LANG")))
- (do ((ilist (if lang
- (cons "LANG" (cons lang rest))
- rest) (cdr ilist))
- (i 1 (1+ i))
- (olist '()))
- ((null? ilist) (if (null? olist) olist (reverse (cdr olist))))
- (set! olist (cons (car ilist) olist))
- (set! olist (cons
- (if (odd? i) "=" "&")
- olist))))))))
+ (let ((arglist (let ((lang (cgi:value "LANG")))
+ (do ((ilist (if lang
+ (cons "LANG" (cons lang rest))
+ rest) (cdr ilist))
+ (i 1 (1+ i))
+ (olist '()))
+ ((null? ilist) (if (null? olist)
+ olist
+ (reverse (cdr olist))))
+ (set! olist (cons (car ilist) olist))
+ (set! olist (cons
+ (if (odd? i) "=" "&")
+ olist))))))
+ (if (null? arglist)
+ arglist
+ (cons "?" arglist))))))
-
;; Τα μέρη του λογου
(define part-of-speech
(list (cons "κανένα μέρος του λογου" #f)

Return to:

Send suggestions and report system problems to the System administrator.