Cosmetic improvements.

diff --git a/bcp5-registry.pl b/bcp5-registry.pl
index 038b7e281704c55dbddc86f6e859016f1b340eac..daad52c437b64a3cf428f47b2d2c83487ad35947 100755 (executable)
--- a/bcp5-registry.pl
+++ b/bcp5-registry.pl
@@ -467,7 +467,7 @@ sub foreach_setvars_area {
     $area_recommended= $area_i==$rec_areai;
     $area_pickchecked= $area_i==$current_areai ? 'checked' : '';
     $area_listing= $area_i eq $list_areai;
-    out("<!-- setvars_area @area_networks $area_i $area $list_areai -->");
+#    out("<!-- setvars_area @area_networks $area_i $area $list_areai -->");
 }
 
 %saniarray= ('<','lt', '>','gt', '&','amp', '"','quot');

diff --git a/template.html b/template.html
index e0b4befb23d0a1ddf13f6b3feadc1534f46ca46a..43ac7d0a94ed1782a823abbb3717dc166d7ffd2a 100644 (file)
--- a/template.html
+++ b/template.html
@@ -470,8 +470,9 @@ range; this can also be used to modify it.
 
 <table>
 <tr><td>Range <td>Name <td>Contact <td>Email
-</tr><p>
+</tr>
 @@@foreach:db@@@
+<p>
 @@@if:db_picked@@@
 <tr><td><a name="picked"><strong>@@@db_net@@@</strong></a>
 <td colspan=3><strong>network randomly picked as requested</strong>
@@ -482,7 +483,7 @@ range; this can also be used to modify it.
 <td>@@@db_contact@@@
 <td>@@@db_email@@@
 @@@endif:@@@
-</tr><p>
+</tr>
 @@@endforeach:@@@
 </table>
 
@@ -494,11 +495,11 @@ There are no matching entries in the database.
 
 @@@endif:@@@
 
-<address>
+<hr><address>
 <a href="@@@cgi@@@">@@@whose@@@ G-RIN</a><br>
 Queries or problems ?  Contact the administrator,
 <a href="mailto:@@@adminemail@@@">@@@adminname@@@</a>.
-
+</address>
 </body>
 </html>
 @@@eof:@@@