summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2010-01-31 11:22:14 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2010-01-31 11:22:14 +0100
commit04ee80accfdda18d428dd51b5b8eb79d8fdcccaa (patch)
tree62c1ef80a43167e2e9978e53130b41a9bcb4d316
parentee0d3e7edb113a5ef5ec62c53deac1ffc6827bb0 (diff)
Fix form button labels
Ignore-this: 1203b4022c32aa90e7b01beddcd51d80 darcs-hash:5a167b1ca8f25a7260a661448ffc90be315a534e
-rwxr-xr-xjournal.lisp24
1 files changed, 11 insertions, 13 deletions
diff --git a/journal.lisp b/journal.lisp
index 32bf661..e685dde 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -336,7 +336,7 @@
:name "id"
:value (prin1-to-string id))
(<:input :type "submit"
- (<:as-is "L&#246;schen"))))
+ :value "L&#246;schen")))
" | "
(<:form :class :journal-entry-edit-button-form
:style "display: inline;"
@@ -347,7 +347,7 @@
:name "id"
:value (prin1-to-string id))
(<:input :type "submit"
- (<:as-is "Bearbeiten"))))
+ :value "Bearbeiten")))
" | "
(<:a :href (link-to :view-comment-feed :post-id id :absolute t)
(<:as-is
@@ -432,7 +432,7 @@
:cols 40))))
(<:div
(<:input :type "submit"
- (<:as-is "Ver&#246;ffentlichen"))))))))
+ :value "Ver&#246;ffentlichen")))))))
(defun call-with-web-journal (page-title thunk &key canonical-uri)
@@ -654,7 +654,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of trackback)))
(<:input :type "hidden" :name "type" :value "trackback")
(<:input :type "hidden" :name "acceptp" :value "f")
- (<:input :type "submit" (<:as-is "Verwerfen")))
+ (<:input :type "submit" :value "Verwerfen"))
(<:form :action (link-to :moderation-page)
:method "post"
:accept-charset "UTF-8"
@@ -663,7 +663,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of trackback)))
(<:input :type "hidden" :name "type" :value "trackback")
(<:input :type "hidden" :name "acceptp" :value "t")
- (<:input :type "submit" (<:as-is "Annehmen")))
+ (<:input :type "submit" :value "Annehmen"))
(<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of trackback)) :absolute t) (<:as-html (title-of (entry-of trackback)))))
(show-trackback trackback))
(<:h2 (<:as-html "Pingbacks"))
@@ -677,7 +677,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of pingback)))
(<:input :type "hidden" :name "type" :value "pingback")
(<:input :type "hidden" :name "acceptp" :value "f")
- (<:input :type "submit" (<:as-is "Verwerfen")))
+ (<:input :type "submit" :value "Verwerfen"))
(<:form :action (link-to :moderation-page)
:method "post"
:accept-charset "UTF-8"
@@ -686,7 +686,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of pingback)))
(<:input :type "hidden" :name "type" :value "pingback")
(<:input :type "hidden" :name "acceptp" :value "t")
- (<:input :type "submit" (<:as-is "Annehmen")))
+ (<:input :type "submit" :value "Annehmen"))
(<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of pingback)) :absolute t) (<:as-html (title-of (entry-of pingback)))))
(show-pingback pingback))
(<:h2 (<:as-html "Kommentare"))
@@ -700,7 +700,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of comment)))
(<:input :type "hidden" :name "type" :value "comment")
(<:input :type "hidden" :name "acceptp" :value "f")
- (<:input :type "submit" (<:as-is "Verwerfen")))
+ (<:input :type "submit" :value "Verwerfen"))
(<:form :action (link-to :moderation-page)
:method "post"
:accept-charset "UTF-8"
@@ -709,7 +709,7 @@
(<:input :type "hidden" :name "id" :value (prin1-to-string (id-of comment)))
(<:input :type "hidden" :name "type" :value "comment")
(<:input :type "hidden" :name "acceptp" :value "t")
- (<:input :type "submit" (<:as-is "Annehmen")))
+ (<:input :type "submit" :value "Annehmen"))
(<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of comment)) :absolute t) (<:as-html (title-of (entry-of comment)))))
(show-comment comment)))
#.(restore-sql-reader-syntax-state))
@@ -731,8 +731,7 @@
:name "body"
:value body)
(<:div
- (<:input :type "submit"
- (<:as-is "Ver&#246;ffentlichen"))))
+ (<:input :type "submit" :value "Ver&#246;ffentlichen")))
(show-journal-entry-with-components (or id -1)
title
body
@@ -775,8 +774,7 @@
:cols 65
(<:as-html body)))))
(<:div
- (<:input :type "submit"
- (<:as-is "Vorschau"))))))
+ (<:input :type "submit" :value "Vorschau")))))
(defun show-debugging-page ()