X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/8d347a3306ce7cc6e744183f0d4229f09d3f7101..efce969f2f5ccb01509bb7d5a8d6fbae29ecf6ce:/balances.mlt
diff --git a/balances.mlt b/balances.mlt
index d2c19c9..d565cca 100644
--- a/balances.mlt
+++ b/balances.mlt
@@ -6,24 +6,24 @@ ref showNormal = true;
if $"cmd" = "Create" then
if not (Balance.validBalanceName ($"name")) then %>
-
Invalid balance name
+ Invalid balance name
<% else switch Balance.balanceNameToId ($"name") of
SOME _ => %>
- Balance name already in use
+ Balance name already in use
<% | NONE =>
val id = Balance.addBalance ($"name") %>
- Balance added
+ Balance added
<% end
end
elseif $"mod" <> "" then
showNormal := false;
val balance = Balance.lookupBalance (Web.stoi ($"mod")) %>
-Modify balance record
+Modify balance record
-