my $rows=[ # { # TicketNo => 1, # Customer => "Foo", # UserName => "Foo", # DateSubmission =>"Foo", # Via =>"Foo", # Medium =>"Foo", # Issues =>"Foo", # SupportType =>"Foo", # Description =>"Foo", # Detail =>"Foo", ## AssignTo =>"Foo", # Status =>"Foo", # Remarks =>"Foo", # Priority =>"Foo", # ETD =>"Foo", # ClosedDate =>"Foo", # ClosedName =>"Foo" ## }, ## { # TicketNo => 2, # Customer => "Blah", # UserName => "Blah", # DateSubmission => "Blah", # Via => "Blah", # Medium => "Blah", # Issues => "Blah", # SupportType => "Blah", # Description => "Blah", # Detail => "Blah", # AssignTo => "Blah", # Status => "Blah", # Remarks => "Blah", # Priority => "Blah", # ETD => "Blah", # ClosedDate => "Blah", # ClosedName => "Blah" # } # # ]; #$template->param(ROWS => $rows || []); #### my $rows = $dbh->selectall_arrayref("SELECT TicketNo, Customer, UserName, DateSubmission, Via, Medium, Issues, SupportType, Description, Detail, AssignTo, Status, Remarks, Priority, ETD, ClosedDate, ClosedName FROM TSIssuesTable WHERE Customer LIKE $quotedString1 AND Priority LIKE $quotedString2 AND TicketNo LIKE $quotedString3 AND DateSubmission LIKE $quotedString4");