#! /usr/bin/perl -w
use strict ;
use JQuery::Demo ;
use JQuery::CSS ;
use CGI ;
package main ;
my $tester = new JQuery::Demo ;
$tester->run ;
package JQuery::Demo ;
use JQuery::TableSorter ;
sub start {
my $my = shift ;
my $q = new CGI ;
$my->{info}{TITLE} = "Table Sorter" ;
my $jquery = $my->{jquery} ;
# Create data for the table
my $data = [['Id','Total','Ip','Time','UK Short Date','UK Long Date'],
['66672', '$22.79','172.78.200.124','08:02','24-12-2000','Jul 6, 2006 8:14 AM'],
['66672','$2482.79','172.78.200.124','15:10','12-12-2001','Jan 6, 2006 8:14 AM'],
['66672', '$22.79','172.78.200.124','08:02','24-12-2000','Jul 6, 2006 8:14 AM'],
['66672','$2482.79','172.78.200.124','15:10','12-12-2001','Jan 6, 2006 8:14 AM']
] ;
# Create a TableSorter, add it to JQuery, and get the result as HTML
my $table= JQuery::TableSorter->new(id => 'table1',
addToJQuery => $jquery,
data => $data,
dateFormat=>'dd/mm/yyyy',
sortColumn => 'Total',
sortClassAsc => 'headerSortUp',
sortClassDesc => 'headerSortDown',
headerClass => 'header',
stripingRowClass => ['even','odd'],
stripRowsOnStartUp => 'true',
#highlightClass => 'highlight',
disableHeader => 'true'
) ;
my $html = $table->HTML ;
$my->{info}{BODY} = qq[<h1>START OF TABLE SORTER EXAMPLE</h1>$html</div>END OF EXAMPLE</h1>] ;
}