X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/688bf30c58b09549436e839df8c55f3c5808aa50..090e5fb2a269a98e4a9a9d53d17c220d2a98b8f8:/apps.mlt
diff --git a/apps.mlt b/apps.mlt
index 395beca..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 %>