--- db/prgsrc/db.cgi 2003/08/29 21:52:25 1.124
+++ 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$//;