X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/a4ccdb5e625953aa6ece8874b34c811353144426..0e737d9f261c698b705f5f388650ecb1d88f6749:/link.mlt diff --git a/link.mlt b/link.mlt index e2943a9..d66daaf 100644 --- a/link.mlt +++ b/link.mlt @@ -7,24 +7,24 @@ ref showNormal = true; if $"cmd" = "add" then val id = Link.addLink (you, $"title", $"url", $"descr") %> -

Link added

+

Link added

<% elseif $"mod" <> "" then val id = Web.stoi ($"mod"); val link = Link.lookupLink id; if (iff admin then false else you <> #usr link) then - %>

You can't modify somebody else's link.

<% + %>

You can't modify somebody else's link.

<% else showNormal := false %> -

Modify link

+

Modify link

- - - - +
Title:
URL:
Description:
+ + +
Title:
URL:
Description:
@@ -34,20 +34,20 @@ elseif $"save" <> "" then val id = Web.stoi ($"save"); val link = Link.lookupLink id; if (iff admin then false else you <> #usr link) then - %>

You can't modify somebody else's link.

<% + %>

You can't modify somebody else's link.

<% else Link.modLink {link with title = $"title", url = $"url", descr = $"descr"} - %>

Link modified

<% + %>

Link modified

<% end elseif $"del" <> "" then val id = Web.stoi ($"del"); val link = Link.lookupLink id; if (iff admin then false else you <> #usr link) then - %>

You can't delete somebody else's link.

<% + %>

You can't delete somebody else's link.

<% else showNormal := false %> -

Are you sure you want to delete link to "<% Web.html (#title link) %>"?

+

Are you sure you want to delete link to "<% Web.html (#title link) %>"?

Yes, delete "<% Web.html (#title link) %>"!<% end @@ -55,15 +55,27 @@ elseif $"del2" <> "" then val id = Web.stoi ($"del2"); val link = Link.lookupLink id; if (iff admin then false else you <> #usr link) then - %>

You can't delete somebody else's link.

<% + %>

You can't delete somebody else's link.

<% else Link.deleteLink id; - %>

Link "<% Web.html (#title link) %>" deleted

<% + %>

Link "<% Web.html (#title link) %>" deleted

<% end end; if showNormal then %> +

Add a link to a site you host with Hcoop

+ +
+ + + + + + +
Title:
URL:
Description:
+
+ <% foreach (name, link) in Link.listLinks () do %> @@ -76,18 +88,6 @@ if showNormal then %> <% end %>
<% Web.html (#title link) %>
-

Add a link to a site you host with Hcoop

- -
- - - - - - -
Title:
URL:
Description:
-
- <% end %> <% @footer[] %> \ No newline at end of file