X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/d5f8418bc9167e9597c463175b38830ba17624b6..432aa2587e034970d8273d0e39062952196b8fcf:/portal.mlt diff --git a/portal.mlt b/portal.mlt index 3492692..7fb59ee 100644 --- a/portal.mlt +++ b/portal.mlt @@ -1,5 +1,6 @@ <% val you = Init.getUser(); val bal = Balance.lookupBalance (#bal you); +val deposit = Balance.depositAmount (#id bal); @header [] %> <% @payment [] %> @@ -12,7 +13,10 @@ val bal = Balance.lookupBalance (#bal you); <% #d trn %> <% Web.html (#descr trn) %> <% amount %>/<% #amount trn %> <% end %> -Balance: $<% #amount bal %> +Balance: $<% Util.sub (#amount bal, deposit) %>
+Deposit: $<% deposit %> (3 months of dues at the minimal pledge level) + + <% val polls = Poll.listCurrentPolls (); switch polls of @@ -42,4 +46,15 @@ end %> <% end end; +val {total, vhosts} = Stats.getWebbwUser {user = Init.getUserName (), last = 0}; +switch vhosts of + _ :: _ => + %>

Your web traffic this month

+ <% + foreach e in vhosts do %> + + <% end %> +
Site Data transferred (kB)
<% #hostname (#host e) %><% if #ssl (#host e) then %> (SSL)<% end %> [detail]<% #size e %>
+<% end; + @footer [] %>