\n\n";
print "\n";
print "Thread: | \n";
print "\n";
# Thread anzeigen
my $sth = $dbh->prepare("select title, user, date, c, reftype, ref from forum where thread = $thread and parent = 0 order by c desc");
my $results = $sth->execute() or die "Kann Abfrage nich ausführen: $DBI::errstr\n";
if (@result = $sth->fetchrow_array )
{
$reftype = $result[4];
$ref = $result[5];
my $level = 0;
# bei Responses vorher noch den original Beitrag anzeigen
if ($ref != 0)
{
print "";
$level += 10;
}
print "";
if ($result[3] == $number)
{
print " \n";
print " | \n $result[0] ($result[1], $result[2]) | \n";
print " | \n";
}
else
{
print " \n";
print " | \n $result[0] ($result[1], $result[2]) | \n";
print " | \n";
}
print " \n";
ListReplies($result[3], $level + 10);
}
print " | ";
print " |