db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.135, 2004/08/28 23:47:41	version 1.136, 2004/09/05 14:57:05
Line 3	Line 3
use DBI;	use DBI;
use CGI ':all';	use CGI ':all';
#use strict;	#use strict;
	my @softfields=("От Олега Степанова");
use Time::Local;	use Time::Local;
my $proxyredirect=1;	my $proxyredirect=1;
use POSIX qw(locale_h);	use POSIX qw(locale_h);
Line 1318 sub PrintField {	Line 1319 sub PrintField {
if ($text) {	if ($text) {
$value =~ s/<[\/\w]*?>//sg;	$value =~ s/<[\/\w]*?>//sg;
} else {	} else {
	if ($header=~/Комментар/)
	{
	$value=~s/^\s*$_[\.:]/p."\n".strong("$_").":"/me foreach @softfields;
	}

$value =~ s/^\s+/<br>    /mg;	$value =~ s/^\s+/<br>    /mg;
$value =~ s/(\s+)-+(\s+)/$1$2/mg;	$value =~ s/(\s+)-+(\s+)/$1$2/mg;
$value =~ s/\s+\&#0150/ \&#0150/mg	$value =~ s/\s+\&#0150/ \&#0150/mg
Line 1330 sub PrintField {	Line 1336 sub PrintField {
# $value =~ s/"//mg;	# $value =~ s/"//mg;
}	}

	if ($value=~/^\s(<p.?>)?\s*<strong/) {
	return $text ? "$value\n\n" :
	$value . p . "\n";
	}
return $text ? "$header:\n$value\n\n" :	return $text ? "$header:\n$value\n\n" :
strong("$header: ") . $value . p . "\n";	strong("$header: ") . $value . p . "\n";
}	}
Line 1705 sub PrintQOfAuthor	Line 1714 sub PrintQOfAuthor
$suffix = 'я';	$suffix = 'я';
}	}
$Output.= printform;	$Output.= printform;
$Output.= p({align=>"center"}, "Автор ".strong("$name $surname. ")	$Output.= p({align=>"center"}, "Автор ".strong("$name $surname ")
. " : $hits попадани$suffix.");	. " : $hits попадани$suffix.");