[hcoop/portal.git] / header.mlt

<html><head>
<% val title =
	case $"title" of
		  "" => "Hcoop Portal"
		| t => ("Hcoop Portal: " ^ t) %>
<title><% Web.html title %></title>
</head><body>

<a href="portal">Return to main page</a>

<h2><b><% Web.html title %></b></h2>
Commit	Line	Data
208e2cbc AC	1	<html><head>
	2	<% val title =
	3	case $"title" of
	4	"" => "Hcoop Portal"
	5	\| t => ("Hcoop Portal: " ^ t) %>
	6	<title><% Web.html title %></title>
	7	</head><body>
	8
ebba2ed3 AC	9	<a href="portal">Return to main page</a>
ebba2ed3 AC	10
208e2cbc	11	<h2><b><% Web.html title %></b></h2>