sub search
{
  my $category = $cgi->param('category');
  my $req   =  $cgi->param('req');
  my $title   = "Search";

  my $template = HTML::Template::Pro->new(filename => '2search.tpl',
                                          global_vars => 0,
                                          debug    => 1);

 if ($category && $req) {
    my $result=do_search($category,$req);

my $result=undef;
    if (defined $result) {
    die $result;
        my $rs=$result->make_list(id  => undef,
                                  departament => sub {shift->departament->mailbox()},
                                  status  => undef,
                                  subject => sub{ htesc(shift->subject()) });

       $template->param(TITLE  => "Search result:",
                        USER => $login,
                        RESULTS => $rs,);
      }
   }

  print $cgi->header(-charset=>"cp1251").$template->output();

}

sub do_search
{
 my $category=shift;
 my $query=shift;
 my $result;
 my $row;

 if    (lc($category)  eq 'id')          {$row="id"}
 elsif (lc($category)  eq 'subject')     {$row="subject"}
 elsif (lc($category)  eq 'text')        {$row="description"}
 elsif (lc($category)  eq 'email')       {$row="email"}
 elsif (lc($category)  eq 'user')       {$row="userid"}
 else {return undef}

 $result=MultiDesk::Ticket->search($row => $query,);

 return $result;
}