cvsimport

[hcoop/zz_old/portal.git] / link.mlt

<% @header[("title", ["Hosted sites"])];

val admin = Group.inGroupName "links";
val you = Init.getUserId ();

ref showNormal = true;

if $"cmd" = "add" then
	val id = Link.addLink (you, $"title", $"url", $"descr") %>
	<h3>Link added</h3>

<% elseif $"mod" <> "" then
	val id = Web.stoi ($"mod");
	val link = Link.lookupLink id;
	if (iff admin then false else you <> #usr link) then
		%><h3>You can't modify somebody else's link.</h3><%
	else
		showNormal := false %>

<h3>Modify link</h3>

<form action="link" method="post">
<input type="hidden" name="save" value="<% id %>">
<table class="blanks">
<tr> <td>Title:</td> <td><input name="title" value="<% Web.html (#title link) %>"></td> </tr>
<tr> <td>URL:</td> <td><input name="url" value="<% Web.html (#url link) %>"></td> </tr>
<tr> <td>Description:</td> <td><input name="descr" value="<% Web.html (#descr link) %>"></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </t>
</table>
</form>
<%	end

elseif $"save" <> "" then
	val id = Web.stoi ($"save");
	val link = Link.lookupLink id;
	if (iff admin then false else you <> #usr link) then
		%><h3>You can't modify somebody else's link.</h3><%
	else
		Link.modLink {link with title = $"title", url = $"url", descr = $"descr"}
		%><h3>Link modified</h3><%
	end

elseif $"del" <> "" then
	val id = Web.stoi ($"del");
	val link = Link.lookupLink id;
	if (iff admin then false else you <> #usr link) then
		%><h3>You can't delete somebody else's link.</h3><%
	else
		showNormal := false %>
		<h3>Are you sure you want to delete link to "<% Web.html (#title link) %>"?</h3>
		<a href="link?del2=<% id %>">Yes, delete "<% Web.html (#title link) %>"!</a><%
	end

elseif $"del2" <> "" then
	val id = Web.stoi ($"del2");
	val link = Link.lookupLink id;
	if (iff admin then false else you <> #usr link) then
		%><h3>You can't delete somebody else's link.</h3><%
	else
		Link.deleteLink id;
		%><h3>Link "<% Web.html (#title link) %>" deleted</h3><%
	end
end;

if showNormal then %>

<table>
<% foreach (name, link) in Link.listLinks () do %>
	<tr> <td><a href="<% Web.html (#url link) %>"><% Web.html (#title link) %></a></td>
	<td><% Web.html (#descr link) %></td>
	<td>(<a href="user?id=<% #usr link %>"><% name %></a>)</td>
<% if (iff admin then true else you = #usr link) then %>
	<td><a href="link?mod=<% #id link %>">[Modify]</a> <a href="link?del=<% #id link %>">[Delete]</a></td>
<% end %>
	</tr>
<% end %>
</table>

<h3>Add a link to a site you host with Hcoop</h3>

<form action="link" method="post">
<input type="hidden" name="cmd" value="add">
<table class="blanks">
<tr> <td>Title:</td> <td><input name="title"></td> </tr>
<tr> <td>URL:</td> <td><input name="url" value="http://"></td> </tr>
<tr> <td>Description:</td> <td><input name="descr"></td> </tr>
<tr> <td><input type="submit" value="Add"></td> </t>
</table>
</form>

<% end %>

<% @footer[] %>