nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fixed upload issue with shared albums

Browse source
This commit is contained in:
nek0 2014-12-07 03:55:25 +01:00
parent 71dc85f94b
commit 1726643f25
3 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Handler/MediumSettings.hs
View file

@ -16,8 +16,10 @@ getMediumSettingsR mediumId = do
case msu of
Just tempUserId -> do
userId <- return $ getUserIdFromText tempUserId
album <- runDB $ getJust $ mediumAlbum medium
presence <- return (userId == ownerId)
case presence of
albumOwnerPresence <- return (userId == (albumOwner album))
case presence || albumOwnerPresence of
True -> do
(mediumSettingsWidget, enctype) <- generateFormPost $ mediumSettingsForm medium
defaultLayout $ do
@ -44,8 +46,10 @@ postMediumSettingsR mediumId = do
case msu of
Just tempUserId -> do
userId <- return $ getUserIdFromText tempUserId
album <- runDB $ getJust $ mediumAlbum medium
presence <- return (userId == ownerId)
case presence of
albumOwnerPresence <- return (userId == (albumOwner album))
case presence || albumOwnerPresence of
True -> do
((result, mediumSettingsWidget), enctype) <- runFormPost $ mediumSettingsForm medium
case result of

8
Handler/Upload.hs
View file

@ -29,7 +29,7 @@ getUploadR = do
msu <- lookupSession "userId"
case msu of
Just tempUserId -> do
userId <- lift $ pure $ getUserIdFromText tempUserId
userId <- return $ getUserIdFromText tempUserId
(uploadWidget, enctype) <- generateFormPost (uploadForm userId)
defaultLayout $ do
setTitle "Eidolon :: Upload Medium"
@ -50,8 +50,10 @@ postUploadR = do
fil <- return $ tempMediumFile temp
case (fileContentType fil) `elem` acceptedTypes of
True -> do
path <- writeOnDrive fil userId (tempMediumAlbum temp)
thumbPath <- generateThumb path userId (tempMediumAlbum temp)
albRef <- runDB $ getJust (tempMediumAlbum temp)
ownerId <- return $ albumOwner albRef
path <- writeOnDrive fil ownerId (tempMediumAlbum temp)
thumbPath <- generateThumb path ownerId (tempMediumAlbum temp)
inAlbumId <- return $ tempMediumAlbum temp
medium <- return $ Medium
(tempMediumTitle temp)

1
templates/mediumSettings.hamlet
View file

@ -6,4 +6,5 @@ $newline always
<div>
<input type=submit value="Change settings">
$if presence == True
<a href=@{MediumDeleteR mediumId}>Delete this image