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><%
--- /dev/null
+<%args>
+$subpage
+</%args><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html lang="en"><head>
+<title><% $subpage |h %> - Email away message setup</title>
+</head><body>
+<h1><% $subpage |h %></h1>
db_connect();
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>
~ian / nj-awaymsg.git / commitdiff