From 04ee80accfdda18d428dd51b5b8eb79d8fdcccaa Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 31 Jan 2010 11:22:14 +0100
Subject: Fix form button labels

Ignore-this: 1203b4022c32aa90e7b01beddcd51d80

darcs-hash:5a167b1ca8f25a7260a661448ffc90be315a534e
---
 journal.lisp | 24 +++++++++++-------------
 1 file 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 ()
-- 
cgit v1.2.3