<%DEF .show_forum> <%ARGS> $resource_table $tree $parent_id $recursion_level $admin $dbh <%INIT> use strict; return -1 if $tree !~ /^tree_\w+$/; return -1 if $resource_table !~ /^resource_\w+$/; return -1 if $parent_id !~ /^\d+$/; return -1 if $recursion_level !~ /^\d+$/; return -1 if $recursion_level > 30; my $dbh = $m->comp("/includes/dbcon.msn"); return unless $dbh; $m->comp('.show_forum', tree=>$tree, resource_table=>$resource_table, recursion_level=>$recursion_level, parent_id=>$parent_id, admin=>$admin, dbh=>$dbh ); $dbh->disconnect(); <%ARGS> $resource_table $tree $parent_id => 0 $recursion_level => 30 $admin => undef