diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-10-08 21:29:13 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-10-08 21:29:13 +0000 |
commit | bf1aae3e3c9637567400e39325a0d036012bd42a (patch) | |
tree | 6ba1ef2485d45dab31dd516396bf9682687b6876 | |
parent | 2b15a905dbb0e7c70b16e05e6247b7cc68fd8772 (diff) | |
download | ellinika-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-- | ChangeLog | 5 | ||||
-rw-r--r-- | cgi-bin/dict.scm4 | 39 | ||||
-rw-r--r-- | cgi-bin/nea.scm4 | 2 | ||||
-rw-r--r-- | disp.html | 4 | ||||
-rw-r--r-- | graphics/valid-xhtml10.png | bin | 0 -> 2414 bytes |
5 files changed, 29 insertions, 21 deletions
@@ -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=\"") @@ -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 Binary files differnew file mode 100644 index 0000000..2275ee6 --- /dev/null +++ b/graphics/valid-xhtml10.png |