#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

$JSCRIPT=<<END;
	function init()
	{
		var TableSorter1 = new TSorter;
		var TableSorter2 = new TSorter;
		
		TableSorter1.init('housing_table_1');
		TableSorter2.init('housing_table_2');
	}
	
	window.onload = init;
END

print header;
print start_html( 
 -title => 'sortable table?', 
 -style => '/js/sample.css',
 -script => {
 -language => 'javascript',
 -type => 'text/javascript',
 -src => '/js/TSorter_1.js', 
 },
 -script=>"$JSCRIPT"
);