no-cache

[nj-awaymsg.git] / mason / edit
diff --git a/mason/edit b/mason/edit

index 5e60d0932a2fe1c63bc6b566005eac2e0b892814..6f256ef4f71927ec6c30cc5e02236fe2cde85630 100755 (executable)
--- a/mason/edit
+++ b/mason/edit
@@ -1,6 +1,7 @@
  <%init>
  use AwayMsg;
  db_connect();
+www_begin($r,$m);
  </%init>
  
  <%args>
@@ -39,14 +40,12 @@ if ($ARGS{'create'}) {
  if (!$tx) { die "no such text $textid"; }
  
  </%perl>
-<html lang="en"><head>
-<title>Editing - <% $tx->{'desc'} |h %> - Email away message setup</title>
-</head><body>
-<h1>Edit "<% $tx->{'desc'} |h %>"</h1>
+<& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>
  <form action="save" method="post">
  <&| txtable, tx => $tx, inputs => 1 &>
  <tr><td colspan=2><textarea cols=79 rows=15><%
    $tx->{'text'} |h %></textarea></td></tr>
  </&>
-
-<input type="submit" name="t<% $tx->{'textid'} %>" value="Save">
+<input type="hidden" name="textid" value="<% $tx->{'textid'} %>">
+<input type="submit" name="save" value="Save">
+<input type="submit" name="cancel" value="Cancel edit">