Add space between misspelled word and suggested fixes.

        Patch by denise. 

diffs (26 lines):

diff -r 3ed8be398cda -r f28123226658 cgi-bin/LJ/SpellCheck.pm
--- a/cgi-bin/LJ/SpellCheck.pm  Wed Jul 01 15:18:13 2009 +0000
+++ b/cgi-bin/LJ/SpellCheck.pm  Wed Jul 01 15:27:55 2009 +0000
@@ -97,10 +97,10 @@ sub check_html {
                $ofs -= 1; # because ispell reports "1" for first character
                
                $output .= LJ::ehtml(substr($inline, $srcidx, $ofs-$srcidx));
-               $output .= "<font 
color=\"$self->{'color'}\">".LJ::ehtml($word)."</font>";
+               $output .= "<font color=\"$self->{'color'}\">" . 
LJ::ehtml($word)."</font>";
                
-               $footnotes .= "<tr valign=top><td align=right><font 
color=$self->{'color'}>".LJ::ehtml($word).
-                              
"</font></td><td>".LJ::ehtml($idata)."</td></tr>";
+               $footnotes .= "<tr valign=top><td align=right><font 
color=$self->{'color'}>" . LJ::ehtml($word).
+                              
"&nbsp;</font></td><td>".LJ::ehtml($idata)."</td></tr>";
                
                $srcidx = $ofs + length($word);
            } elsif ($idata =~ /^\# /) {
@@ -109,7 +109,7 @@ sub check_html {
                my ($word, $ofs) = ($1, $2);
                $ofs -= 1; # because ispell reports "1" for first character
                $output .= LJ::ehtml(substr($inline, $srcidx, $ofs-$srcidx));
-               $output .= "<font 
color=\"$self->{'color'}\">".LJ::ehtml($word)."</font>";
+               $output .= "&nbsp;<font 
color=\"$self->{'color'}\">".LJ::ehtml($word)."</font>&nbsp;";
                $srcidx = $ofs + length($word);
            }
        } while ($idata ne "");
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to