2012-01-18 13:12:04 +00:00
|
|
|
|
|
|
|
<h1> Articles
|
|
|
|
$if null articles
|
|
|
|
-- Show a standard message if there is no article
|
2012-01-20 22:08:31 +00:00
|
|
|
<p> There are no articles in the blog
|
2012-01-18 13:12:04 +00:00
|
|
|
$else
|
|
|
|
-- Show the list of articles
|
|
|
|
<ul>
|
|
|
|
$forall article <- articles
|
|
|
|
<li>
|
|
|
|
<a href=@{ArticleR (fst article)} > #{articleTitle (snd article)}
|
|
|
|
<hr/>
|
|
|
|
<form method=post enctype=#{enctype}>
|
|
|
|
^{articleWidget}
|
|
|
|
<div>
|
|
|
|
<input type=submit value="Post New Article">
|