%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: stats.txt,v 5.10 2007-07-25 15:01:02 ddr Exp $ -->
  <!-- Copyright (c) 1998-2007 INRIA -->
  <title>[*statistics]</title>
  <meta name="robots" content="none"%/>
  <meta http-equiv="Content-Type" content="text/html; charset=%charset;"%/>
  <meta http-equiv="Content-Style-Type" content="text/css"%/>
  <link rel="shortcut icon" href="%image_prefix;/favicon_gwd.png"%/>
%include.css;
%base_header;
</head>
<body%body_prop;>
%message_to_wizard;

%if;not cancel_links;
  <table style="float:%right;"><tr><td>
    %if;(referer != "")
      <a href="%referer;"><img
       src="%image_prefix;/left.png"%wid_hei;left.png; 
       alt="&lt;&lt;" title="&lt;&lt;"%/></a>
    %end;
    <a href="%prefix;"><img%sp;
    src="%image_prefix;/up.png"%wid_hei;up.png; 
    alt="^^" title="^^"%/></a>
  </td></tr></table>
%end;

<h1>[*statistics]</h1>

%define;births(nnn)[the latest %d births:::nnn]%end;
%define;deaths(nnn)[the latest %t deaths:::nnn]%end;
%define;marriages(nnn)[the latest %d marriages:::nnn]%end;
%define;engaged(nnn)
  [the %d oldest couples perhaps still alive and engaged:::nnn]%nn;
%end;
%define;alive(nnn)[the %d oldest perhaps still alive:::nnn]%end;
%define;lived(nnn)[the %d who lived the longest:::nnn]%end;

%let;n;%if;(bvar.latest_event != "")%bvar.latest_event;%else;20%end;%in;

<ul>
%if;(wizard or friend)
  <li><a href="%prefix;m=LB;k=%n;">%apply;births(n)</a></li>
  <li><a href="%prefix;m=LD;k=%n;">%apply;deaths(n)</a></li>
  <li><a href="%prefix;m=LM;k=%n;">%apply;marriages(n)</a></li>
  <li><a href="%prefix;m=OE;k=%n;">%apply;engaged(n)</a></li>
  <li><a href="%prefix;m=OA;k=%n;;lim=0">%apply;alive(n)</a></li>
%end;
<li><a href="%prefix;m=LL;k=%n;">%apply;lived(n)</a></li>
</ul>

%if;(wizard or friend)
  <ul>
    <li><a href="%prefix;m=POP_PYR;int=5;lim=0">[population pyramid]</a></li>
  </ul>
%end;

%base_trailer;
%copyright;
</body>
</html>
