[BACK]Return to register.cgi CVS log [TXT] [DIR] Up to [Local Repository] / register / prgsrc

Diff for /register/prgsrc/register.cgi between versions 1.3 and 1.4

version 1.3, 2001/09/04 21:15:18 version 1.4, 2001/09/11 20:19:42
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 621  sub AddClub { Line 666  sub AddClub {
                      );                       );
   
     $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 695  END
     }      }
                           
   
     close MAIL;     close MAIL;
     return p("Спасибо за регистрацию. Ваши данные приняты и после ".     return p("Спасибо за регистрацию. Ваши данные приняты и после ".
              "обработки будут внесены в базу данных");              "обработки будут внесены в базу данных");
 }  }
   
Removed from v.1.3  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>