--- db/prgsrc/db.cgi 2002/01/15 03:34:31 1.60
+++ db/prgsrc/db.cgi 2002/01/25 20:47:29 1.62
@@ -161,7 +161,7 @@ sub printform
my $inputstring=textfield(-name=>'sstr',
-default=>param('sstr')||'',
-size=>30,
- -maxlength=>30);
+ -maxlength=>50);
my $qnumber="Выводить по".br. textfield(-name=>'kvo',
-default=>param('kvo')||'150',
-size=>3,
@@ -1009,9 +1009,9 @@ sub PrintField {
$value =~ s/^\s+/
/mg;
$value =~ s/^\|([^\n]*)/
$1<\/pre>/mg; $value =~ s/\s+-+\s+/ /mg; - $value =~ s/(\s)"/$1/mg; - $value =~ s/^"//mg; - $value =~ s/"//mg; +# $value =~ s/(\s)"/$1/mg; +# $value =~ s/^"//mg; +# $value =~ s/"//mg; }