--- db/prgsrc/db.cgi 2003/07/17 07:59:14 1.123
+++ db/prgsrc/db.cgi 2003/12/11 04:50:35 1.125
@@ -1249,8 +1249,10 @@ sub PrintField {
$value =~ s/<[\/\w]*?>//sg;
} else {
$value =~ s/^\s+/
/mg;
+ $value =~ s/(\s+)-+(\s+)/$1$2/mg;
+ $value =~ s/\s+\/ \/mg
+ if $value !~ /^\|/;
$value =~ s/^\|([^\n]*)/
$1<\/pre>/mg; - $value =~ s/\s+-+\s+/ /mg; $value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/$1<\/a>/g if $header !~ /^αΧΤΟ/; # $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/$1<\/a>/g if $header !~ /^αΧΤΟ/; # $value =~ s/(\s)"/$1/mg; @@ -1876,7 +1878,7 @@ MAIN: exit } - if ($tour && (!param('answers')||!param('answers')<=1)) + if ($tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) { my $n=param('tour'); $n=~s/.txt$//; @@ -2138,7 +2140,7 @@ EOT # FROM Tournaments as t1, Tournaments as t2 # WHERE t1.CreatedAt>$d AND t2.ParentId=t1.Id GROUP BY t1.Id"); my ($sth) = $dbh->prepare("SELECT t1.Id, t1.FileName, t1.Type, count(t2.Id) FROM Tournaments as t1 LEFT JOIN Tournaments as t2 - ON t2.ParentId=t1.id WHERE t1.CreatedAt>$d GROUP BY t1.Id"); + ON t2.ParentId=t1.id WHERE t1.CreatedAt>=$d GROUP BY t1.Id"); $sth->execute; my ($Id,$fname,$type,$c); while (($Id,$fname,$type,$c)=$sth->fetchrow,$Id) {