fixed bug with shared albums direct upload

2014-12-07 06:09:19 +01:00 · 2014-12-07 06:09:19 +01:00 · 64cef1f95e
commit 64cef1f95e
parent 6412a87b2b
1 changed files with 3 additions and 1 deletions
--- a/Handler/Upload.hs
+++ b/Handler/Upload.hs
@ -130,7 +130,9 @@ postDirectUploadR albumId = do
                  fil <- return $ tempMediumFile temp
                  case (fileContentType fil) `elem` acceptedTypes of
                    True -> do
-                      path <- writeOnDrive fil userId albumId
+                      albRef <- runDB $ getJust (tempMediumAlbum temp)
+                      ownerId <- return $ albumOwner albRef
+                      path <- writeOnDrive fil ownerId albumId
                      thumbPath <- generateThumb path ownerId albumId
                      medium <- return $ Medium
                        (tempMediumTitle temp)