X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/348c702ebdc2405076a39dc070b6c3831f704acc..47ea7c948ab73a626681f1f75f42a67921c0ca9f:/money.mlt
diff --git a/money.mlt b/money.mlt
index 0ac1b3b..d92969b 100644
--- a/money.mlt
+++ b/money.mlt
@@ -7,7 +7,7 @@ ref showNormal = true;
if $"hist" <> "" then
showNormal := false;
val id = Web.stoi ($"hist") %>
-
+
Date | Description | Amount |
<% foreach (amount, trn) in Money.listUserTransactions id do %>
<% #d trn %> | <% Web.html (#descr trn) %> | <% amount %>/<% #amount trn %> |
@@ -20,7 +20,7 @@ if $"hist" <> "" then
Transactions
-
+
Date | Description | Amount | Last modified | Participants |
<% foreach trn in Money.listTransactions () do %>
<% #d trn %> | <% Web.html (#descr trn) %> | <% #amount trn %> | <% #stamp trn %> |
@@ -42,10 +42,10 @@ end %>
Primary Transactions
-
+
Date | Description | Amount | Last modified | Participants |
<% foreach (amt, trn) in Money.listUserTransactions (valOf (Init.userNameToId "hcoop")) do %>
- <% #d trn %> | <% Web.html (#descr trn) %> | <% #amount trn %> | <% #stamp trn %> |
+
<% #d trn %> | <% Web.html (#descr trn) %> | <% #amount trn %> | <% #stamp trn %> |
<% switch Money.listChargesWithNames (#id trn) of
[(name, cha)] => %><% name %> | <%
| _ => %>multi | <%
@@ -63,7 +63,7 @@ end %>
Active Balances
-
+
<% foreach bal in Balance.listOwnedBalances () do %>
<% #name bal %> | <% #amount bal %> |
<% switch Balance.listBalanceUsers (#id bal) of
@@ -82,7 +82,7 @@ end %> |
Retired Balances
-
+
<% foreach bal in Balance.listUnownedBalances () do %>
<% #name bal %> | <% #amount bal %> |
<% switch Balance.listBalanceUsers (#id bal) of
@@ -102,7 +102,7 @@ end %> |
Negative Active Balances (<% length bals %>)
-
+
<% foreach bal in bals do %>
<% #name bal %> | <% #amount bal %> |
<% switch Balance.listBalanceUsers (#id bal) of
@@ -258,7 +258,6 @@ end %> |
Description: | |
%>Payment transaction added.
+<% elseif $"cmd" = "stripeApply" then
+ val stripePmt = Money.lookupStripePayment ($"stripeId");
+ val txid = Money.applyStripePayment stripePmt;
+%>Stripe Payment Processed (Transaction <% txid %>)
+
+<% elseif $"cmd" = "stripeRejected" then
+%>Stripe Payment Rejected!
+
+<% elseif $"cmd" = "stripeReject" then
+ Group.requireGroupName "money";
+ showNormal := false;
+%>
+Are you sure you want to reject Stripe Payment <% $"stripeChargeId" %>?
+
+
<% elseif $"modPay" <> "" then
Group.requireGroupName "money";
showNormal := false;
@@ -339,6 +358,27 @@ end %>
+<% elseif $"cmd" = "dues" then
+ Group.requireGroupName "money";
+ showNormal := false %>
+
+Monthly dues
+
+