--- register/prgsrc/register.cgi	2001/09/20 21:49:35	1.8
+++ register/prgsrc/register.cgi	2001/10/13 23:19:21	1.9
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/20 21:49:35 $
+$Date: 2001/10/13 23:19:21 $
 
 =head1 REVISION
 
-$Revision: 1.8 $
+$Revision: 1.9 $
 
 =cut
 
@@ -45,7 +45,7 @@ my ($SENDMAIL) = "/usr/sbin/sendmail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/09/20 21:49:35 $';
+my $date='$Date: 2001/10/13 23:19:21 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -87,6 +87,7 @@ my $self=url();
 ###############################################
 print <<END;
 <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=1">Все клубы</a></dt>
 <dt><a href="$self?addclub=1">Добавить клуб</a></dt>
@@ -171,6 +172,11 @@ END
 о клубе</a></dt>
 <dt><a href="$self?whoiswho=1">Кто есть кто</a></dt>
 </dl>
+<p align=center>
+END
+print &Include_virtual("../boris/register/regions.html");
+print <<END;
+</p>
 END
 }