|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Vadim Kutchin 2:5003/72 14 Feb 2002 11:20:58 To : Timur Sabirzyanov Subject : форум (perl + mysql) -------------------------------------------------------------------------------- Числа Tuesday February 12 2002, Timur Sabirzyanov отписал All... TS> Таблица messages(id int, parent_id int, thread int, subj char(250), TS> msg text, ...) содержит письма. Как теперь нарисовать дерево треда ь1 use HTML::Template; $messages = $dbh->selectall_hashref = ('select subj as MESSAGES_SUBJ, msg AS MESSAGES_MSG from messages where thread = 1 order by parent_id'); $template->param( MESSAGES_LOOP => $messages); $output = $template->output; print $output; а в тeмплeйтe: <TMPL_LOOP NAME="MESSAGES_LOOP"> <TMPL_VAR NAME="MESSAGES_SUBJ"> <TMPL_VAR NAME="MESSAGES_MSG"> <br> </TMPL_LOOP> WBW, AmadiS EMail: vadim25(at)mail.ru IRC: #debian-russian at irc.openprojects.net --- GoldED/386 3.0.1-asa9 SR1 ------------------------------------------------- * Origin: Мысль изреченная есть ложь... (2:5003/72) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18223c6b9122.html, оценка из 5, голосов 10
|