fixed medium settings

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

View file

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

View file

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

View file

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