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

fixed medium settings

Browse source
This commit is contained in:
nek0 2015-01-16 22:41:12 +01:00
parent 5e7d045e71
commit 1147617739
3 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/MediumSettings.hs
View file

@ -12,7 +12,7 @@ getMediumSettingsR mediumId = do
case checkRes of case checkRes of
Right medium -> do Right medium -> do
(mediumSettingsWidget, enctype) <- generateFormPost $ mediumSettingsForm medium (mediumSettingsWidget, enctype) <- generateFormPost $ mediumSettingsForm medium
defaultLayout $ do formLayout $ do
setTitle "Eidolon :: Medium Settings" setTitle "Eidolon :: Medium Settings"
$(widgetFile "mediumSettings") $(widgetFile "mediumSettings")
Left (errorMsg, route) -> do Left (errorMsg, route) -> do
@ -60,7 +60,7 @@ getMediumDeleteR mediumId = do
checkRes <- mediumCheck mediumId checkRes <- mediumCheck mediumId
case checkRes of case checkRes of
Right medium -> do Right medium -> do
defaultLayout $ do formLayout $ do
setTitle "Eidolon :: Delete Medium" setTitle "Eidolon :: Delete Medium"
$(widgetFile "mediumDelete") $(widgetFile "mediumDelete")
Left (errorMsg, route) -> do Left (errorMsg, route) -> do

16
templates/mediumDelete.hamlet
View file

@ -1,10 +1,12 @@
$newline always $newline always
<h3>Delete Medium #{mediumTitle medium} <div id="header" class="item" data-width="300">
<div class="inner">
<h3>Delete Medium #{mediumTitle medium}
<p> <p>
Do you wish to delete this image? Do you wish to delete this image?
<form method="POST" action=@{MediumDeleteR mediumId}> <form method="POST" action=@{MediumDeleteR mediumId}>
<label for="confirm">Really delete this medium <label for="confirm">Really delete this medium
<input type="checkbox" id="confirm" name="confirm" value="confirm" required> <input type="checkbox" id="confirm" name="confirm" value="confirm" required>
<input id="delete" type="submit" value="Delete medium"> <input id="delete" type="submit" value="Delete medium">

14
templates/mediumSettings.hamlet
View file

@ -1,9 +1,11 @@
$newline always $newline always
<h3>Medium settings <div id="header" class="item" data-width="300">
<div class="inner">
<h3>Medium settings
<form method="post" enctype=#{enctype}> <form method="post" enctype=#{enctype}>
^{mediumSettingsWidget} ^{mediumSettingsWidget}
<div> <div>
<input type=submit value="Change settings"> <input type=submit value="Change settings">
<a href=@{MediumDeleteR mediumId}>Delete this image <a href=@{MediumDeleteR mediumId}>Delete this image