X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/3d009713e9d261cc632c8e0150fc0c9f8d7a4db6..f98251aaca90e22b76903ae1875e4c565bb995b7:/money.mlt?ds=sidebyside

diff --git a/money.mlt b/money.mlt
index b16b14a..a0994f0 100644
--- a/money.mlt
+++ b/money.mlt
@@ -3,6 +3,7 @@
 ref showNormal = true;
 
 if $"cmd" = "list" then
+	val admin = Group.inGroupName "money";
 	showNormal := false %>
 
 <h3><b>Transactions</b></h3>
@@ -12,9 +13,14 @@ if $"cmd" = "list" then
 <% foreach trn in Money.listTransactions () do %>
 <tr> <td><% #d trn %></td> <td><a href="money?trn=<% #id trn %>"><% Web.html (#descr trn) %></a></td> <td><% #amount trn %></td> <td><% #stamp trn %></td>
 <% switch Money.listChargesWithNames (#id trn) of
-	  [(name, cha)] => %><td><a href="user?id=<% #usr cha %>"><% name %></a></td> </tr><%
-	| _ => %><td><i>multi</i></td> </tr><%
+	  [(name, cha)] => %><td><a href="user?id=<% #usr cha %>"><% name %></a></td><%
+	| _ => %><td><i>multi</i></td><%
+end;
+if admin then
+	%><td><a href="money?modHosting=<% #id trn %>">[Hosting]</a> <a href="money?modPay=<% #id trn %>">[Payment]</a> <a href="money?modEven=<% #id trn %>">[Other]</a></td>
+	<td><a href="money?del=<% #id trn %>">[Delete]</a></td><%
 end
+%></tr><%
 end %>
 </table>