X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fedit;h=c8ee036601ac0f7e578394100f99bb773dc2c215;hp=60e8b9e644615e6354c84401cc70450559c2dd29;hb=ad848a3d5e86602f7a568e6a0b034b21a177171a;hpb=a94c056ed72a1c3e6925ec56fda6294968686d42 diff --git a/mason/edit b/mason/edit index 60e8b9e..c8ee036 100755 --- a/mason/edit +++ b/mason/edit @@ -1,6 +1,7 @@ <%init> use AwayMsg; db_connect(); +www_begin($r,$m); <%args> @@ -36,18 +37,26 @@ if ($ARGS{'create'}) { $tx = $sth->fetchrow_hashref();# } +my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr"); +$usedq->execute(); + if (!$tx) { die "no such text $textid"; } - -Editing - <% $tx->{'desc'} |h %> - Email away message setup - -

Edit "<% $tx->{'desc'} |h %>"

+<& htmlhead, subpage => "Edit \"$tx->{'desc'}\"" &>