.gitignore: add data dir

[nj-awaymsg.git] / mason / edit

diff --git a/mason/edit b/mason/edit
index bad80b836604c6e0ed5a891cb8605611f6324853..4456d87489ed9be2532e1793beb706a796c17d9d 100755 (executable)
--- a/mason/edit
+++ b/mason/edit
@@ -3,6 +3,9 @@ use AwayMsg;
 db_connect();
 www_begin($r,$m);
 </%init>
+<%shared>
+our ($cgi,$ar);
+</%shared>
 
 <%args>
 $create => undef
@@ -51,6 +54,7 @@ if (!$tx) { die "no such text $textid"; }
 </%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>
@@ -58,7 +62,7 @@ if (!$tx) { die "no such text $textid"; }
 </table><table>
 % while (my $row = $usedq->fetchrow_hashref()) {
 <tr><td>Use for <% $row->{'emailaddr'} |h %></td>
-<td><input type="checkbox" value="1" name=u_<% hqote($row->{'emailaddr'}) %>
+<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'}) {