[r2006-04-27 14:43:40 by afrisch] Empty log message

Original author: afrisch
Date: 2006-04-27 14:43:40+00:00

web/site.cd

@@ -176,7 +176,7 @@ let box (x : H.Flow) : H.Block =
     style="border: solid 2px black; background: #ffffff" width="100%">
    [ <tr> [<td>x] ]
 
-let style = "
+let style : Latin1 = "
 a:link:hover, a:visited:hover {
   text-decoration: none;
   background: #FFFFD0;
@@ -477,14 +477,14 @@ match page with
   <td valign="top" align="left" style="width:100%">[
    <table width="100%">[
     <tr>[ <td valign="top" align="left"
-              style=("border: 2px solid black; background: #ffffff;
-text-align:center; color: #aa0000; font: bold 200% helvetica" : Latin1)>
+              style="border: 2px solid black; background: #ffffff;
+text-align:center; color: #aa0000; font: bold 200% helvetica">
           (text banner)
         ]
  
     <tr>[
       <td valign="top" align="left"
-          style=("border: 1px solid black; background: #fccead" : Latin1)>[ 
+          style="border: 1px solid black; background: #fccead">[ 
              (* altbg c8ccd1 *)
        <table width="100%" cellpadding="0" cellspacing="17">
          (map main with x -> <tr>[ <td>[x] ])