X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/add44c001af25ce13aff411079be8138877342f9..84970dafc89958d00d83f18961250d5dea733eba:/portal.mlt diff --git a/portal.mlt b/portal.mlt dissimilarity index 65% index 0528e2f..711a6f2 100644 --- a/portal.mlt +++ b/portal.mlt @@ -1,84 +1,65 @@ -<% val you = Init.getUser(); -val bal = Balance.lookupBalance (#bal you); -@header [] %> - -<% if Group.inGroupNum 0 then %> -

Admin

 -Approved applicants waiting for accounts
-Members
-Groups
-Balances
-Contact kinds
-Roll call!
-<% end %> - -

Your account

 - -Preferences
-Financial
-Contact information
-Your geographic locations
-Public URL directory
- -

Support requests

 - -Request control of a domain with domtool
-Request Debian apt packages
-Request a Mailman mailing list
-Other support request
- -

Your recent account activity

- - - -<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), 5) do %> - -<% end %> -
Date Description Amount
<% #d trn %> <% Web.html (#descr trn) %> <% amount %>/<% #amount trn %>
-Balance: $<% #amount bal %> - -

Current polls

- -<% foreach pol in Poll.listCurrentPolls () do %> -
  • <% Web.html (#title pol) %> -<% if Poll.takingVotes pol then %>[VOTE]<% end %> -(<% Web.html (#starts pol) %> to <% Web.html (#ends pol) %>)
    • -<% end %> - -

    Open support issues

    - -<% foreach (name, issue) in Support.listOpenIssues (#id you) do %> -<% name %>: <% Web.html (#title issue) %> -<% switch #status issue of - Support.NEW => %>(New)<% - | Support.PENDING => %>(Pending)<% - | Support.CLOSED => %>(Closed)<% -end %> -
    -<% end %> - -

    Statistics

    - -Apache bandwidth
    -Disk usage
    - -

    Public pages

    - -Member directory
    -Member location summary
    -URL directory
    - -

    Miscellaneous

    - -Review pending membership applications
    -Contact information directory
    -Polls
    - -

    Other services

    - -Webalizer
    -MRTG statistics
    -Usermin
    -SquirrelMail
    - -<% @footer [] %> \ No newline at end of file +<% val you = Init.getUser(); +val bal = Balance.lookupBalance (#bal you); +@header [] %> + +

    Add to your balance with PayPal

    + +

    Add to your balance with Google Checkout: + + + + + + +
    + + + +

    + +

    Your recent account activity

    + + + +<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), 5) do %> + +<% end %> +
    Date Description Amount
    <% #d trn %> <% Web.html (#descr trn) %> <% amount %>/<% #amount trn %>
    +Balance: $<% #amount bal %> + +<% val polls = Poll.listCurrentPolls (); +switch polls of + _::_ => %> +

    Current polls

    + +<% foreach pol in polls do %> +
  • <% Web.html (#title pol) %> +<% if Poll.takingVotes pol then %>[VOTE]<% end %> +(<% Web.html (#starts pol) %> to <% Web.html (#ends pol) %>)
    • +<% end +end %> + +<% val issues = Support.listOpenIssues (#id you); +switch issues of + _::_ => %> +

    Open support issues

    + +<% foreach (name, issue) in issues do %> +<% name %>: <% Web.html (#title issue) %> +<% switch #status issue of + Support.NEW => %>(New)<% + | Support.PENDING => %>(Pending)<% + | Support.CLOSED => %>(Closed)<% +end %> +
    +<% end +end %> + +<% @footer [] %> \ No newline at end of file