# showtopics_box by Bill Huston, bhuston@vegdot.org
# v1.1 27 Feb 2003 added case insensitive sort

my $cols = shift @ARGS \|\| 5;

my ($rv, $sth) = $S->db_select({
WHAT => 'tid,image,alttext,width,height',
FROM => 'topics',
});

my $topics = $sth->fetchall_arrayref();
$sth->finish();

my $content = "<table border=0>";

my $images = $S->{UI}->{VARS}->{imagedir}.$S->{UI}->{VARS}->{topics};

my $col=0;

foreach my $topic (sort {lc($a->[0]) cmp lc($b->[0])} ( @{$topics})) {

my ($tid,$image,$alttext,$width,$height)= @$topic;

next if $tid =~ /^(all\|diary)$/;

if ($col) { $content .= "<td align=\"center\">"; } else {
$content .= "<tr><td align=\"center\">";}

$content .= "$topic->[0]";

$content .= qq{

<img src="$images/$image" alt="$alttext" width=$width height=$height><br><a href="/search/topic=$tid">$alttext</a>

};

$col = ($col+1) % $cols;

if ($col) {
$content .= "</td>"
} else {
$content .= "</td></tr>"
}


};

$content .= "</table>";

return{title=>"All Topics",content=>$content};

Post A Comment