[Fencommits] fenserve: make 'body' field a textarea

[Benja Fallenstein]

Thu May 24 16:48:25 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make 'body' field a textarea
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-24 16:49:05.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-24 16:49:05.000000000 +0300
@@ -431,7 +431,9 @@
            ++ "&returnTo=item/"++item++html (escape ("?returnTo="++escape uri))
            ++ "'>[Add a field to the "++capitalize cat++" category]</a><br>"))
         . catFor cfs $ \field ->
-            capitalize field +++ ": " +++ textfield field (fields Map.! field)
+            capitalize field +++ ": " 
+            +++ (if field == "body" then (br +++) . textarea field 5 80
+                 else textfield field) (fields Map.! field)
             +++ br,
     s) where uri = fromMaybe "" (lookM req "returnTo")
              returnTo = flip (maybe $ toHTML "") (lookM req "returnTo") $ \uri -> HTML $