version 1.73, 2002/10/06 08:18:34
|
version 1.74, 2002/10/06 08:58:12
|
Line 766 print "$query" if $printqueries;
|
Line 766 print "$query" if $printqueries;
|
my @sar; |
my @sar; |
if ($metod ne 'rus') |
if ($metod ne 'rus') |
{ |
{ |
(@sar) = split(' ', $sstr); |
my $ss=$sstr; |
|
(@sar) = split(' ', $ss); |
|
s/(\W)/\\$1/g foreach (@sar); |
$shablon=join "|",@sar; |
$shablon=join "|",@sar; |
} |
} |
PrintList($dbh,\@Questions,$shablon,$was); |
PrintList($dbh,\@Questions,$shablon,$was); |
Line 820 sub PrintTournament {
|
Line 822 sub PrintTournament {
|
/Г/ && do { |
/Г/ && do { |
$output .= h2({align=>"center"}, |
$output .= h2({align=>"center"}, |
"Группа: $Tournament{'Title'} ", |
"Группа: $Tournament{'Title'} ", |
"$Tournament{'PlayedAt'}") . p . "\n"; |
$Tournament{'PlayedAt'}||'') . p . "\n"; |
last; |
last; |
}; |
}; |
/Ч/ && do { |
/Ч/ && do { |
Line 901 sub PrintTournament {
|
Line 903 sub PrintTournament {
|
img({src=>$imgsrc, alt=>$alt}) |
img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}. " ". |
$Tournament{'Title'}. " ". |
$Tournament{'PlayedAt'}) . $qnum); |
$Tournament{'PlayedAt'}||'') . $qnum); |
} |
} |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
Line 972 sub PrintTour {
|
Line 974 sub PrintTour {
|
my ($suffix) = &Suffix($qnum); |
my ($suffix) = &Suffix($qnum); |
|
|
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
$Tournament{'PlayedAt'}, |
$Tournament{'PlayedAt'}||'', |
"<br>", $Tour{"Title"} . |
"<br>", $Tour{"Title"} . |
" ($qnum вопрос$suffix)\n") . p; |
" ($qnum вопрос$suffix)\n") . p; |
$output .=&PrintEditor(\%Tour); |
$output .=&PrintEditor(\%Tour); |
Line 1061 sub PrintQuestion {
|
Line 1063 sub PrintQuestion {
|
$fname=~s/\.txt//; |
$fname=~s/\.txt//; |
$titles .= |
$titles .= |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$fname"}, $Tournament{'Title'}, $Tournament{'PlayedAt'})); |
a({href=>url . "?tour=$fname"}, $Tournament{'Title'}, $Tournament{'PlayedAt'}||'')); |
$titles .= |
$titles .= |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dl(dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$fname.$Tour{Number}#$qnum"}, $Tour{'Title'}))); |
a({href=>url . "?tour=$fname.$Tour{Number}#$qnum"}, $Tour{'Title'}))); |
Line 1272 sub PrintAll {
|
Line 1274 sub PrintAll {
|
|
|
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>url . "?tour=$textid&answer=0"}, |
" " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New"); |
$Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New"); |
} |
} |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') { |
if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') { |
for ($i = 0; $i <= $#Tours; $i++) { |
for ($i = 0; $i <= $#Tours; $i++) { |
Line 1306 sub PrintDates {
|
Line 1308 sub PrintDates {
|
%Tournament = &GetTournament($dbh, $array[0]); |
%Tournament = &GetTournament($dbh, $array[0]); |
$list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
" " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
$Tournament{'Title'}, $Tournament{'PlayedAt'})); |
$Tournament{'Title'}, $Tournament{'PlayedAt'}||'')); |
} |
} |
$sth->finish; |
$sth->finish; |
$output .= dl($list); |
$output .= dl($list); |
Line 1427 sub WriteFile {
|
Line 1429 sub WriteFile {
|
return -1 unless $Id; |
return -1 unless $Id; |
open (OUT, ">$TMPDIR/$fname.txt") || print STDERR "Error in $fname.txt\n"; |
open (OUT, ">$TMPDIR/$fname.txt") || print STDERR "Error in $fname.txt\n"; |
print OUT "Чемпионат:\n$Title\n\n"; |
print OUT "Чемпионат:\n$Title\n\n"; |
my $date=$PlayedAt; |
my $date=$PlayedAt||'00-00-00'; |
my ($year,$month,$day)=split /-/, $date; |
my ($year,$month,$day)=split /-/, $date; |
# $month=0,$date=0 if $year && $month==1 && $day==1; |
# $month=0,$date=0 if $year && $month==1 && $day==1; |
my $pdate=sprintf("%02d-%3s-%4d",$day,$months[$month],$year); |
my $pdate=sprintf("%02d-%3s-%4d",$day,$months[$month],$year); |