version 1.3, 2001/09/04 21:15:18
|
version 1.5, 2001/09/11 21:48:53
|
Line 41 use POSIX qw(locale_h);
|
Line 41 use POSIX qw(locale_h);
|
setlocale(LC_CTYPE,'russian'); |
setlocale(LC_CTYPE,'russian'); |
|
|
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my $TO = 'borisv@lk.net'; |
my $TO = 'borisv@lk.net, igra@gorlovka.net'; |
my $FROM = 'borisv@lk.net'; |
my $FROM = 'borisv@lk.net'; |
|
|
my $date='$Date$'; |
my $date='$Date$'; |
Line 119 END
|
Line 119 END
|
# |
# |
print <<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" |
ismap border=0 src= "http:../images/logo.gif" |
alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a> |
alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a> |
<br>ПРЕДСТАВЛЯЕТ<br> |
<br>ПРЕДСТАВЛЯЮТ<br> |
Реестр Клубов Интеллектуальных Игр |
Регистр Клубов Интеллектуальных Игр |
</h1> |
</h1> |
END |
END |
|
|
Line 156 END
|
Line 159 END
|
о клубе</a></dt> |
о клубе</a></dt> |
</dl> |
</dl> |
END |
END |
|
} |
|
|
#################################################################### |
#################################################################### |
# And the bottom of the page |
# And the bottom of the page |
Line 226 SELECT Name FROM Regions WHERE RID=$args
|
Line 229 SELECT Name FROM Regions WHERE RID=$args
|
return ""; |
return ""; |
} |
} |
my ($name)=$sth->fetchrow_array; |
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"; |
my $result="<$args{'tag'}>$name</$args{'tag'}>\n"; |
if ($args{'level'}>0) { # Print children |
if ($args{'level'}>0) { # Print children |
|
|
Line 253 SELECT rid FROM Regions WHERE $clause OR
|
Line 256 SELECT rid FROM Regions WHERE $clause OR
|
'level'=>$args{'level'}-1, |
'level'=>$args{'level'}-1, |
'tag'=>'dt'); |
'tag'=>'dt'); |
} |
} |
|
$result .= "</dl>\n"; |
} |
} |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
############################################################ |
############################################################ |
# List the clubs of a given region |
# List the clubs of a given region or a given association |
########################################################### |
########################################################### |
sub ListClubs { |
sub ListClubs { |
my %args = @_; |
my %args = @_; |
Line 307 SELECT cid, Name FROM Clubs WHERE $claus
|
Line 311 SELECT cid, Name FROM Clubs WHERE $claus
|
$result .= "</dl></dd></dl>\n"; |
$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... |
# The longest subroutine in the list... |
############################################################# |
############################################################# |
Line 350 SELECT * FROM Clubs WHERE cid=$args{'cid
|
Line 392 SELECT * FROM Clubs WHERE cid=$args{'cid
|
|
|
$result .= ListPeople(%args); |
$result .= ListPeople(%args); |
|
|
|
$result .= ListParents(%args); |
|
|
$result .= ListClubs(%args); |
$result .= ListClubs(%args); |
|
|
|
|
if (my $string=$club->{'DoB'}) { |
if (my $string=$club->{'DoB'}) { |
$result .= h3('История создания клуба')."\n".p($string); |
$result .= h3('История создания клуба')."\n".p($string); |
} |
} |
Line 620 sub AddClub {
|
Line 665 sub AddClub {
|
-columns=>60)])), |
-columns=>60)])), |
); |
); |
|
|
|
$result .= h3("Кто регистрировал"); |
|
$result .= table( |
|
Tr(td(["Имя", |
|
textfield(-name=>'RegistrarName', |
|
-size=>60)])), |
|
Tr(td(["Email", |
|
textfield(-name=>'RegistrarEmail', |
|
-size=>60)])), |
|
); |
|
|
$result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную |
$result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную |
карточку службе поддержки реестра. Пожалуйста, подождите несколько дней, пока |
карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока |
Ваша информация будет обработана и попадёт в реестр"); |
Ваша информация будет обработана и попадёт в регистр"); |
$result .= submit(-name=>'Submit'); |
$result .= submit(-name=>'Submit'); |
$result .= end_form; |
$result .= end_form; |
return $result; |
return $result; |
Line 650 END
|
Line 705 END
|
} |
} |
|
|
|
|
close MAIL; |
close MAIL; |
return p("Спасибо за регистрацию. Ваши данные приняты и после ". |
return p("Спасибо за регистрацию. Ваши данные приняты и после ". |
"обработки будут внесены в базу данных"); |
"обработки будут внесены в базу данных"); |
} |
} |
|
|