JQuery::TableSorter - The JQuery TableSorter

    use JQuery ; 
    use JQuery::TableSorter ; 

    # define JQuery
    my $jquery = new JQuery ; 




    # Create data for the table
    my $data = [['Id','Total','Ip','Time','US Short Date','US Long Date'],
		['66672',  '$22.79','172.78.200.124','08:02','12-24-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','12-24-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']
	       ] ;

    $jquery->add_css(new JQuery::CSS( hash => {
				         '#table1' => {width => '900px', 'font-size' => '15px'}
					})) ; 

    # Create a TableSorter, add it to JQuery, and get the result as HTML
    my $tableHTML = 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'
					     ))->HTML ; 
    # Get the JQuery code
    my $code = $jquery->get_jquery_code ;

    # Get the CSS
    my $css = $jquery->get_css ;  

    # All that needs to be done is to place the html, jquery code and css in a template

    headerClass => 'header',
    sortClassAsc => 'headerSortUp', 
    sortClassDesc => 'headerSortDown',

    headerClass => 'headerSimple',
    sortClassAsc => 'headerSimpleSortUp', 
    sortClassDesc => 'headerSimpleSortDown',

    perldoc JQuery

package JQuery::TableSorter ; 

our $VERSION = '1.00';

use warnings;
use strict;

use HTML::Table ; 
use JQuery::CSS ; 

sub new { 
    my $this = shift;
    my $class = ref($this) || $this;
    my $my ;
    %{$my->{param}} = @_ ; 
    die "No id defined for TableSorter" unless $my->{param}{id} =~ /\S/ ; 
    die "No data defined for TableSorter" unless ref($my->{param}{data}) eq 'ARRAY' ; 

    bless $my, $class;

    my $jquery = $my->{param}{addToJQuery} ; 
    my $jqueryDir = $jquery->getJQueryDir ; 
    $my->{fileDir} = "$jqueryDir/plugins" ;

    if ($my->{param}{css}) { 
	push @{$my->{css}},$my->{param}{css} ; 
    } 

    $my->add_to_jquery ; 
    return $my ;
}

sub add_to_jquery { 
    my $my = shift ; 
    my $jquery = $my->{param}{addToJQuery} ; 
    if (defined $jquery) { 
	$jquery->add($my) ; 
    } 
} 

sub id {
    my $my = shift ;
    return $my->{param}{id} ; 
}


sub HTML { 
    my $my = shift ;
    my $data = $my->{param}{'data'} ;
    if (!defined $data) {
	die "TableSorter: No data field supplied\n" ; 
    } 
    my @data = @{$data} ; 
    my $head = shift @data ;
    my $tile = new HTML::Table(-spacing=>0,-head=>$head ,-data=>\@data) ;
    my $id = $my->{param}{'id'} ; 
    $tile =~ s!<table !<table id="$id" ! if defined $id ; 
    $tile =~ s!<tr>!<thead><tr>! ; 
    $tile =~ s!</tr>!</tr></thead><tbody>! ; 
    $tile =~ s!</table>!</tbody></table>! ; 
    
    return $tile ; 
}

sub packages_needed { 
    my $my = shift ;
    return ('tablesorter/jquery.tablesorter.js') ; 
} 

sub get_css { 
    my $my = shift ;
    my $id = $my->id ; 
    my $css =<<'EOD' ; 

#ID th {
	background-color: #e9e9da;
}
#ID td {
	
	padding:5px;
}	

.headerSimple {
		background: 
			#e9e9da
			url('PLUGIN_DIR/tablesorter/green_arrows.gif')
			no-repeat
			center left;
		color: #333;
		padding: 5px;
		padding-left: 25px;
		text-align: left;
		cursor: pointer;	
}

.headerSimpleSortUp {
	background:
		#e9e900 
		url('PLUGIN_DIR/tablesorter/green_descending.gif')		
		no-repeat
		center left;
}

.headerSimpleSortDown {
	background:
		#e9e900 
		url('PLUGIN_DIR/tablesorter/green_ascending.gif')
		no-repeat
		center left;
}

.even {  
  background-color: lightblue;
}

.odd {  
  background-color: #5AAFFF;
}

.highlight { 
  color: grey;
}

.header {
	background-image: url(PLUGIN_DIR/tablesorter/header-bg.png);
	background-repeat: no-repeat;
	border-left: 1px solid #FFF;
	border-right: 1px solid #000;
	border-top: 1px solid #FFF;
	padding-left: 30px;
	padding-top: 4px;
	padding-bottom: 4px;
	height: auto;
        cursor: pointer;	
}

.headerSortUp {
	background-image: url(PLUGIN_DIR/tablesorter/header-asc.png);
	background-repeat: no-repeat;
	border-left: 1px solid #FFF;
	border-right: 1px solid #000;
	border-top: 1px solid #FFF;
	padding-left: 30px;
	padding-top: 4px;
	padding-bottom: 4px;
	height: auto;
        cursor: pointer;	
}
.headerSortDown {
	background-image: url(PLUGIN_DIR/tablesorter/header-desc.png);
	background-repeat: no-repeat;
	border-left: 1px solid #FFF;
	border-right: 1px solid #000;
	border-top: 1px solid #FFF;
	padding-left: 30px;
	padding-top: 4px;
	padding-bottom: 4px;
	height: auto;
        cursor: pointer;	
}
EOD
    $css =~ s!#ID!#$id!g ; 
    $css =~ s!PLUGIN_DIR!$my->{fileDir}!g ; 
    return $css ; 



} 


sub get_jquery_code { 
    my $my = shift ; 

    # Construct the function for the table sorter
    # ????? disableHeader: ['ip'] This is an array
    # ????? columnParser: [[1,'url']] What is this????

    my @names = qw[sortClassAsc sortClassDesc headerClass disableHeader columnParser dateFormat stripe sortColumn stripingRowClass highlightClass stripRowsOnStartUp] ;
    
    my $param = $my->{param} ;

    my $tableName = $param->{id} ;
    my $function = qq[\$("#$tableName").tableSorter({] . "\n" ; 
    my @lines ; 
    for my $name (@names) {
	my $value = $param->{$name} ; 
	next unless defined $value ;
	if (ref($value) eq 'ARRAY') { 
	    my $values = join ',', map { "'" . $_ . "'" } @$value ;  
	    push @lines, "   $name: [$values]" ;
	    next ;
	} 
	push @lines,"   $name: '$param->{$name}'" ;
    }
    my $lines = join(",\n",@lines) ; 
    $function .= $lines ; 
    $function .= "});\n" ; 
    return $function ; 
}
1;

1; # End of JQuery::TableSorter