/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1.2.28 by yngves, Tue Nov 20 22:15:35 2001 UTC revision 1.1.1.1.2.29 by yngves, Wed Nov 21 12:12:44 2001 UTC
# Line 107  use CGI::Carp qw/fatalsToBrowser/; Line 107  use CGI::Carp qw/fatalsToBrowser/;
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
# Line 901  sub view Line 902  sub view
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/  /&nbsp; /g;
909          $val =~ s/&nbsp;  /&nbsp; &nbsp;/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>",

Legend:
Removed from v.1.1.1.1.2.28  
changed lines
  Added in v.1.1.1.1.2.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26