107 |
# 9/19/99 kenstir: CGI.pm-2.55's file upload is broken. |
# 9/19/99 kenstir: CGI.pm-2.55's file upload is broken. |
108 |
use CGI 2.56 qw(-oldstyle_urls :all); |
use CGI 2.56 qw(-oldstyle_urls :all); |
109 |
use gnats qw/client_init client_exit client_cmd/; |
use gnats qw/client_init client_exit client_cmd/; |
110 |
|
use Text::Tabs; |
111 |
|
|
112 |
# Debugging fresh code. |
# Debugging fresh code. |
113 |
#$gnats::DEBUG_LEVEL = 2; |
#$gnats::DEBUG_LEVEL = 2; |
114 |
|
|
115 |
# Version number + RCS revision number |
# Version number + RCS revision number |
116 |
$VERSION = '2.9.3-dev'; |
$VERSION = '2.9.3'; |
117 |
$REVISION = (split(/ /, '$Revision$ '))[1]; |
$REVISION = (split(/ /, '$Revision$ '))[1]; |
118 |
|
|
119 |
# width of text fields |
# width of text fields |
902 |
if ($fieldnames{$_} & $MULTILINE) |
if ($fieldnames{$_} & $MULTILINE) |
903 |
{ |
{ |
904 |
$valign = 'valign=top'; |
$valign = 'valign=top'; |
905 |
|
$val = expand($val); |
906 |
$val =~ s/$/<br>/gm; |
$val =~ s/$/<br>/gm; |
907 |
$val =~ s/<br>$//; # previous substitution added one too many <br>'s |
$val =~ s/<br>$//; # previous substitution added one too many <br>'s |
908 |
|
$val =~ s/ / /g; |
909 |
|
$val =~ s/ / /g; |
910 |
$val = mark_urls($val); |
$val = mark_urls($val); |
911 |
} |
} |
912 |
print "<tr><td $valign nowrap><b>$_:</b></td>\n<td>", |
print "<tr><td $valign nowrap><b>$_:</b></td>\n<td>", |