db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.124, 2003/08/29 21:52:25	version 1.125, 2003/12/11 04:50:35
Line 1249 sub PrintField {	Line 1249 sub PrintField {
$value =~ s/<[\/\w]*?>//sg;	$value =~ s/<[\/\w]*?>//sg;
} else {	} else {
$value =~ s/^\s+/<br>    /mg;	$value =~ s/^\s+/<br>    /mg;
	$value =~ s/(\s+)-+(\s+)/$1$2/mg;
	$value =~ s/\s+\&#0150/ \&#0150/mg
	if $value !~ /^\\|/;
$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;	$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;
$value =~ s/\s+-+\s+/  /mg;
$value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;	$value =~ s/(http:\/\/\S+[^\s\)\(\,\.])/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;
# $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;	# $value =~ s/(http:\/\/(?:\w+.)+[\w\\\~]+(\?[^\s.]+)?)/<a href="$1">$1<\/a>/g if $header !~ /^Авто/;
# $value =~ s/(\s)"/$1/mg;	# $value =~ s/(\s)"/$1/mg;
Line 1876 MAIN:	Line 1878 MAIN:
exit	exit
}	}

if ($tour && (!param('answers')\|\|!param('answers')<=1))	if ($tour && !param('qnumber') && (!param('answers')\|\|(param('answers')<=1)))
{	{
my $n=param('tour');	my $n=param('tour');
$n=~s/.txt$//;	$n=~s/.txt$//;