4 my ($sth,$row,$sthi,$rowi);
6 <&htmlhead, subpage => 'Overview'&>
8 <h2>Email addresses and their configuration</h2>
10 $sth = $dbh->prepare(<<END);
13 LEFT JOIN addresses USING (emailaddr)
14 LEFT JOIN texts USING (textid)
23 <td>Which message?</td>
25 % while (my $row= $sth->fetchrow_hashref()) {
27 <td><% $row->{'emailaddr'} |h %></td>
28 % if (defined $row->{'textid'}) {
30 <td><% $row->{'desc'} |h %></td>
40 <h2>Outbound messages</h2>
42 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
43 $sthi = $dbh->prepare(<<END);
44 SELECT * FROM addresses
50 % while (my $row= $sth->fetchrow_hashref()) {
51 <form action="edit" method="get">
52 <h3>Message "<% $row->{'desc'} |h %>"</h3>
54 <&| txtable, tx => $row &>
55 % $sthi->execute($row->{'textid'});
56 % while (my $rowi= $sthi->fetchrow_hashref()) {
57 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
61 <% $row->{'text'} |h %>
64 <input type="submit" name="t<% $row->{'textid'} %>"
65 value="Edit or configure this message">
68 <h3>Add new message</h3>
69 <input type="submit" name="create"
70 value="Start adding new message">