[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
a4ccdb5e AC	4	"" => "HCoop Portal"
a4ccdb5e AC	5	\| t => ("HCoop Portal: " ^ t) %>
208e2cbc AC	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>