database editing etc. works

[nj-awaymsg.git] / mason / main

diff --git a/mason/main b/mason/main
index 03a01d90615c7725fa88fc775010585e3b905aa6..a9bc72e20621da1a183218ecba490259ef544095 100755 (executable)
--- a/mason/main
+++ b/mason/main
@@ -54,8 +54,13 @@ $sth->execute();
 
 <&| txtable, tx => $row &>
 %    $sthi->execute($row->{'textid'});
+%    my $anyused = 0;
 %    while (my $rowi= $sthi->fetchrow_hashref()) {
 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
+%        $anyused++;
+%    }
+%    if ($anyused) {
+<tr><td colspan=2>Not currently in use</td></tr>
 %    }
 </&>
 <pre>