exit;
} else {
if (!$forum->{"authenticated"}) {
- $cgi->param("returnto",$cgi->uri(-full=>1));
+ $cgi->param("returnto",$cgi->url(-full=>1));
show_template("login",$cgi,$forum);
exit;
}
my $tree = HTML::TreeBuilder->new_from_file($filename);
fix_forum_links($forum,$tree,$url);
+ return $tree;
}
#
# Вывод шаблона формы. В шаблоне должна присутстовать форма с
#
sub show_template {
my ($form,$cgi,$forum) = @_;
- my $tree = get_template($forum,$form,$ENV{'PATH_INFO'});
+ my $tree = gettemplate($forum,$form,$ENV{'PATH_INFO'});
+
# Находим форму с классом $form
my $f = $tree->look_down("_tag","form",
"name",$form);
<script language="JavaScript" src="templates/page.js">
<script language="JavaScript" src="templates/common.js">
</script>
-</HEAD><BODY bgcolor="#ccffcc">
+</HEAD><BODY bgcolor="#ccffcc" onload="showUser(getUserName());">
<a class="userurl" href="forum?register=1">Зарегистрироваться</a> <a
class="login" href="forum?login=1">Войти</a>
<a class="moderator" href="forum?newtopic=1">Создать тему</a>
<script language="JavaScript" src="templates/common.js">
</script>
<link rel="forum-script" href="forum">
-</HEAD><BODY bgcolor="#ccffcc">
+</HEAD><BODY bgcolor="#ccffcc" onload="showUser(getUserName());">
<a class="userurl" href="forum?register=1">Зарегистрироваться</a> <a
class="login" href="forum?login=1">Войти</a>
<a class="moderator" href="forum?newtopic=1">Создать тему</a>
projects / oss / stilllife.git / commitdiff