use DBI;
use CGI;
$title="Информация о пользователе";
#include ../../inc/dbiconnect.inc
#include ../../inc/head2.inc
$CGI_PARAMS=new CGI;
$login=$CGI_PARAMS->param('login');
$query="select firstname, middlename, lastname, email from user where login=\"$login\"";
#print $query."
\n";
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$info=$result->fetchrow_hashref();
$query="select birth, gender, profession, webpage, interests, publiclastname, publicfirstname, publicmiddlename, publicemail, publicbirth, publicgender, publicprofession, publicwebpage, publicinterests from anketa where login=\"$login\"";
#print $query."
\n";
$result = $DB->prepare($query) or die "Can't prepare query: $query\n";
$result->execute or die "Can't execute query: $query\n";
$anketa=$result->fetchrow_hashref();
!>
if ($anketa->{publicemail} ==1) { print "
E-mail: {email}."\">".$info->{email}.""; } if ($anketa->{publiclastname} ==1) { print "
Фамилия: ".$info->{lastname}; } if ($anketa->{publicfirstname} ==1) { print "
Имя: ".$info->{firstname}; } if ($anketa->{publicday} ==1) { print "
День рождения: ".$anketa->{birth}; } if ($anketa->{publicgender} ==1) { print "
Пол: ".$anketa->{gender}; } if ($anketa->{publicprofession} ==1) { print "
Профессия: ".$anketa->{profession}; } if ($anketa->{publicwebpage} ==1) { print "
Домашняя страница: {webpage}."\">".$anketa->{webpage};
}
if ($anketa->{publicinterests} ==1) {
print " Ваши интересы: ".$anketa->{interests};
}
#include ../../inc/bottom.inc
!>