my $url = '/read/'.$address->get().buildExcept( 'sort', $args );
my $sort = ( $args->{'sort'} or 'id' );
my( $sort_id, $sort_name ) = ( ( $sort eq 'id' ? 'rid' : 'id' ), ( $sort eq 'name' ? 'rname' : 'name' ) );
- genTableHead( 'subnodes', [ '<a href="'.$url.'?sort='.$sort_id.'">Id</a>', '<a href="'.$url.'?sort='.$sort_name.'">Name</a>', 'Description' ] );
+ genTableHead( 'subnodes', [ '<a href="'.$url.'?sort='.$sort_id.'">Id</a>', '<a href="'.$url.'?sort='.$sort_name.'">Name</a>', 'Description' ], [ 'id-col', 'name-col', 'desc-col' ] );
$args->{'restrict'} = $address->defaultRestrict() unless( defined( $args->{'restrict'} ) );
$tables->nodes( $address->get(), $args );
genTableTail();
genCustomMenu( $address, $args, \@list );
}
-sub genTableHead( $$ ) {
- my( $class, $captions ) = @_;
- print '<table class="'.$class.'"><tr>';
+sub genTableHead( $$$ ) {
+ my( $class, $captions, $cols ) = @_;
+ print '<table class="'.$class.'">';
+ foreach( @{$cols} ) {
+ print "<col class='$_'>\n";
+ }
+ print "<tr>\n";
foreach( @{$captions} ) {
- print '<th>'.$_;
+ print '<th>'.$_."\n";
}
- print '</tr>';
}
sub genTableTail() {