password check, logout button

[nj-awaymsg.git] / mason / edit

diff --git a/mason/edit b/mason/edit
index 651cb3e64f85da6ecc77534c4853daf174d0d4e2..96124131d93a83a3e464d4c9c702650882cad3b2 100755 (executable)
--- a/mason/edit
+++ b/mason/edit
@@ -15,7 +15,7 @@ my $textid;
 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;
        }
@@ -58,7 +58,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"
+<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'}) {