db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.84, 2003/01/27 10:58:56	version 1.85, 2003/01/27 12:55:55
Line 1620 MAIN:	Line 1620 MAIN:
setlocale(LC_CTYPE,'russian');	setlocale(LC_CTYPE,'russian');
my($i, $tour);	my($i, $tour);
my($text) = (param('text')) ? 1 : 0;	my($text) = (param('text')) ? 1 : 0;
	if ($text) {
	print header('text/plain');
	} else {print header;}


my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")	my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
or do {	or do {
Line 1636 MAIN:	Line 1640 MAIN:
-bgcolor=>'#fff0e0',	-bgcolor=>'#fff0e0',
-vlink=>'#800020');	-vlink=>'#800020');
print "<style>	print "<style>
td {font-size: 9pt; font-family : sans-serif}	td {font-size: x-small; font-family : sans-serif}
th {font-size: 9pt; font-family : sans-serif}	th {font-size: x-small; font-family : sans-serif}
</style>\n";	</style>\n";

print &Include_virtual("../dimrub/db/reklama.html");	print &Include_virtual("../dimrub/db/reklama.html");
Line 1654 POSIX::setlocale( &POSIX::LC_ALL, $thisl	Line 1658 POSIX::setlocale( &POSIX::LC_ALL, $thisl
if ((uc 'Á') ne 'á') {print "Koi8-r locale not installed!\n"};	if ((uc 'Á') ne 'á') {print "Koi8-r locale not installed!\n"};


if ($text) {
print header('text/plain');
}

if (param('hideequal')) {	if (param('hideequal')) {
my ($sth)= $dbh -> prepare("select first, second FROM equalto");	my ($sth)= $dbh -> prepare("select first, second FROM equalto");
$sth -> execute;	$sth -> execute;