1. associate - add this option to the HTML::Template 'constructor' and point it to an instantiated CGI object:

   my $query = new CGI;
   my $template = HTML::Template->new(
      filename => 'search.tmpl',
      associate => $query,
   );
   [download]

   Now there is no need to explicitly assign "search":

   $template->param(SEARCH => $search);
   [download]

   You should validate $search before you pass it to $fts, however - better safe than sorry.

 

2. Use CSS instead of TAB_BG_MAIN and TAG_BG_HEAD. Design decisions are best left out your Perl script.

 

3. Post your template code along with your Perl code, at least the relevant portion(s). ;)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)