1 files changed, 11 insertions, 11 deletions

diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4
index f64aca2..e366a7c 100644
--- a/src/cgi-bin/nea.scm4
+++ b/src/cgi-bin/nea.scm4
@@ -1,5 +1,5 @@
 ;;;; News page for Ellinika
-;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff
+;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 ifelse(IFACE,[CGI],(cgi:init))
 
 (define tmpl (if (and monima-nea-template-file-name
-                      (cgi:value "timestamp"))
+                      (cgi:value-u8 "timestamp"))
                  monima-nea-template-file-name
                  nea-template-file-name))
 
@@ -177,13 +177,13 @@ ifelse(IFACE,[CGI],(cgi:init))
                          0)))
           (from (catch #t
                        (lambda ()
-                         (let ((x (string->number (cgi:value "from"))))
+                         (let ((x (string->number (cgi:value-u8 "from"))))
                            (if (< x count)
                                x
                                0)))
                        (lambda args
                          0)))
-          (fwd (let ((dir (cgi:value "dir")))
+          (fwd (let ((dir (cgi:value-u8 "dir")))
                  (or (not dir)
                      (string=? dir "1"))))
           (entries (collect-entries from fwd)))
@@ -199,7 +199,7 @@ ifelse(IFACE,[CGI],(cgi:init))
          (let ((num-entries (length result))
                (begin (if fwd from start))
                (end   (if fwd start from))
-               (id (cgi:value "id")))
+               (id (cgi:value-u8 "id")))
 
            (cond
             ((not (and (= from 0) (< num-entries nea-max-rows)))
@@ -273,7 +273,7 @@ ifelse(IFACE,[CGI],(cgi:init))
   (display "<span class=\"itemsubject\">\n")
   (display (list-ref item 2))
   (display "</span>")
-  (if (not (cgi:value "timestamp"))
+  (if (not (cgi:value-u8 "timestamp"))
       (permalink "span" (list-ref item 1)))
   (display "</div><!-- news-header -->"))
 
@@ -337,7 +337,7 @@ ifelse(IFACE,[CGI],(cgi:init))
                                   (cond
                                    ((string=? name "lang"))
                                    (else
-                                    (let ((v (cgi:value name)))
+                                    (let ((v (cgi:value-u8 name)))
                                       (cond ((and v (not (string-null? v)))
                                              (display "&amp;")
                                              (display name)
@@ -435,7 +435,7 @@ ifelse(IFACE,[CGI],(cgi:init))
 ;;; Main
 
 (cond
- ((cgi:value "rss")
+ ((cgi:value-u8 "rss")
   ifelse(IFACE,[CGI],
          (display ["Content-type: text/xml; charset=utf-8\r\n\r\n"]),
          (request-rec:set-content-type! Request ["text/xml; charset=UTF-8"]))
@@ -447,15 +447,15 @@ ifelse(IFACE,[CGI],(cgi:init))
            (display ["Content-type: text/html; charset=utf-8\r\n\r\n"]))
            (ellinika:sql-connect ellinika-sql-connection)
            (cond
-            ((or (cgi:value "timestamp") (cgi:value "id"))
+            ((or (cgi:value-u8 "timestamp") (cgi:value-u8 "id"))
              (let ((tuples
                     (cond
-                     ((cgi:value "timestamp") =>
+                     ((cgi:value-u8 "timestamp") =>
                       (lambda (ts)
                         (ellinika:sql-query
                          "SELECT date,unix_timestamp(date),ident\
  FROM news WHERE unix_timestamp(date)=~Q" ts)))
-                     ((cgi:value "id") =>
+                     ((cgi:value-u8 "id") =>
                       (lambda (id)
                         (ellinika:sql-query
                          "SELECT date,unix_timestamp(date),ident\