[Fencommits] fenserve: twid appearance
Benja Fallenstein
benja.fallenstein at gmail.com
Wed May 23 15:42:27 EEST 2007
Wed May 23 15:42:20 EEST 2007 Benja Fallenstein <benja.fallenstein at gmail.com>
* twid appearance
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs 2007-05-23 15:42:27.000000000 +0300
+++ new-fenserve/fendata/Main.hs 2007-05-23 15:42:27.000000000 +0300
@@ -392,11 +392,11 @@
concatFor (Map.toList $ stateItems s) $ \(id, Item fields _) ->
(++ "<p><form action='delItem' method=post>\
\<input type=hidden name=item value='"++show id++"'>\
- \<a href='item/"++show id++"'>[Edit item]</a>"++mdot++"\
+ \<a href='item/"++show id++"'>[Edit item]</a> "++mdot++"\
\<button style='cursor: pointer; background: none; border: none; font: inherit; margin: 0; padding: 0'>[Delete item]</button></form><hr>") . ("<p>"++)
. concatFor (Map.toList fields) $ \(f:fs,v) ->
"<b>" ++ (toUpper f : fs) ++ ":</b> " ++ v ++ "<br>",
- s) where new = ("<form action='newItem' method=post>" ++) .
+ s) where new = ("<p><form action='newItem' method=post>" ++) .
(++"<a href='addcat'>[Add category]</a></form>") .
concatFor (Map.keys $ stateSchema s) $ \cat ->
"<button style='cursor: pointer; background: none; border: none; font: inherit; margin: 0; padding: 0' name=cat value='"++cat++"'>[New "++cat++"]</button>"++mdot
More information about the Fencommits
mailing list