# showtopics_box by Bill Huston, bhuston@vegdot.org v1.0 27 Feb 2003
# call this from page called /special/topics

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 (@{$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 .= 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