summaryrefslogtreecommitdiffabout
path: root/src/cgi-bin/nea.scm4
Side-by-side diff
Diffstat (limited to 'src/cgi-bin/nea.scm4') (more/less context) (show whitespace changes)
-rw-r--r--src/cgi-bin/nea.scm422
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)

Return to:

Send suggestions and report system problems to the System administrator.