[Fencommits] fenserve: fix

[Benja Fallenstein]

Wed May 23 15:19:53 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * fix
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-23 15:19:59.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-23 15:19:59.000000000 +0300
@@ -399,6 +399,7 @@
             "<b>" ++ (toUpper f : fs) ++ ":</b> " ++ v ++ "<br>",
     s) where new = concatFor (Map.keys $ stateSchema s) $ \cat ->
                  "<form action='newItem' method=post>\
+                 \<input type=hidden name=cat value='"++cat++"'>\
                  \<button type=submit>New "++cat++"</button></form>"
     
 showItem :: String -> () -> MyState -> (String, MyState)
@@ -422,7 +423,7 @@
     s' = s { stateItems = Map.insert id item $ stateItems s }
     item = Item (Map.fromList $ [(f,"") | f <- catFs]) (Set.fromList [cat])
     catFs = stateSchema s Map.! cat
-    Just cat = fmap (drop 4) $ lookM msg "action"
+    Just cat = lookM msg "cat"
 
 delItem msg s = ("table", s') where
     s' = s { stateItems = Map.delete id $ stateItems s }