--- register/prgsrc/register.cgi	2001/09/04 21:15:18	1.3
+++ register/prgsrc/register.cgi	2001/09/11 20:19:42	1.4
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/04 21:15:18 $
+$Date: 2001/09/11 20:19:42 $
 
 =head1 REVISION
 
-$Revision: 1.3 $
+$Revision: 1.4 $
 
 =cut
 
@@ -41,10 +41,10 @@ use POSIX qw(locale_h);
 setlocale(LC_CTYPE,'russian');
 
 my ($SENDMAIL) = "/usr/sbin/sendmail";
-my $TO = 'borisv@lk.net';
+my $TO = 'borisv@lk.net, igra@gorlovka.net';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/09/04 21:15:18 $';
+my $date='$Date: 2001/09/11 20:19:42 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -119,11 +119,14 @@ END
 #
     print <<END;
 
-<h1 align=center><a href="http:/znatoki/klub/znat.html"><img 
+<h1 align=center>
+Журнал "Игра"<br>
+и<br>
+<a href="http:/znatoki/klub/znat.html"><img 
 ismap border=0 src= "http:../images/logo.gif" 
 alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>
-<br>ПРЕДСТАВЛЯЕТ<br>
-Реестр Клубов Интеллектуальных Игр
+<br>ПРЕДСТАВЛЯЮТ<br>
+Регистр Клубов Интеллектуальных Игр
 </h1>
 END
 
@@ -156,7 +159,7 @@ END
 о клубе</a></dt>
 </dl>
 END
-
+}
 
 ####################################################################
 # And the bottom of the page
@@ -226,7 +229,7 @@ SELECT Name FROM Regions WHERE RID=$args
 	return "";
     }
     my ($name)=$sth->fetchrow_array;
-    $name="<a href=\"$self?rid=$args{'rid'}&level=1&clubs=1\">$name</a>";
+    $name="<a href=\"$self?rid=$args{'rid'}&level=100&clubs=1\">$name</a>";
     my $result="<$args{'tag'}>$name</$args{'tag'}>\n";
     if ($args{'level'}>0) { # Print children
 
@@ -253,13 +256,14 @@ SELECT rid FROM Regions WHERE $clause OR
 				       'level'=>$args{'level'}-1,
 				       'tag'=>'dt');
 	    }
+	    $result .= "</dl>\n";
 	}
     }
     return $result;
 }
 
 ############################################################
-# List the clubs of a given region
+# List the clubs of a given region or a given association
 ###########################################################
 sub ListClubs {
     my %args = @_;
@@ -307,6 +311,44 @@ SELECT cid, Name FROM Clubs WHERE $claus
     $result .= "</dl></dd></dl>\n";
 }
 
+
+############################################################
+# List the association a given club belongs to
+###########################################################
+sub ListParents {
+    my %args = @_;
+    my $sth;
+
+    $sth = $args{'dbh'}->prepare("
+SELECT Parent FROM ClubClub WHERE Child=$args{'cid'}");
+
+    $sth->execute;
+	
+    if (!$sth->rows) {
+	return "";
+    }
+    
+    my $result;
+	
+    $result=<<END;
+<h3>Коллективный член ассоциаций:</h3>
+<dd><dl>\n
+END
+
+    my @clubs=();
+    while (my ($club)=$sth->fetchrow_array) {
+	push @clubs,"cid=$club";
+    }
+    my $clause = join(' OR ', @clubs);
+    $sth=$args{'dbh'}->prepare("
+SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");
+    $sth->execute;
+    while (my ($cid,$Name)=$sth->fetchrow_array) {
+	$result .= dt("<a href=\"$self?cid=$cid\">$Name</a>\n");
+    }
+    $result .= "</dl></dd></dl>\n";
+}
+
 #############################################################
 # The longest subroutine in the list...
 #############################################################
@@ -350,8 +392,11 @@ SELECT * FROM Clubs WHERE cid=$args{'cid
 
     $result .= ListPeople(%args); 
 
+    $result .= ListParents(%args);
+
     $result .= ListClubs(%args); 
 
+
     if (my $string=$club->{'DoB'}) {
 	$result .= h3('История создания клуба')."\n".p($string);
     }
@@ -621,8 +666,8 @@ sub AddClub {
 		     );
 
     $result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную 
-карточку службе поддержки реестра. Пожалуйста, подождите несколько дней, пока
-Ваша информация будет обработана и попадёт в реестр");
+карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока
+Ваша информация будет обработана и попадёт в регистр");
     $result .= submit(-name=>'Submit');
     $result .= end_form;
     return $result;
@@ -650,8 +695,8 @@ END
     }
 	    
 
-    close MAIL;
-    return p("Спасибо за регистрацию. Ваши данные приняты и после ".
-	     "обработки будут внесены в базу данных");
+   close MAIL;
+   return p("Спасибо за регистрацию. Ваши данные приняты и после ".
+	    "обработки будут внесены в базу данных");
 }