--- register/prgsrc/register.cgi	2001/09/11 20:19:42	1.4
+++ register/prgsrc/register.cgi	2001/09/11 22:27:12	1.6
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/11 20:19:42 $
+$Date: 2001/09/11 22:27:12 $
 
 =head1 REVISION
 
-$Revision: 1.4 $
+$Revision: 1.6 $
 
 =cut
 
@@ -34,17 +34,18 @@ $Revision: 1.4 $
 ###################################################
 
     use strict;
+use vars qw(%ENV);
 use CGI qw(:standard);
 use DBI;
 use POSIX qw(locale_h);
 
 setlocale(LC_CTYPE,'russian');
-
+$ENV{'LANG'}='ru_RU.KOI8-R';
 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 22:27:12 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -665,6 +666,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', Вы отправите Вашу регистрационную 
 карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока
 Ваша информация будет обработана и попадёт в регистр");