206 |
$attachment_delimiter = "----gnatsweb-attachment----\n"; |
$attachment_delimiter = "----gnatsweb-attachment----\n"; |
207 |
|
|
208 |
# where to get help -- a web site with translated info documentation |
# where to get help -- a web site with translated info documentation |
209 |
$gnats_info_top = 'http://sources.redhat.com/gnats/gnats_toc.html'; |
$gnats_info_top = 'http://www.gnu.org/software/gnats/gnats_toc.html'; |
210 |
|
|
211 |
# end customization |
# end customization |
212 |
#----------------------------------------------------------------------------- |
#----------------------------------------------------------------------------- |
219 |
use CGI 2.56 qw/-nosticky/; |
use CGI 2.56 qw/-nosticky/; |
220 |
use Socket; |
use Socket; |
221 |
use IO::Handle; |
use IO::Handle; |
222 |
|
use Text::Tabs; |
223 |
|
|
224 |
# Version number + RCS revision number |
# Version number + RCS revision number |
225 |
$VERSION = '3.99.2'; |
$VERSION = '3.99.2'; |
1370 |
if (fieldinfo($_, 'fieldtype') eq 'multitext') |
if (fieldinfo($_, 'fieldtype') eq 'multitext') |
1371 |
{ |
{ |
1372 |
$valign = ' valign="top"'; |
$valign = ' valign="top"'; |
1373 |
|
$val = expand($val); |
1374 |
$val =~ s/$/<br>/gm; |
$val =~ s/$/<br>/gm; |
1375 |
$val =~ s/<br>$//; # previous substitution added one too many <br>'s |
$val =~ s/<br>$//; # previous substitution added one too many <br>'s |
1376 |
|
$val =~ s/ / /g; |
1377 |
|
$val =~ s/ / /g; |
1378 |
} |
} |
1379 |
|
|
1380 |
# make links in various fields |
# make links in various fields |