X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/45f95cf524d092a135be81d994d68182819f1ce4..efce969f2f5ccb01509bb7d5a8d6fbae29ecf6ce:/contact.mlt

diff --git a/contact.mlt b/contact.mlt
index eed7986..905b9c7 100644
--- a/contact.mlt
+++ b/contact.mlt
@@ -4,25 +4,25 @@ ref showNormal = true;
 
 if $"cmd" = "add" then
 	val id = Contact.addContact (Init.getUserId(), Web.stoi ($"knd"), $"v", Contact.privFromInt (Web.stoi ($"priv"))) %>
-	<h3><b>Contact added</b></h3>
+	<h3>Contact added</h3>
 
 <% elseif $"mod" <> "" then
 	showNormal := false;
 	val id = Web.stoi ($"mod");
 	val cont = Contact.lookupContact id %>
 
-<h3><b>Modify contact entry</b></h3>
+<h3>Modify contact entry</h3>
 
-<form action="contact">
+<form action="contact" method="post">
 <input type="hidden" name="save" value="<% id %>">
-<table>
-<tr> <td align="right"><b>Kind</b>:</td> <td><select name="knd">
+<table class="blanks">
+<tr> <td>Kind:</td> <td><select name="knd">
 <% foreach kind in Contact.listKinds () do %>
 	<option value="<% #id kind %>"<% if #knd cont = #id kind then %> selected<% end %>><% Web.html (#name kind) %></option>
 <% end %>
 </select></td> </tr>
-<tr> <td align="right"><b>Value</b>:</td> <td><input name="v" value="<% Web.html (#v cont) %>"></td> </tr>
-<tr> <td align="right"><b>Readable by</b>:</td> <td><select name="priv">
+<tr> <td>Value:</td> <td><input name="v" value="<% Web.html (#v cont) %>"></td> </tr>
+<tr> <td>Readable by:</td> <td><select name="priv">
 	<option value="0"<% if #priv cont = Contact.PUBLIC then %> selected<% end %>>Anyone</option>
 	<option value="1"<% if #priv cont = Contact.MEMBERS then %> selected<% end %>>Members only</option>
 	<option value="2"<% if #priv cont = Contact.ADMINS then %> selected<% end %>>Admins only</option>
@@ -35,37 +35,37 @@ if $"cmd" = "add" then
 	val id = Web.stoi ($"save");
 	val cont = Contact.lookupContact id;
 	Contact.modContact {cont with knd = Web.stoi ($"knd"), v = $"v", priv = Contact.privFromInt (Web.stoi ($"priv"))} %>
-	<h3><b>Contact entry saved</b></h3>
+	<h3>Contact entry saved</h3>
 
 <% elseif $"del" <> "" then
 	showNormal := false;
 	val id = Web.stoi ($"del");
 	val cont = Contact.lookupContact id %>
-	<h3><b>Are you sure you want to delete contact entry "<% Web.html (#v cont) %>"?</b></h3>
+	<h3>Are you sure you want to delete contact entry "<% Web.html (#v cont) %>"?</h3>
 	<a href="contact?del2=<% id %>">Yes, delete "<% Web.html (#v cont) %>"!</a>
 
 <% elseif $"del2" <> "" then
 	val id = Web.stoi ($"del2");
 	val cont = Contact.lookupContact id;
 	Contact.deleteContact id %>
-	<h3><b>Contact entry "<% Web.html (#v cont) %>" deleted</b></h3>
+	<h3>Contact entry "<% Web.html (#v cont) %>" deleted</h3>
 
 <% end;
 
 if showNormal then %>
 
-<h3><b>Add new contact information</b></h3>
+<h3>Add new contact information</h3>
 
-<form action="contact">
+<form action="contact" method="post">
 <input type="hidden" name="cmd" value="add">
-<table>
-<tr> <td align="right"><b>Kind</b>:</td> <td><select name="knd">
+<table class="blanks">
+<tr> <td>Kind:</td> <td><select name="knd">
 <% foreach kind in Contact.listKinds () do %>
 	<option value="<% #id kind %>"><% Web.html (#name kind) %></option>
 <% end %>
 </select></td> </tr>
-<tr> <td align="right"><b>Value</b>:</td> <td><input name="v"></td> </tr>
-<tr> <td align="right"><b>Readable by</b>:</td> <td><select name="priv">
+<tr> <td>Value:</td> <td><input name="v"></td> </tr>
+<tr> <td>Readable by:</td> <td><select name="priv">
 	<option value="0">Anyone</option>
 	<option value="1" selected>Members only</option>
 	<option value="2">Admins only</option>
@@ -74,11 +74,11 @@ if showNormal then %>
 </table>
 </form>
 
-<h3><b>Your contact information</b></h3>
+<h3>Your contact information</h3>
 
-<table>
+<table class="blanks">
 <% foreach (kind, cont) in Contact.listUserContacts (Init.getUserId(), Contact.ADMINS) do %>
-	<tr> <td align="right" valign="top"><b><% Web.html (#name kind) %></b>:</td>
+	<tr> <td><% Web.html (#name kind) %>:</td>
 	<td><% Contact.format (kind, cont) %></td>
 	<td><i><% switch #priv cont of
 		  Contact.PUBLIC => %>Public<%