wip

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

index 42cfaac56e48329390f41856deb226eb73c93593..03a01d90615c7725fa88fc775010585e3b905aa6 100755 (executable)
--- a/mason/main
+++ b/mason/main
@@ -1,12 +1,10 @@
  <%init>
  use AwayMsg;
  db_connect();
+www_begin($r,$m);
  my ($sth,$row,$sthi,$rowi);
  </%init>
-<html lang="en"><head>
-<title>Email away message setup</title>
-</head><body>
-<h1>Email away message setup</h1>
+<&htmlhead, subpage => 'Overview' &>
  
  <h2>Email addresses and their configuration</h2>
  <%perl>
@@ -42,7 +40,7 @@ $sth->execute();
  <hr>
  <h2>Outbound messages</h2>
  <%perl>
-$sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
+$sth = $dbh->prepare("SELECT * FROM texts ORDER BY textid");
  $sthi = $dbh->prepare(<<END);
      SELECT * FROM addresses
       WHERE textid = ?
@@ -64,7 +62,7 @@ $sth->execute();
  <% $row->{'text'} |h %>
  </pre>
  
-<input type="submit" name="t<% $row->{'textid'} %>"
+<input type="submit" name="t_<% $row->{'textid'} %>"
     value="Edit or configure this message">
  <hr>
  % }