register/prgsrc/register.cgi - diff

Return to register.cgi CVS log

Up to [Local Repository] / register / prgsrc

Diff for /register/prgsrc/register.cgi between versions 1.14 and 1.17

version 1.14, 2002/11/18 03:36:26	version 1.17, 2003/09/04 21:09:47
Line 53 my $dbh = DBI->connect("DBI:mysql:chgk",	Line 53 my $dbh = DBI->connect("DBI:mysql:chgk",
or do {	or do {
print h1("Временные проблемы") . "База данных временно не	print h1("Временные проблемы") . "База данных временно не
работает. Заходите попозже.";	работает. Заходите попозже.";
print &Include_virtual("../dimrub/db/reklama.html");	print &Include_virtual("../../dimrub/db/reklama.html");
print end_html;	print end_html;
die "Can't connect to DB chgk\n";	die "Can't connect to DB chgk\n";
};	};
Line 66 print header(-charset=>'koi8-r');	Line 66 print header(-charset=>'koi8-r');
##################################################	##################################################
print start_html(-"title"=>'Register of Clubs',	print start_html(-"title"=>'Register of Clubs',
-author=>'borisv@lk.net',	-author=>'borisv@lk.net',
-background=>"../images/map.jpg");	-background=>"../../images/map.jpg");
print &Include_virtual("../dimrub/db/reklama.html");	print &Include_virtual("../../dimrub/db/reklama.html");
print <<END;	print <<END;
<table>	<table>
<tr>	<tr>
<td background=../images/compass.gif valign=top>	<td background=../../images/compass.gif valign=top>
END	END

################################################	################################################
Line 126 END	Line 126 END
Журнал "Игра"<br>	Журнал "Игра"<br>
и<br>	и<br>
<a href="/znatoki/klub/znat.html"><img	<a href="/znatoki/klub/znat.html"><img
ismap border=0 src= "../images/logo.gif"	ismap border=0 src= "../../images/logo.gif"
alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>	alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>
<br>ПРЕДСТАВЛЯЮТ<br>	<br>ПРЕДСТАВЛЯЮТ<br>
Регистр Клубов Интеллектуальных Игр	Регистр Клубов Интеллектуальных Игр
Line 174 END	Line 174 END
</dl>	</dl>
<p align=center>	<p align=center>
END	END
print &Include_virtual("../boris/register/regions.html");	print &Include_virtual("../../boris/register/regions.html");
print <<END;	print <<END;
</p>	</p>
END	END
Line 189 END	Line 189 END
$sth->finish;	$sth->finish;

print "<p align=center>";	print "<p align=center>";
print "Всего клубов: $count<br>\n";	print "Всего клубов: $count</p>\n";
print "Эту страничку посмотрели ";
print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`;
print " раз(а)</p>\n";

print <<END;	print <<END;
<hr>	<hr>
<address>	<address>
<img width = 60 height = 80 src="../images/owl.gif" alt = "owl">	<img width = 60 height = 80 src="../../images/owl.gif" alt = "owl">
<a href="http://users.lk.net/~borisv">	<a href="http://users.lk.net/~borisv">
Boris Veytsman</a>, $date	Boris Veytsman</a>, $date
</address>	</address>
Line 326 sub ListClubs {	Line 323 sub ListClubs {
my $sth;	my $sth;
if ($args{'cid'}) {	if ($args{'cid'}) {
$sth = $args{'dbh'}->prepare("	$sth = $args{'dbh'}->prepare("
SELECT Child FROM ClubClub WHERE Parent=$args{'cid'}");	SELECT Child, Status FROM ClubClub WHERE Parent=$args{'cid'}");
} else {	} else {
$sth = $args{'dbh'}->prepare("	$sth = $args{'dbh'}->prepare("
SELECT cid FROM ClubRegion WHERE rid=$args{'rid'}");	SELECT cid FROM ClubRegion WHERE rid=$args{'rid'}");
Line 353 END	Line 350 END
END	END
}	}
my @clubs=();	my @clubs=();
while (my ($club)=$sth->fetchrow_array) {	my %stat=();
	while (my ($club,$status)=$sth->fetchrow_array) {
push @clubs,"cid=$club";	push @clubs,"cid=$club";
	if ($status) {
	$stat{$club}=$status;
	}
}	}
my $clause = join(' OR ', @clubs);	my $clause = join(' OR ', @clubs);
$sth=$args{'dbh'}->prepare("	$sth=$args{'dbh'}->prepare("
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");	SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");
$sth->execute;	$sth->execute;
while (my ($cid,$Name)=$sth->fetchrow_array) {	while (my ($cid,$Name)=$sth->fetchrow_array) {
$result .= li("<a href=\"$self?cid=$cid\">$Name</a>\n");	my $res="<a href=\"$self?cid=$cid\">$Name</a>\n";
	if (exists $stat{$cid}) {
	$res .= " ($stat{$cid})\n";
	}
	$result .= li($res);
}	}
$result .= "</ul>\n";	$result .= "</ul>\n";
}	}
Line 375 sub ListParents {	Line 380 sub ListParents {
my $sth;	my $sth;

$sth = $args{'dbh'}->prepare("	$sth = $args{'dbh'}->prepare("
SELECT Parent FROM ClubClub WHERE Child=$args{'cid'}");	SELECT Parent, Status FROM ClubClub WHERE Child=$args{'cid'}");

$sth->execute;	$sth->execute;

Line 391 SELECT Parent FROM ClubClub WHERE Child=	Line 396 SELECT Parent FROM ClubClub WHERE Child=
END	END

my @clubs=();	my @clubs=();
while (my ($club)=$sth->fetchrow_array) {	my %stat=();
	while (my ($club,$status)=$sth->fetchrow_array) {
push @clubs,"cid=$club";	push @clubs,"cid=$club";
	if ($status) {
	$stat{$club}=$status;
	}
}	}
my $clause = join(' OR ', @clubs);	my $clause = join(' OR ', @clubs);
$sth=$args{'dbh'}->prepare("	$sth=$args{'dbh'}->prepare("
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");	SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");
$sth->execute;	$sth->execute;
while (my ($cid,$Name)=$sth->fetchrow_array) {	while (my ($cid,$Name)=$sth->fetchrow_array) {
$result .= dt("<a href=\"$self?cid=$cid\">$Name</a>\n");	my $res = "<a href=\"$self?cid=$cid\">$Name</a>\n";
	if (exists $stat{$cid}) {
	$res .= " ($stat{$cid})\n";
	}
	$result .= dt($res);
}	}
$result .= "</dl></dd></dl>\n";	$result .= "</dl></dd></dl>\n";
}	}

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

Removed from v.1.14
changed lines
	Added in v.1.17