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

<% val title =
	case $"title" of
		  "" => "HCoop"
		| t => ("HCoop: " ^ t) %>
<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
20a679fc	1	<% val title =
20a679fc	2	case $"title" of
94fb7d51	3	"" => "HCoop"
	4	\| t => ("HCoop: " ^ t) %>
	5	<html><head>
ef3aae8e	6	<link rel="stylesheet" type="text/css" href="/hcoop.css" />
20a679fc	7	<title><% Web.html title %></title>
	8	</head><body>
	9
94fb7d51	10	<div class="main">
	11
	12	<div class="title">
ef3aae8e	13	<img class="globe" src="/globe.gif" />
94fb7d51	14	<h1><% Web.html title %></h1>
	15	</div>
	16
	17	<div class="break"></div>