chiark
/
gitweb
/
~ian
/
nj-awaymsg.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e610519
)
wip, before radiobuttons
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 17:32:20 +0000
(18:32 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 12 Sep 2012 17:32:20 +0000
(18:32 +0100)
mason/edit
patch
|
blob
|
history
diff --git
a/mason/edit
b/mason/edit
index 8dddaa2702c081fc58abb0afbe3d015eef77c543..c8ee036601ac0f7e578394100f99bb773dc2c215 100755
(executable)
--- a/
mason/edit
+++ b/
mason/edit
@@
-37,6
+37,9
@@
if ($ARGS{'create'}) {
$tx = $sth->fetchrow_hashref();#
}
$tx = $sth->fetchrow_hashref();#
}
+my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr");
+$usedq->execute();
+
if (!$tx) { die "no such text $textid"; }
</%perl>
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>
</&>
<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">
<input type="hidden" name="textid" value="<% $tx->{'textid'} %>">
<input type="submit" name="save" value="Save">
<input type="submit" name="cancel" value="Cancel edit">