X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/d5f8418bc9167e9597c463175b38830ba17624b6..090e5fb2a269a98e4a9a9d53d17c220d2a98b8f8:/apps.mlt diff --git a/apps.mlt b/apps.mlt index c59d18a..82dccaa 100644 --- a/apps.mlt +++ b/apps.mlt @@ -6,7 +6,37 @@ val root = Group.inGroupNum 0; ref showNormal = true; -if $"vote" <> "" then +if $"show" <> "" then + showNormal := false; + val usr = Web.stoi ($"show"); + val user = Init.lookupUser usr; + val appl = App.lookupApp (#app user) %> + +
Received: | <% #applied appl %> |
Approved by: | <% + ref first = true; + ref found = false; + val votes = App.votes (#id appl); + foreach (id, name) in votes do + if first then + first := false + else + %>, <% + end + %><% name %><% + if id = you then + found := true + %> [Unvote]<% + end + end %> <% if (iff board then not found else false) then %>[Vote]<% end %> |
Username: | <% #name appl %> |
Real name: | <% Web.html (#rname appl) %> |
Forward e-mail? | <% if #forward appl then %>yes<% else %>no<% end %> |
Proposed uses: | <% Web.htmlNl (#uses appl) %> |
Other information: | <% Web.htmlNl (#other appl) %> |
magic-create-user-wrapper <% #name appl %> "<% #rname appl %>"<% if #forward appl then %> "<% #email appl %>"<% end %>+
new-user <% #name appl %> "<% #rname appl %>"<% if #forward appl then %> "<% #email appl %>"<% end %>