--- register/prgsrc/register.cgi	2001/09/11 20:19:42	1.4
+++ register/prgsrc/register.cgi	2001/09/11 21:48:53	1.5
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/11 20:19:42 $
+$Date: 2001/09/11 21:48:53 $
 
 =head1 REVISION
 
-$Revision: 1.4 $
+$Revision: 1.5 $
 
 =cut
 
@@ -44,7 +44,7 @@ my ($SENDMAIL) = "/usr/sbin/sendmail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/09/11 20:19:42 $';
+my $date='$Date: 2001/09/11 21:48:53 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -665,6 +665,16 @@ sub AddClub {
 				     -columns=>60)])),
 		     );
 
+    $result .= h3("Кто регистрировал");
+    $result .= table(
+		     Tr(td(["Имя",
+			    textfield(-name=>'RegistrarName',
+				     -size=>60)])),
+		     Tr(td(["Email",
+			    textfield(-name=>'RegistrarEmail',
+				     -size=>60)])),
+		     );
+
     $result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную 
 карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока
 Ваша информация будет обработана и попадёт в регистр");