#!/usr/local/bin/perl
use strict;
use HelpView;
use EnsWeb;
use CGI qw/:standard/;

my $content = "";
my $header  = "";
my $footer  = "";
my $kw = &CGI::param('kw');

&HelpView::eh_header(\$header);
my $num = &HelpView::handler(\$content);
&HelpView::eh_footer(\$footer);

print header();

print <<EOT;
<html>
  <head>
    <title>Eh?: $kw</title>
    <link rel="stylesheet" type="text/css" href="/EnsEMBL.css">
  </head>
  <body bgcolor="#ffffff" topmargin="2" marginheight="2" leftmargin="2" marginwidth="2" onload="this.focus();">
EOT

print $header;
if(defined $num && $num!=1) {	#  perpetual "Found 1 entry" is annoying
    my $s = ($num != 1)?"ies":"y";
    print "<small>&nbsp;Found $num entr${s}:</small><br>\n";
}

#########
# map out magic HELP_..._HELP & IMG_..._IMG links
#
&HelpView::mappings(\$content);
print $content;
print $footer;

