#include <infodrom.style>
#include <projects.style>
#include "tools.pl"
#read "names"
#read "done"

<projectpg project="manpages-de" maxcontrib=15>

<h3 class=bar>Die Übersetzer und ihre Arbeit</h3>

<dl>
<:
  %name = read_names ();
  %done = read_done ();

  foreach $short (keys %name) {
    ($email,$name) = split (/:/, $name{$short});
    $short{$name} = $short;
  }

  foreach $rn (sort keys %short) {
    $short = $short{$rn};

    if (length ($done{$short}) > 0) {
      ($email,$name) = split (/:/, $name{$short});
      $email =~ s/\@/&#64;/;
      printf "<dt> <b>%s</b> &lt;%s&gt;<dd>", $name, $email;

      @pages = sort (split (/,/, $done{$short}));
      for ($i=0; $i <= $#pages; $i++) {
        print ", " if ($i > 0);
	$pages[$i] =~ /^(.*)\.([0-9])$/;
	printf '<a href="http://cvs.infodrom.org/manpages-de/man%d/%s.%d?rev=HEAD;content-type=text/plain">%s</a>(%d)',
	       $2, $1, $2, $1, $2;
      }
      print ".";
    }
  }

:>
</dl>

</projectpg>

# Local variables:
# mode: text
# mode: auto-fill
# end: