Ok,it`s a 140-150 lines from review.cgi:
if (defined $USER) {
my $sth = $DB->prepare ("SELECT * FROM Reviews WHERE LinkID = $id AND Username = '${$USER}{USER_Username}'");
$sth->execute();
($sth->rows) and $USER->{USER_Reviewed} = 1;
}
print &site_html_review_page ({ %$rec, %$USER, %OUT } , $dynamic);
}
sub do_review {
# --------------------------------------------------------
if (defined $USER) {
my $sth = $DB->prepare ("SELECT * FROM Reviews WHERE LinkID = $id AND Username = '${$USER}{USER_Username}'");
$sth->execute();
($sth->rows) and $USER->{USER_Reviewed} = 1;
}
print &site_html_review_page ({ %$rec, %$USER, %OUT } , $dynamic);
}
sub do_review {
# --------------------------------------------------------