diff options
Diffstat (limited to 'src/cgi-bin/conj.scm4')
-rw-r--r-- | src/cgi-bin/conj.scm4 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4 index 83fb846..6a49c62 100644 --- a/src/cgi-bin/conj.scm4 +++ b/src/cgi-bin/conj.scm4 | |||
@@ -1,5 +1,5 @@ | |||
1 | ;;;; Greek Dictionary Web Engine | 1 | ;;;; Greek Dictionary Web Engine |
2 | ;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff | 2 | ;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff |
3 | ;;;; | 3 | ;;;; |
4 | ;;;; This program is free software; you can redistribute it and/or modify | 4 | ;;;; This program is free software; you can redistribute it and/or modify |
5 | ;;;; it under the terms of the GNU General Public License as published by | 5 | ;;;; it under the terms of the GNU General Public License as published by |
@@ -18,6 +18,7 @@ | |||
18 | ;;; Tailor this statement to your needs if necessary. | 18 | ;;; Tailor this statement to your needs if necessary. |
19 | (set! %load-path (cons "GUILE_SITE" %load-path)) | 19 | (set! %load-path (cons "GUILE_SITE" %load-path)) |
20 | 20 | ||
21 | (setlocale LC_ALL "") | ||
21 | (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user)) | 22 | (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user)) |
22 | (srfi srfi-1) | 23 | (srfi srfi-1) |
23 | (ice-9 rdelim) | 24 | (ice-9 rdelim) |
@@ -61,7 +62,7 @@ ifelse(IFACE,[CGI],(cgi:init)) | |||
61 | </td> | 62 | </td> |
62 | <td> | 63 | <td> |
63 | <input size=\"36\" name=\"key\" tabindex=\"1\"") | 64 | <input size=\"36\" name=\"key\" tabindex=\"1\"") |
64 | (let ((value (cgi:value "key"))) | 65 | (let ((value (cgi:value-u8 "key"))) |
65 | (if value | 66 | (if value |
66 | (begin | 67 | (begin |
67 | (display " value=\"") | 68 | (display " value=\"") |
@@ -350,7 +351,7 @@ ifelse(IFACE,[CGI],(cgi:init)) | |||
350 | 351 | ||
351 | 352 | ||
352 | (define (do-conj) | 353 | (define (do-conj) |
353 | (let ((keyval (cgi:value "key"))) | 354 | (let ((keyval (cgi:value-u8 "key"))) |
354 | (if (and keyval (not (string-null? keyval))) | 355 | (if (and keyval (not (string-null? keyval))) |
355 | (let ((input (ellinika:translate-input | 356 | (let ((input (ellinika:translate-input |
356 | (let ((keyval keyval)) | 357 | (let ((keyval keyval)) |
@@ -400,7 +401,7 @@ ifelse(IFACE,[CGI],(cgi:init)) | |||
400 | (cond | 401 | (cond |
401 | ((string=? name "lang")) | 402 | ((string=? name "lang")) |
402 | (else | 403 | (else |
403 | (let ((v (cgi:value name))) | 404 | (let ((v (cgi:value-u8 name))) |
404 | (cond ((and v (not (string-null? v))) | 405 | (cond ((and v (not (string-null? v))) |
405 | (display "&") | 406 | (display "&") |
406 | (display name) | 407 | (display name) |