version 1.5, 2000/10/19 23:04:46
|
version 1.6, 2000/10/20 04:06:54
|
Line 108 sub Search {
|
Line 108 sub Search {
|
my (@arr, @Questions, @fields); |
my (@arr, @Questions, @fields); |
my (@sar, $i, $sth); |
my (@sar, $i, $sth); |
|
|
push @fields, 'Question'; |
# push @fields, 'Question'; |
foreach (qw/Answer Sources Authors Comments/) { |
foreach (qw/Question Answer Sources Authors Comments/) { |
if (param($_)) { |
if (param($_)) { |
push @fields, "IFNULL($_, '')"; |
push @fields, "IFNULL($_, '')"; |
} |
} |
Line 224 sub PrintTournament {
|
Line 224 sub PrintTournament {
|
for ($Tournament{'Type'}) { |
for ($Tournament{'Type'}) { |
/ç/ && do { |
/ç/ && do { |
$output .= h2({align=>"center"}, |
$output .= h2({align=>"center"}, |
"çÒÕÐÐÁ: $Tournament{'Title'}") . p . "\n"; |
"çÒÕÐÐÁ: $Tournament{'Title'} ", |
|
"$Tournament{'PlayedAt'}") . p . "\n"; |
last; |
last; |
}; |
}; |
/þ/ && do { |
/þ/ && do { |
return &PrintTour($dbh, $Tours[0], $answer) |
return &PrintTour($dbh, $Tours[0], $answer) |
if ($#Tours == 0); |
if ($#Tours == 0); |
|
|
|
my $title="ðÁËÅÔ: $Tournament{'Title'}"; |
|
if ($Tournament{'PlayedAt'}) { |
|
$title .= " $Tournament{'PlayedAt'}"; |
|
} |
|
|
$output .= h2({align=>"center"}, |
$output .= h2({align=>"center"}, |
"þÅÍÐÉÏÎÁÔ: $Tournament{'Title'}") . p . "\n"; |
"$title") . p . "\n"; |
last; |
last; |
}; |
}; |
/ô/ && do { |
/ô/ && do { |
Line 269 sub PrintTournament {
|
Line 275 sub PrintTournament {
|
|
|
if ($SingleTour or $Tournament{'Type'} =~ /ô/) { |
if ($SingleTour or $Tournament{'Type'} =~ /ô/) { |
$list .= dd(img({src=>$imgsrc, alt=>$alt}) |
$list .= dd(img({src=>$imgsrc, alt=>$alt}) |
. " " . $Tournament{'Title'} . $qnum) . |
. " " . $Tournament{'Title'} . " " . |
|
$Tournament{'PlayedAt'} . $qnum) . |
dl( |
dl( |
dd("[" |
dd("[" |
. a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
. a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
Line 282 sub PrintTournament {
|
Line 289 sub PrintTournament {
|
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})) |
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})) |
. " " . img({src=>$imgsrc, alt=>$alt}) |
. " " . img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
. " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, |
$Tournament{'Title'}) . $qnum); |
$Tournament{'Title'}. " ". |
|
$Tournament{'PlayedAt'}) . $qnum); |
} |
} |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
Line 337 sub PrintTour {
|
Line 345 sub PrintTour {
|
my ($suffix) = &Suffix($qnum); |
my ($suffix) = &Suffix($qnum); |
|
|
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
$output .= h2({align=>"center"}, $Tournament{"Title"}, |
|
$Tournament{'PlayedAt'}, |
"<br>", $Tour{"Title"} . |
"<br>", $Tour{"Title"} . |
" ($qnum ×ÏÐÒÏÓ$suffix)\n") . p; |
" ($qnum ×ÏÐÒÏÓ$suffix)\n") . p; |
|
|
Line 415 sub PrintQuestion {
|
Line 424 sub PrintQuestion {
|
my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'}); |
my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'}); |
$titles .= |
$titles .= |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
dd(img({src=>"/icons/folder.open.gif"}) . " " . |
a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'})); |
a({href=>url . "?tour=$Tournament{'Id'}"}, $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=$Tour{'Id'}"}, $Tour{'Title'}))); |
a({href=>url . "?tour=$Tour{'Id'}"}, $Tour{'Title'}))); |
Line 527 sub PrintAll {
|
Line 536 sub PrintAll {
|
} else { |
} else { |
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$output .= 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'}) . " $New"); |
$Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New"); |
} |
} |
if ($Id == 0 or $Tournament{'Type'} =~ /ç/) { |
if ($Id == 0 or $Tournament{'Type'} =~ /ç/) { |
for ($i = 0; $i <= $#Tours; $i++) { |
for ($i = 0; $i <= $#Tours; $i++) { |
Line 561 sub PrintDates {
|
Line 570 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{'Title'}, $Tournament{'PlayedAt'})); |
} |
} |
$output .= dl($list); |
$output .= dl($list); |
return $output; |
return $output; |