db_connect();
www_begin($r,$m);
</%init>
+<%shared>
+our ($cgi,$ar);
+</%shared>
<%args>
$create => undef
if (defined $create) {
} else {
foreach my $k (keys %ARGS) {
- if ($k =~ m/^t(\d{0,7})$/) {
+ if ($k =~ m/^t_(\d{0,7})$/) {
$textid= $1;
last;
}
</%perl>
<& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>
<form action="save" method="post">
+<% $ar->secret_hidden_html() %>
<&| txtable, tx => $tx, inputs => 1 &>
<tr><td colspan=2><textarea name="text" cols="79" rows="15"><%
$tx->{'text'} |h %></textarea></td></tr>
</table><table>
% while (my $row = $usedq->fetchrow_hashref()) {
<tr><td>Use for <% $row->{'emailaddr'} |h %></td>
-<td><input type="checkbox"
+<td><input type="checkbox" value="1" name=u_<% hquote($row->{'emailaddr'}) %>
% if (!$create && $row->{'textid'} eq $textid) {
checked></td><td>(currently using this message)
% } elsif (defined $row->{'textid'}) {