summaryrefslogtreecommitdiffabout
path: root/src/cgi-bin/conj.scm4
Unidiff
Diffstat (limited to 'src/cgi-bin/conj.scm4') (more/less context) (ignore whitespace changes)
-rw-r--r--src/cgi-bin/conj.scm43
1 files changed, 3 insertions, 0 deletions
diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index fec7eca..8c5e317 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -328,6 +328,8 @@ ifelse(IFACE,[CGI],(cgi:init))
328 (cond 328 (cond
329 ((null? result) 329 ((null? result)
330 (search-failure key)) 330 (search-failure key))
331 ((= (length result) 1)
332 (show-conjugation (caar result)))
331 (else 333 (else
332 (format #t 334 (format #t
333 "<div class=\"error\"><p>~A</p></div>" 335 "<div class=\"error\"><p>~A</p></div>"
@@ -407,6 +409,7 @@ ifelse(IFACE,[CGI],(cgi:init))
407 (cgi:names)))) 409 (cgi:names))))
408 (cons "@@conj@@" 410 (cons "@@conj@@"
409 (lambda () 411 (lambda ()
412 (format #t "<!-- ~A -->" (environ))
410 (dict-connect) 413 (dict-connect)
411 (main-form) 414 (main-form)
412 (do-conj) 415 (do-conj)

Return to:

Send suggestions and report system problems to the System administrator.