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

print header;
print start_html( 
 -title => 'generate dynamic sortable tables', 
 -style => 'js/sample.css', ## das Stylesheet wird verarbeitet!
 -script => {
 -language => 'javascript',
 -src => 'js/TSorter_1.js', ## das Skript zum sortieren der Spalten
}
); 

### init sortable tables
	
$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

### einlesen der Daten

$input="/Library/WebServer/Documents/test/test.tab";

open(INP,$input);
$i=0;
while (<INP>)
{
	@line = split(/\t/,$_);
	if ($i==0) 
		{
		@headings=@line;
		@rows = th(\@headings);$i++;
		}
	else 
		{
		push (@rows,td([@line]));
		$i++;
		}
}

### ausgeben der Tabelle aus gelesenen Daten
print table( {-border=>undef},
            caption(b('your data!')),
            Tr(\@rows)
           );

## hier noch die Tabelle aus meinem ersten Gehversuch mit sortierbaren Spalten, im original HTML-Dokument hat das funktioniert!

print <<HTML;
<table id="housing_table_1" class="sortable">
	<thead>
		<tr>
			<th abbr="link">ID</th>
			<th abbr="input_text">NAME</th>
			<th abbr="image_number">PRICE</th>
			<th>LATITUDE</th>
			<th>LONGITUDE</th>
			<th abbr="link">ADDRESS</th>
		</tr>
	</thead>
	<tbody>
		<tr>
			<td><a href='http://peanut.uwaterloo.ca/ochousing2/dresults.asp?rid=12941'>12941</a></td>
			<td class='in_cell'><input type='text' value='Mike' /></td>
			<td><img src='../images/sorting/nav_step_2.png' />375</td>
			<td>43.446885</td>
			<td>-80.476264</td>
			<td><a href='http://peanut.uwaterloo.ca/ochousing2/dresults.asp?rid=12941'>205 Weber St. East, Kitchener, ON</a></td>
		</tr>
		<tr>
			<td><a href='http://peanut.uwaterloo.ca/ochousing2/dresults.asp?rid=12946'>12946</a></td>
			<td class='in_cell'><input type='text' value='Teresa' /></td>
			<td><img src='../images/sorting/nav_step_3.png' />400</td>
			<td>43.424225</td>
			<td>-80.539549</td>
			<td><a href='http://peanut.uwaterloo.ca/ochousing2/dresults.asp?rid=12946'>53 High Acres Cr., Kitchener, ON</a></td>
		</tr>
	</tbody>
</table>
HTML

exit;