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; |