X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/d6223be994735931643a8205a2c2c9724640fa21..1da9824864eb5f3222153a4cdad916117bcd9a66:/kind.mlt

diff --git a/kind.mlt b/kind.mlt
index 2f8f08c..b378d97 100644
--- a/kind.mlt
+++ b/kind.mlt
@@ -6,18 +6,18 @@ ref showNormal = true;
 
 if $"cmd" = "add" then
 	val id = Contact.addKind ($"name", (iff $"url" = "on" then SOME ($"urlPrefix", $"urlPostfix") else NONE))
-	%> <h3><b>Contact kind added</b></h3>
+	%> <h3>Contact kind added</h3>
 
 <% elseif $"mod" <> "" then
 	showNormal := false;
 	val id = Web.stoi ($"mod");
 	val kind = Contact.lookupKind id %>
 
-<form action="kind">
+<form action="kind" method="post">
 <input type="hidden" name="save" value="<% id %>">
-<table>
-<tr> <td align="right"><b>Name</b>:</td> <td><input name="name" value="<% Web.html (#name kind) %>"></td> </tr>
-<tr> <td align="right"><b>URL pattern</b>:</td> <td><%
+<table class="blanks">
+<tr> <td>Name:</td> <td><input name="name" value="<% Web.html (#name kind) %>"></td> </tr>
+<tr> <td>URL pattern:</td> <td><%
 	switch #makeUrl kind of
 		  NONE => %><input type="checkbox" name="url"> <input name="urlPrefix">...<input name="urlPostfix"><%
 		| SOME (pre, post) => %><input type="checkbox" name="url" checked> <input name="urlPrefix" value="<% Web.html pre %>">...<input name="urlPostfix" value="<% Web.html post %>"><%
@@ -31,13 +31,13 @@ if $"cmd" = "add" then
 	val id = Web.stoi ($"save");
 	val kind = Contact.lookupKind id;
 	Contact.modKind {kind with name = $"name", makeUrl = (iff $"url" = "on" then SOME ($"urlPrefix", $"urlPostfix") else NONE)}
-	%> <h3><b>Contact kind modified</b></h3>
+	%> <h3>Contact kind modified</h3>
 
 <% elseif $"del" <> "" then
 	showNormal := false;
 	val id = Web.stoi ($"del");
 	val kind = Contact.lookupKind id %>
-	<h3><b>Are you sure you want to delete "<% Web.html (#name kind) %>"?</b></h3>
+	<h3>Are you sure you want to delete "<% Web.html (#name kind) %>"?</h3>
 
 	<a href="kind?del2=<% $"del" %>">Yes, delete "<% Web.html (#name kind) %>"!</a>
 
@@ -45,24 +45,24 @@ if $"cmd" = "add" then
 	val id = Web.stoi ($"del2");
 	val kind = Contact.lookupKind id;
 	Contact.deleteKind id %>
-	<h3><b>"<% Web.html (#name kind) %>" deleted</b></h3>
+	<h3>"<% Web.html (#name kind) %>" deleted</h3>
 
 <% end %>
 
 <% if showNormal then %>
 
-<h3><b>Add a contact kind</b></h3>
+<h3>Add a contact kind</h3>
 
-<form action="kind">
+<form action="kind" method="post">
 <input type="hidden" name="cmd" value="add">
-<table>
-<tr> <td align="right"><b>Name</b>:</td> <td><input name="name"></td> </tr>
-<tr> <td align="right"><b>URL pattern</b>:</td> <td><input type="checkbox" name="url"> <input name="urlPrefix">...<input name="urlPostfix"></td> </tr>
+<table class="blanks">
+<tr> <td>Name:</td> <td><input name="name"></td> </tr>
+<tr> <td>URL pattern:</td> <td><input type="checkbox" name="url"> <input name="urlPrefix">...<input name="urlPostfix"></td> </tr>
 <tr> <td><input type="submit" value="Add"></td> </tr>
 </table>
 </form>
 
-<h3><b>Current contact kinds</b></h3>
+<h3>Current contact kinds</h3>
 
 <table>
 <tr> <td><b>Kind</b></td> <td><b>URL pattern</b></td> </tr>