[hcoop/portal.git] / app / header.mlt

<% val title =
	case $"title" of
		  "" => "HCoop"
		| t => ("HCoop: " ^ t) %>
<html><head>
<link rel="stylesheet" type="text/css" href="https://join.hcoop.net/hcoop.css" />
<title><% Web.html title %></title>
</head><body>

<div class="main">

<div class="title">
<img class="globe" src="https://join.hcoop.net/globe.gif" />
<h1><% Web.html title %></h1>
</div>

<div class="break"></div>
Commit	Line	Data
a90da8b1 AC	1	<% val title =
a90da8b1 AC	2	case $"title" of
336c1154 AC	3	"" => "HCoop"
	4	\| t => ("HCoop: " ^ t) %>
	5	<html><head>
62b0bade	6	<link rel="stylesheet" type="text/css" href="https://join.hcoop.net/hcoop.css" />
a90da8b1 AC	7	<title><% Web.html title %></title>
	8	</head><body>
	9
336c1154 AC	10	<div class="main">
	11
	12	<div class="title">
62b0bade	13	<img class="globe" src="https://join.hcoop.net/globe.gif" />
336c1154 AC	14	<h1><% Web.html title %></h1>
	15	</div>
	16
	17	<div class="break"></div>