--- db/prgsrc/db.cgi	2004/08/28 23:47:41	1.135
+++ db/prgsrc/db.cgi	2004/11/08 02:23:18	1.137
@@ -3,6 +3,7 @@
 use DBI;
 use CGI ':all';
 #use strict;
+my @softfields=("От Олега Степанова");
 use Time::Local;
 my $proxyredirect=1;
 use POSIX qw(locale_h);
@@ -10,7 +11,7 @@ use locale;
 use vars qw($opt_z);
 use Getopt::Std;
 #my ($dbuser,$dbname,$dbpass,$dbhost);
-require "dbdefs.pl";
+eval {require "dbdefs.pl";} ;
 my $url=url||'';
 $dbuser||="piataev";
 $dbname||="chgk";
@@ -1318,6 +1319,11 @@ sub PrintField {
 	if ($text) {
 	    $value =~ s/<[\/\w]*?>//sg;
 	} else {
+	    if ($header=~/Комментар/)
+	    {
+		$value=~s/^\s*$_[\.:]/p."\n".strong("$_").":"/me foreach @softfields;
+	    }
+
 	    $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
 	    $value =~ s/(\s+)-+(\s+)/$1&#0150;$2/mg;
 	    $value =~ s/\s+\&#0150/&nbsp;\&#0150/mg 
@@ -1330,7 +1336,10 @@ sub PrintField {
 #	    $value =~ s/"/&#148;/mg;
 	}
 
-
+	if ($value=~/^\s*(<p.*?>)?\s*<strong/) {
+		return $text ? "$value\n\n" :
+			$value . p . "\n";
+	}
 	return $text ? "$header:\n$value\n\n" :
 		strong("$header: ") . $value . p . "\n";
 }
@@ -1705,7 +1714,7 @@ sub PrintQOfAuthor
 		$suffix = 'я';
 	}
 	$Output.= printform;
-	$Output.= p({align=>"center"}, "Автор ".strong("$name $surname. ")
+	$Output.= p({align=>"center"}, "Автор ".strong("$name $surname ")
 	. " : $hits попадани$suffix.");