+<%init>
+use AwayMsg;
+db_connect();
+</%init>
+
+<%args>
+$create => undef
+</%args>
+
+<%perl>
+
+my $textid;
+
+if (defined $create) {
+} else {
+ foreach my $k (keys %ARGS) {
+ if ($k =~ m/^t(\d{0,7})$/) {
+ $textid= $1;
+ last;
+ }
+ }
+ die unless defined $textid;
+}
+
+my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?");
+$sth->execute($textid);
+my $tx = $sth->fetchrow_hashref();#
+
+if (!$tx) { die "no such text $textid"; }
+
+</%perl>
+<html lang="en"><head>
+<title>Editing - <% $tx->{'desc'} |h %> - Email "out of office" setup</title>
+</head><body>
+<h1>Edit "<% $tx->{'desc'} |h %>"</h1>
+<form action="save" method="post">
+<&| txtable, tx => $tx, inputs => 1 &>
+<tr><td>TXTABLE CONTENT</td></tr>
+</&>
+
+<input type="submit" name="t<% $tx->{'textid'} %>"
+ value="Edit or configure this message">
~ian / nj-awaymsg.git / commitdiff