chiark / gitweb /
wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 30 Aug 2012 00:49:24 +0000 (01:49 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 30 Aug 2012 00:49:24 +0000 (01:49 +0100)
mason/main

index e8c29e6..07a5efe 100755 (executable)
@@ -58,12 +58,17 @@ END
 $sth->execute();
 </%perl>
 % while (my $row= $sth->fetchrow_hashref()) {
+<form action="edit" method="get">
 <h3>Message "<% $row->{'desc'} |h %>"</h3>
 <table>
 <tr><td>Short name:</td><td><% $row->{'desc'} |h %></td></tr>
 <tr><td>Expires:</td><td><%
   expirestime2show(expires2timet($row->{'expires'}))
                                               |h %></td></tr>
+%    $sthi->execute($row->{'textid'});
+%    while (my $rowi= $sthi->fetchrow_hashref()) {
+<tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
+%    }
 <tr><td>Subject:</td>
   <td><code><% $row->{'subject'} |h %></code></td></tr>
 </table>
@@ -71,4 +76,10 @@ $sth->execute();
 <pre>
 <% $row->{'text'} |h %>
 </pre>
+<input type="submit" name="t<% $row->{'textid'} %>"
+   value="Edit or configure this message">
 % }
+<h3>Add new message</h3>
+<input type="submit" name="create"
+   value="Start adding new message">
+</form>