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