version 1.7, 2001/09/17 02:57:51
|
version 1.9, 2001/10/13 23:19:21
|
Line 87 my $self=url();
|
Line 87 my $self=url();
|
############################################### |
############################################### |
print <<END; |
print <<END; |
<dl> |
<dl> |
|
<dt><a href="$self">Home</a></dt> |
<dt><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></dt> |
<dt><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></dt> |
<dt><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></dt> |
<dt><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></dt> |
<dt><a href="$self?addclub=1">Добавить клуб</a></dt> |
<dt><a href="$self?addclub=1">Добавить клуб</a></dt> |
Line 171 END
|
Line 172 END
|
о клубе</a></dt> |
о клубе</a></dt> |
<dt><a href="$self?whoiswho=1">Кто есть кто</a></dt> |
<dt><a href="$self?whoiswho=1">Кто есть кто</a></dt> |
</dl> |
</dl> |
|
<p align=center> |
|
END |
|
print &Include_virtual("../boris/register/regions.html"); |
|
print <<END; |
|
</p> |
END |
END |
} |
} |
|
|
#################################################################### |
#################################################################### |
# And the bottom of the page |
# And the bottom of the page |
################################################################### |
################################################################### |
|
my $sth=$dbh->prepare("select count(*) from Clubs"); |
|
$sth->execute; |
|
my ($count) = $sth->fetchrow_array; |
|
$sth->finish; |
|
|
print "<p align=center>"; |
print "<p align=center>"; |
|
print "Всего клубов: $count<br>\n"; |
print "Эту страничку посмотрели "; |
print "Эту страничку посмотрели "; |
print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`; |
print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`; |
print " раз(а)</p>\n"; |
print " раз(а)</p>\n"; |