--- 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+/
/mg;
$value =~ s/(\s+)-+(\s+)/$1$2/mg;
$value =~ s/\s+\/ \/mg
@@ -1330,7 +1336,10 @@ sub PrintField {
# $value =~ s/"//mg;
}
-
+ if ($value=~/^\s*(