[-
$r = shift ;
$http_headers_out{'content-type'} = 'text/html' ;
-]
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
        <title>Embperl 
	    [$if @{$r -> {menuitems}} > 1 || $r -> {menuitems}[0]{menu} ne 'Home' $]
                [- $i = 0 -]
		[$foreach $item (@{$r -> {menuitems}}) $]
		    - [+ $r -> gettext($item -> {menu}) +]
		[$endforeach$] 
            [$endif$]
        </title>
        <style type="text/css">
            [-
            $font = 'font-family: Geneva,Arial,Helvetica;' ;
            $base = $font ; 
            $base10 = $base . ' font-size: 10px;' ; 
            $base12 = $base . ' font-size: 12px;' ; 
            $base14 = $base . ' font-size: 14px;' ; 
            $base18 = $base . ' font-size: 18px;' ; 
            -]

           .cInput              {[+ $base12 +] background: #DDDDDD; }
           .cText               {[+ $base12 +] background: #AFBDCA; }
           .cSectionInput       {[+ $base12 +] background: #ddaaaa; }
           .cSectionText        {[+ $base12 +] background: #ddaaaa; }
           .cTabsOn             {[+ $base14 +] background: #ddaaaa; }
           .cTabsOff            {[+ $base14 +] background: #DDDDDD; }
           .cMenu               {[+ $base10 +] color: #000000 ; text-align: left ;}
           .cMenuInfo           {[+ $base10 +] color: #000000 ; text-align: left ; background: #D2E9F5 }
           .cNews               {[+ $base10 +]}
           .cContent            {[+ $base12 +] border-left: 1px black solid ; padding-left: 7px; padding-right: 7px; }
           .cContentNews        {[+ $base12 +] border-left: 1px black solid ; margin-left: 7px; padding-left: 7px; }

           .cPodHeaderNavLink   {[+ $base12 +]}
           .cPodH1ContentLink   {[+ $base12 +] font-weight: bold;}
           .cPodH2ContentLink   {[+ $base10 +]}

           .cPodH1              {[+ $base18 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; font-weight: bold; }
           .cPodH1Link          {[+ $base12 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; text-align: right ;}
           .cPodH2              {[+ $base14 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; font-weight: bold; }
           .cPodH2Link          {[+ $base10 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; font-weight: bold; }
           .cPodH3              {[+ $base12 +] padding-left: 15px; padding-right: 15px; background: #dddddd; color: #000000; font-weight: bold; }
           .cPodH3Link          {[+ $base10 +] padding-left: 15px; padding-right: 15px; background: #dddddd; color: #000000; font-weight: bold; }
           .cTopLink            {[+ $base10 +] }

           .cListOnlyText       {[+ $base12 +]  }
           .cItemText           {[+ $base14 +] font-weight: bold;  }
           .cPodVerbatim        {font-family: monospace; font-size: 12px; background: #eeeeee; 
				   border: solid 1px black; padding: 13px; margin: 20px 40px 20px 40px}
           .cFoot               {[+ $base10 +]}

           body                 {[+ $base12 +]}
           table                {[+ $base12 +]}
           .cHeadline           {[+ $base14 +]  font-weight: bold;}
           a:hover              { color: red ;}


            .diff-added, .diff-removed, .diff-unmodified, .diff-changed {
                font-family: monospace;
            }
            .diff-added {
                background: #cfc;
                color: #000;
            }
            .diff-removed {
                background: #fcc;
                color: #000;
            }
            .diff-unmodified {
                background: inherit;
                color: #000;
            }
            .diff-changed {
                background: #ffc;
                color: #000;
            }

            table.diff {
                border: 1px solid #666;
            }

            table th {
                border-bottom: 1px solid #666;
            }

            th.lhs, td.lhs {
                padding-right: 1em;
            }
            th.rhs, td.rhs {
                padding-left: 1em;
                border-left: 1px solid #666;
            }

            h1 small {
                color: #f00;
            }
        </style>
    </head>
    <body bgcolor="#ffffff" style="position: relative; width: 1020px; margin-left: auto; margin-right: auto; border: 0px solid black; padding: 5px; margin-top: 10px">
        [- Execute ('header.epl') -]
        <table width="100%" cellspacing="0" cellpadding="0" border="0">
            <tr>
                <td valign="top" class="menu-items">[- Execute ('menuleft.epl') -]</td>
                <td valign="top" width="90%" class="cContent">[- Execute ('content.epl') -]</td>
            </tr>
        </table>
        [- Execute ('footer.htm') -]
    </body>
</html>
