X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FPageEntity.hs;h=8f63bbaad3b9c6f68748530ccc261cd68c0bb5d2;hp=1ad3ffaf5c782b6b543497ec3b682ba600c0a93f;hb=443af4d3304139bb2187a0c726327b9c05829810;hpb=89c3c6ff37517012b5a799014c5a6d05d3e2e902

diff --git a/Rakka/Resource/PageEntity.hs b/Rakka/Resource/PageEntity.hs
index 1ad3ffa..8f63bba 100644
--- a/Rakka/Resource/PageEntity.hs
+++ b/Rakka/Resource/PageEntity.hs
@@ -306,13 +306,15 @@ notFoundToXHTML env
 
 handlePut :: Environment -> PageName -> Resource ()
 handlePut env name
-    = runXmlA env "rakka-page-1.0.rng" $ proc tree
-    -> do page   <- parseXmlizedPage -< (name, tree)
-          status <- putPageA (envStorage env) -< page
-          returnA  -< setStatus status
+    = do userID <- getUserID env
+         runXmlA env "rakka-page-1.0.rng" $ proc tree
+             -> do page   <- parseXmlizedPage -< (name, tree)
+                   status <- putPageA (envStorage env) -< (userID, page)
+                   returnA  -< setStatus status
 
 
 handleDelete :: Environment -> PageName -> Resource ()
 handleDelete env name
-    = do status <- deletePage (envStorage env) name
+    = do userID <- getUserID env
+         status <- deletePage (envStorage env) userID name
          setStatus status