aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2007-10-08 21:29:13 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2007-10-08 21:29:13 +0000
commitbf1aae3e3c9637567400e39325a0d036012bd42a (patch)
tree6ba1ef2485d45dab31dd516396bf9682687b6876
parent2b15a905dbb0e7c70b16e05e6247b7cc68fd8772 (diff)
downloadellinika-bf1aae3e3c9637567400e39325a0d036012bd42a.tar.gz
ellinika-bf1aae3e3c9637567400e39325a0d036012bd42a.tar.bz2
XHTML 1.0
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@494 941c8c0f-9102-463b-b60b-cd22ce0e6858
-rw-r--r--ChangeLog5
-rw-r--r--cgi-bin/dict.scm439
-rw-r--r--cgi-bin/nea.scm42
-rw-r--r--disp.html4
-rw-r--r--graphics/valid-xhtml10.pngbin0 -> 2414 bytes
5 files changed, 29 insertions, 21 deletions
diff --git a/ChangeLog b/ChangeLog
index a2c15b9..e8c8042 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-09 Sergey Poznyakoff <gray@gnu.org.ua>
+
+ * graphics/valid-xhtml10.png: New file
+ * disp.html, cgi-bin/dict.scm4, cgi-bin/nea.scm4: XHTML 1.0
+
2007-10-08 Sergey Poznyakoff <gray@gnu.org.ua>
* configure.ac (SCRIPT_DIR): Initialize to relative directory
diff --git a/cgi-bin/dict.scm4 b/cgi-bin/dict.scm4
index 2a1b84f..d65074f 100644
--- a/cgi-bin/dict.scm4
+++ b/cgi-bin/dict.scm4
@@ -142,26 +142,26 @@ ifelse(IFACE,[CGI],(cgi:init))
(string->number s)
#f))
0)))
- (display (string-append "<SELECT NAME=\""
+ (display (string-append "<select name=\""
name
- "\" TABINDEX=\""
+ "\" tabindex=\""
tabindex
"\">"))
- (display "<OPTION VALUE=\"0\"")
+ (display "<option value=\"0\"")
(if (= selected-choice 0)
- (display " selected"))
- (display ">") (display (_"και")) (display "</OPTION>")
- (display "<OPTION VALUE=\"1\"")
+ (display " selected=\"selected\""))
+ (display ">") (display (_"και")) (display "</option>")
+ (display "<option value=\"1\"")
(if (= selected-choice 1)
- (display " selected"))
- (display ">") (display (_"ή")) (display "</OPTION>")
- (display "</SELECT>")))
+ (display " selected=\"selected\""))
+ (display ">") (display (_"ή")) (display "</option>")
+ (display "</select>")))
(define (main-form)
(load-pos)
- (display "<FORM ACTION=\"")
+ (display "<form action=\"")
(display (make-cgi-name cgi-script-name))
- (display "\" METHOD=POST>
+ (display "\" method=\"post\">
<table class=\"noframe\">
<tr>
<td>")
@@ -176,7 +176,7 @@ ifelse(IFACE,[CGI],(cgi:init))
(display "value=\"")
(display (protect value))
(display "\""))))
- (display ">
+ (display " />
</td>
</tr>")
@@ -202,12 +202,14 @@ ifelse(IFACE,[CGI],(cgi:init))
(for-each
(lambda (x)
(let ((name (car x)))
- (display "<option value=")
+ (display "<option value=\"")
(display index)
+ (display "\"")
(if (= index selected-choice)
- (display " selected"))
+ (display " selected=\"selected\""))
(display ">")
(display name)
+ (display "</option>")
(set! index (1+ index))))
part-of-speech)
(display "</select>"))
@@ -235,13 +237,14 @@ ifelse(IFACE,[CGI],(cgi:init))
(number->string tabindex)
"\">"))
(set! tabindex (1+ tabindex))
- (display "<option value=0>---")
+ (display " <option value=\"0\">---</option>")
(for-each
(lambda (x)
(let ((id (car x))
(name (car (cdr x))))
- (display "<option value=")
+ (display "<option value=\"")
(display id)
+ (display "\"")
(if (eq? (string->number id) selected-choice)
(display " selected"))
(display ">")
@@ -262,12 +265,12 @@ ifelse(IFACE,[CGI],(cgi:init))
(display (_"Αναζήτηση"))
(display "\" tabindex=\"")
(display tabindex)
- (display "\">
+ (display "\" />
</td>
</tr>
</table>
</form>
-<p>")))
+")))
;;
(define (replace-tilde word sentence)
diff --git a/cgi-bin/nea.scm4 b/cgi-bin/nea.scm4
index 6798170..2f9dfcd 100644
--- a/cgi-bin/nea.scm4
+++ b/cgi-bin/nea.scm4
@@ -246,7 +246,7 @@ ifelse(IFACE,[CGI],(cgi:init))
result))
(display "</table>")
- (display "<div class=\"menu-bar\" align=\"center\">")
+ (display "<div class=\"menu-bar\">")
(cond
((> begin 0)
(display "<span class=\"menu-cell\"><a href=\"")
diff --git a/disp.html b/disp.html
index dc63583..157358a 100644
--- a/disp.html
+++ b/disp.html
@@ -9,7 +9,7 @@
<meta name="Keywords" lang="pl" content="grecki,gramatyka,słownik" />
<meta name="Keywords" lang="ru" content="греческий,грамматика,словарь" />
<meta name="Keywords" lang="uk" content="грецька,граматика,словник" />
- <meta name="robots" content="noindex,follow">
+ <meta name="robots" content="noindex,follow" />
</head>
<body>
@@ -66,4 +66,4 @@ this notice is preserved.</p>
</div>
</body>
-</html> \ No newline at end of file
+</html>
diff --git a/graphics/valid-xhtml10.png b/graphics/valid-xhtml10.png
new file mode 100644
index 0000000..2275ee6
--- /dev/null
+++ b/graphics/valid-xhtml10.png
Binary files differ

Return to:

Send suggestions and report system problems to the System administrator.