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

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

<div class="main">

<div class="title">
<img class="globe" src="/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"
336c1154 AC	4	\| t => ("HCoop: " ^ t) %>
f2bab7c8	5	<!DOCTYPE html>
336c1154	6	<html><head>
5badedb0	7	<link rel="stylesheet" type="text/css" href="/hcoop.css" />
a90da8b1 AC	8	<title><% Web.html title %></title>
	9	</head><body>
	10
336c1154 AC	11	<div class="main">
	12
	13	<div class="title">
5badedb0	14	<img class="globe" src="/globe.gif" />
336c1154 AC	15	<h1><% Web.html title %></h1>
	16	</div>
	17
	18	<div class="break"></div>