chiark / gitweb /
wip, before radiobuttons
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 17:32:20 +0000 (18:32 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 17:32:20 +0000 (18:32 +0100)
mason/edit

index 8dddaa2..c8ee036 100755 (executable)
@@ -37,6 +37,9 @@ 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>
@@ -46,6 +49,14 @@ if (!$tx) { die "no such text $textid"; }
 <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">