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

using now media thumbnails as thumbnails

Browse source
This commit is contained in:
nek0 2014-12-03 22:01:23 +01:00
parent fdf7ab553d
commit 90182768f1
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/AlbumSettings.hs
View file

@ -80,7 +80,7 @@ albumSettingsForm album albumId = renderDivs $ Album
where where
media = do media = do
entities <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTitle] entities <- runDB $ selectList [MediumAlbum ==. albumId] [Desc MediumTitle]
optionsPairs $ map (\med -> (mediumTitle $ entityVal med, mediumPath (entityVal med))) entities optionsPairs $ map (\med -> (mediumTitle $ entityVal med, mediumThumb (entityVal med))) entities
getAlbumDeleteR :: AlbumId -> Handler Html getAlbumDeleteR :: AlbumId -> Handler Html
getAlbumDeleteR albumId = do getAlbumDeleteR albumId = do

2
templates/tagMedia.hamlet
View file

@ -10,5 +10,5 @@ $else
<li> <li>
<a href=@{MediumR mId}> <a href=@{MediumR mId}>
<figure class="thumbnail"> <figure class="thumbnail">
<img src=#{mediumPath m}> <img src=#{mediumThumb m}>
<figcapion>#{mediumTitle m} <figcapion>#{mediumTitle m}