X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fedit;h=c8ee036601ac0f7e578394100f99bb773dc2c215;hp=e887bdb739a78f84caf2bf5cf60f28400c46795f;hb=ad848a3d5e86602f7a568e6a0b034b21a177171a;hpb=9cc1c4dfcca1ae70756fef8b9ebf37aa357c8e60

diff --git a/mason/edit b/mason/edit
index e887bdb..c8ee036 100755
--- a/mason/edit
+++ b/mason/edit
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 </%init>
 
 <%args>
@@ -36,15 +37,26 @@ if ($ARGS{'create'}) {
     $tx = $sth->fetchrow_hashref();#
 }
 
+my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr");
+$usedq->execute();
+
 if (!$tx) { die "no such text $textid"; }
 
 </%perl>
 <& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>
 <form action="save" method="post">
 <&| txtable, tx => $tx, inputs => 1 &>
-<tr><td colspan=2><textarea cols=79 rows=15><%
+<tr><td colspan=2><textarea name="text" cols="79" rows="15"><%
   $tx->{'text'} |h %></textarea></td></tr>
 </&>
+</table><br><table>
+% while (my $row = $usedq->fetchrow_hashref()) {
+<tr><td>Use for <% $row->{'emailaddr'} |h %></td>
+<td><input type="checkbox"
+%     if ($usedq->
+></td></tr>
+% }
+<p>
 <input type="hidden" name="textid" value="<% $tx->{'textid'} %>">
 <input type="submit" name="save" value="Save">
 <input type="submit" name="cancel" value="Cancel edit">