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,3 +1,3 @@
 ;;;; 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
 ;;;; 
@@ -32,3 +32,3 @@ 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
@@ -179,3 +179,3 @@ ifelse(IFACE,[CGI],(cgi:init))
                        (lambda ()
-                         (let ((x (string->number (cgi:value "from"))))
+                         (let ((x (string->number (cgi:value-u8 "from"))))
                            (if (< x count)
@@ -185,3 +185,3 @@ ifelse(IFACE,[CGI],(cgi:init))
                          0)))
-          (fwd (let ((dir (cgi:value "dir")))
+          (fwd (let ((dir (cgi:value-u8 "dir")))
                  (or (not dir)
@@ -201,3 +201,3 @@ ifelse(IFACE,[CGI],(cgi:init))
                (end   (if fwd start from))
-               (id (cgi:value "id")))
+               (id (cgi:value-u8 "id")))
 
@@ -275,3 +275,3 @@ ifelse(IFACE,[CGI],(cgi:init))
   (display "</span>")
-  (if (not (cgi:value "timestamp"))
+  (if (not (cgi:value-u8 "timestamp"))
       (permalink "span" (list-ref item 1)))
@@ -339,3 +339,3 @@ ifelse(IFACE,[CGI],(cgi:init))
                                    (else
-                                    (let ((v (cgi:value name)))
+                                    (let ((v (cgi:value-u8 name)))
                                       (cond ((and v (not (string-null? v)))
@@ -437,3 +437,3 @@ ifelse(IFACE,[CGI],(cgi:init))
 (cond
- ((cgi:value "rss")
+ ((cgi:value-u8 "rss")
   ifelse(IFACE,[CGI],
@@ -449,6 +449,6 @@ ifelse(IFACE,[CGI],(cgi:init))
            (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)
@@ -457,3 +457,3 @@ ifelse(IFACE,[CGI],(cgi:init))
  FROM news WHERE unix_timestamp(date)=~Q" ts)))
-                     ((cgi:value "id") =>
+                     ((cgi:value-u8 "id") =>
                       (lambda (id)