app/header.mlt

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