use strict;
use Template;
use CGI;
use CGI::Session ( '-ip_match' );
use DBI;
use Data::Dumper;
use Sphinx::Search;
require "class.pm";
my $cgi = new CGI;
my $dbh = new_dbh();
my $caseid = $cgi->param("caseid");
my $users_id = "31";
my @lines = word_test($caseid,$users_id);

# Sub routine

sub word_test {
    my $dbh = new_dbh();
    my @cases;
    my $caseid = $_[0];
    my $assigned_to = $_[1];
    my $query = 'SELECT caseid,status,case_header,DATE_FORMAT(added_date, "%d/%m/%Y")
                 FROM cases
                 where caseid = ? and assigned_to = ?
                 order by added_date desc';   
    my $sth = $dbh->prepare($query);
    $sth->execute($caseid,$assigned_to);
    while (my @row = $sth->fetchrow_array()) {
    push @cases, \@row;
    }
    return \@cases;
}

# TEMPLATE FILE
[% INCLUDE templates/header_auth.inc %]

[% FOREACH row IN lines %]
"[% row.0 %] [% row.2 %] "
<br />
[% END %]

# END FILE